Oprette tabel i Backend
Jeg vil gerne fram min Frontend oprette en ny tabel i min Backend.Hvis jeg sætter mydb = CurrentDb() så oprettes den i Frontend, jeg har forsøgt med følgende kode, men får en indtastningformular hvor jeg skal angive en DNS. Filename angiver der hvor brugerens backend er placeret.
Set mydb2 = OpenDatabase(Filename) 'Filename = "C:\makapordemo\MKPdata.mdb"
Set tdf = mydb.CreateTableDef("T_Tidsreg")
Set fld = tdf.CreateField("Dgsdato", dbDate)
tdf.Fields.Append fld
Set fld = tdf.CreateField("Medarb", dbLong)
tdf.Fields.Append fld
Set fld = tdf.CreateField("Ordretyp", dbText, 1)
tdf.Fields.Append fld
Set fld = tdf.CreateField("AntTim", dbSingle)
tdf.Fields.Append fld
Set fld = tdf.CreateField("Oprnr", dbLong)
tdf.Fields.Append fld
Set fld = tdf.CreateField("Regkode", dbLong)
tdf.Fields.Append fld
Set fld = tdf.CreateField("Ordrenr", dbLong)
tdf.Fields.Append fld
Set fld = tdf.CreateField("OpdatDato", dbDate)
tdf.Fields.Append fld
mydb.TableDefs.Append tdf
mydb.TableDefs.Refresh