Office: (Office 2000) Defaultwert bei 'Create Table...'

Hi,

mein Problem ist, dass ich mit VB eine Tabelle erstelle und den einzelnen Spalten gerne einen Defaultwert mitgeben würde. Die Tabelle wird dynamisch erweitert, hat aber nicht zu jedem Datensatz alle Spalten gefüllt. Es ist aber für eine Berechnung wichtig, dass ein Defaultwert (0) in den nicht gefüllten Feldern steht.

Die Syntax ist folgende:

CREATE TABLE Konten (Nummer char(12), Wert1 double Default 0, Wert2 ....)

Wenn ich es so mache, bekomme ich eine Fehlermeldung, obwohl es doch eigentlich normaler SQL-Code ist, oder?

Kann mir da bitte jemand helfen?

Danke und Gruß

marioo24

:)

 

Leider geht das Setzen eines Defaults mit der CREATE TABLE-Anweisung nicht (ist eben "nur" Jet-SQL). Da musst du danach noch über das TableDef (DAO) gehen.

 

Hi Arne,

hast du mir da vielleicht ein Syntax-Besipiel, da ich noch nicht so in VB drin bin?

Danke und Gruß

 

Ich hoffe, dass das mit dem Code (Property heisst dann bestimmt "Default") unter http://www.dbwiki.de/wiki.php?title=...ndern/auslesen geht.

 

Wenn in den Optionen im Register Tabellen/Abfragen die Option SQL Server-kompatible Syntax (ANSI 92) verwendet wird, kannst Du Dein ursprüngliches Vorhaben weiter verfolgen.

 

\@Norbert: Von welchen Optionen sprichst du? Unter Access 2000 finde ich diese Einstellung dort nicht. Vielleicht brauche ich aber auch nur Möhren?

 

Ist ab A2002 mit drin.

Ansonsten hat ADO eine erweiterte SQL-Syntax die die Umstellung der Optionen überflüssig macht:

CurrentProject.Connection.Execute "CREATE TABLE MeinTabelle (xy CHAR(44), abc LONG DEFAULT 22)"

Ciao, Sascha

 

Ah - die ADO-Geschichte ist interessant (und läuft auch unter Access 2000). *top Was so ein CurrentProject.Connection im Gegensatz zu Currentdb ausmacht.

 

Sensationell!
Vielen, vielen Dank für die Hilfe.
Eine Frage habe ich allerdings noch: Kann ich auch ein Zahlenformat mitgeben (Tausender-Trennzeichen und 2 Nachkommastellen)?

Gruß,

marioo24

 

Nein, nicht per SQL. Solche Formate haben nichts mit dem Feldtyp selbst zu tun, sondern dienen ja nur zur Anzeige/Eingabe, also quasi den visuellen Teil. Folglich sind das aufgesetzte Eigenschaften, die in den Attributen des Feldes gespeichert sind und per VBA angelegt werden müssen.

Ciao, Sascha

 

Ok!
Leider habe ich wie schon gesagt noch nicht soviel Ahnung von VB. Kannst du mir eventuell sagen wie ich die Attribute für das Feld mittels VB anlegen/speichern kann?

Danke und Gruß

 

Dazu solltest du hier im Forum fündig werden. Auch die Access-Hilfe ist da gut zu begrauchen...

Stichwörter: TableDef(s) Field(s) Append CreateField ...

 

Nenne erst einmal alle Eigenschaften, die du zusätzlich zum Standardwert setzen willst. Im übrigen ist der DBWiki-Code wirklich nicht schlecht - aber den scheinst du noch nicht ausprobiert zu haben. *frown.gif*

 

Hi Arne,

ich muss ehrlich zugeben, dass ich den Code von DBWiki überhaupt nicht verstehe.
Was ich zusätzlich zum Standard-Double in den einzelnen Spalten machen will, ist, dass wenn die Tabelle erstellt wird jedes Feld mit 0 vorbelegt ist (Habe ich jetzt auch mit Default und CurrentProject.Connection.Execute... bei Create-Statement, wie oben beschrieben, hinbekommen). Die Zahlen die ich dann in die Tabelle einfüge, sollen dann mit 1000.-Trennzeichen und 2 Nachkommastellen angezeigt werden (bei Access heißt das "Standard").
Das war es eigentlich schon. Wenn es nur eine Tabelle wäre würde ich das ja manuell in den Tabelleneigenschaften ändern, aber es sind halt so ca 50!
Wenn irgendjemand ne Lösung hat, wäre ich echt dankbar, solange versuch ich mich an dem Tipp von Anne.

Danke und Gruß

 

Kopiere den Code von DBWiki in ein globales Modul. Setze den Verweis auf DAO (s. donkarls FAQ 7.11) und dann versuch's mal damit:

Code: