createfield og sætte default value (DAO)

I dont think you can have a formular as a default value! Try setting the default value in table design to felt1-felt2 and you will see what I mean

Det har du vist ret i, men hvis jeg nu vil indsætte 0 som default værdi, hvordan ??

I think I can dig up an example, but it will first be after I get home from work.

Helt fint med mig

Opret et nyt felt i anden tabel, og tildel standardværdi:

Dim db As Database, tdf As TableDef, fld As Field
Set db = CurrentDb
Set tdf = db.Tabledefs!Tabel2
Set fld = tdf.CreateField("felt4", dbLong)
fld.DefaultValue = "250000"
tdf.Fields.Append fld
MsgBox "Feltet er oprettet og tildelt standardværdi"
Set db = Nothing

Mugs, hvis jeg gør det på din måde får jeg en masse fejl
Jeg har til gengæld fundet ud af, at det kan gøres på følgende måde

wdsdata er en backend database.


  Set MyTabel5 = WdsData.CreateTableDef("USysWdsPrintData")
   
   
    If MyTabel5.Updatable = True Then
      With MyTabel5
        .Fields.Append .CreateField("Nummer", dbLong)
        .Fields!Nummer.Attributes = dbAutoIncrField
       
       
        .Fields.Append .CreateField("OrdreId", dbLong)
        .Fields.Append .CreateField("Position", dbLong)
        .Fields.Append .CreateField("ItemNumber", dbText, 50)
        .Fields.Append .CreateField("ItemName", dbText, 50)
        .Fields.Append .CreateField("Qty", dbLong)
        .Fields!Qty.DefaultValue = 0
        .Fields.Append .CreateField("QtyPrice", dbDouble)
        .Fields!QtyPrice.DefaultValue = 0
        .Fields.Append .CreateField("Discount", dbDouble)
        .Fields!Discount.DefaultValue = 0
        .Fields.Append .CreateField("Price", dbDouble)
        .Fields!Price.DefaultValue = 0
        .Fields.Append .CreateField("Length", dbDouble)
        .Fields!Length.DefaultValue = 0
        .Fields.Append .CreateField("Width", dbDouble)
        .Fields!Width.DefaultValue = 0
        .Fields.Append .CreateField("EmfPath", dbText, 50)
        .Fields.Append .CreateField("TransId", dbText, 50)
        .Fields.Append .CreateField("ItemName2", dbText, 100)
        .Fields.Append .CreateField("ItemName3", dbText, 100)
       
      End With
    End If
   
   
   
    MyTabel5.Indexes.Append NewIdx
   
    Set NewIdx = MyTabel.CreateIndex("PrimaryKey")
   
    With NewIdx
      .Fields.Append .CreateField("nummer")
      .Primary = True
      .Unique = True
    End With
   
    MyTabel5.Indexes.Append NewIdx
   
   
    WdsData.TableDefs.Append MyTabel5