Jag tänkte låta mitt program skapa databas.nollängd i databas
Hittade dethär på forumet:
--------------------------------------------------------------------------------------
Private Sub Command1_Click()
Dim MinDB As DAO.Database
Dim MinTabell As DAO.TableDef
Dim Nyckel As DAO.Field
Dim Idx As DAO.Index
Set MinDB = DBEngine.CreateDatabase("C:\db.mdb", dbLangSwedFin, dbVersion40)
Set MinTabell = MinDB.CreateTableDef("tblTabell")
With MinTabell
.Fields.Append .CreateField("ID", dbLong)
.Fields.Append .CreateField("Färg", dbText)
.Fields("ID").Attributes = dbAutoIncrField '<== Här görs fältet till räknare
End With
Set Idx = MinTabell.CreateIndex("ID")
With Idx
.Primary = True
.Required = True
.IgnoreNulls = False
End With
Set Nyckel = Idx.CreateField("ID")
Idx.Fields.Append Nyckel
MinTabell.Indexes.Append Idx
MinDB.TableDefs.Append MinTabell
MinDB.Close
Set Idx = Nothing
Set Nyckel = Nothing
Set MinTabell = Nothing
Set MinDB = Nothing
End Sub
--------------------------------------------------------------------------
Funkar bra, men hur gör jag om jag vill att
fältet "Färg" ska tillåta nollängd?
//Tor Erik