opret felt i backend via frontend (Type autonummer)

http://www.eksperten.dk/spm/379094

hvordan laver jeg så den som primary , kan man også lave den til Yes/NO

Hej jeg har en kode fra min 'samling' du måske kan bruge.

Sub MakeATable()

Dim db As Database
Dim tbl As TableDef
Dim fld As Field
Dim idx As Index

'Start by opening the database
Set db = CurrentDb()

'Create a tabledef object
Set tbl = db.CreateTableDef("tblCountries")

'Create a field; set its properties; add it to the tabledef
Set fld = tbl.CreateField("CountryID", dbLong)

fld.OrdinalPosition = 1
fld.Attributes = dbAutoIncrField

tbl.Fields.Append fld

'Create another; set its properties; add it to the tabledef
Set fld = tbl.CreateField("CountryName", dbText)

fld.OrdinalPosition = 2
fld.Size = 50
fld.Required = True
fld.AllowZeroLength = False

tbl.Fields.Append fld

'Create an index and set its properties
Set idx = tbl.CreateIndex("PrimaryKey")

idx.Primary = True
idx.Required = True
idx.Unique = True

'Add a field to the index
Set fld = idx.CreateField("CountryID")
idx.Fields.Append fld

'Add the index to the tabledef
tbl.Indexes.Append idx

'Finally add table to the database
db.TableDefs.Append tbl

'And refresh the database window
RefreshDatabaseWindow

'Indicate creation was successful
MsgBox "The " & tbl.Name & " table was successfully created"

end sub

mugs den virker kun til frontend ... skal have lavet det i backenden

Dim db As Database
Dim nytabel As String
nytabel = "tbl_tider"
    Dim tdef As DAO.TableDef
    Set db = OpenDatabase(getbackendnameandpath(-1))
        Set tdef = db.CreateTableDef(nytabel)
       
    With tdef
   
        .Fields.Append .CreateField("medarbejderID", dbInteger)
        .Fields.Append .CreateField("KundeID", dbInteger)
        .Fields.Append .CreateField("dato", dbDate)
        .Fields.Append .CreateField("tidstart", dbDate)
        .Fields.Append .CreateField("tidslut", dbDate)
        .Fields.Append .CreateField("kundenavn", dbText)
        .Fields.Append .CreateField("behanlingstype", dbText)
   

       
    End With
    db.TableDefs.Append tdef
  ''' lav autonummerfelt
Set fld = tdef.CreateField("TidID", dbLong)

fld.OrdinalPosition = 1
fld.Attributes = dbAutoIncrField

tdef.Fields.Append fld
With tdef
Set idxnew = .CreateIndex("TidID")
        idxnew.Fields.Append idxnew.CreateField("TidID")
        idxnew.Primary = True
        .Indexes.Append idxnew
End With

Sub test()
    Dim db As database

    Dim tdef As DAO.tabledef
    Set db = Opendatabase("E:\Documents and Settings\Niels\Dokumenter\db1.mdb")
   
    db.Execute "Create Table Test (" & _
        "ID Autoincrement, " & _
        "Fornavn Text(20), " & _
        "Efternavn Text (20), " & _
        "Kommentar Memo)"

End Sub

Hej Juks

Jeg har testet ovenstående og den virker hos mig (DAO)

jeg har lavede den løsning der virkede bedst hos mig den er posted nih får point da det var ham der ledte mig på rette vej tager et selv bare for at vise det også var en løsning håber det er ok