Hi Cracks,
ich erstelle eine Tabelle, in der unter anderem ein Feld als Double generiert werden soll, mit folgendem Code:
Dim db As Database
Dim td As TableDef
Dim fld As Field
Set db = CurrentDb
Set td = db.CreateTableDef
td.Name = „test“
Set fld = td.CreateField(„Nummer“, dbDouble)
td.Fields.Append fld
db.TableDefs.Append td
db.Close
End Sub
Das Double-Feld muss aber genau 2 Nachkommastellen haben. Ich bekomme dies aber nicht per VBA Code hin.
Für eure Hilfe vielen Dank im voraus.
Gruß
Dylan
PS: Es gibt auch Alternativlösungen, die mich aber nicht interessieren. Ich möchte gern die korrekte VBA Lösung wissen.