Opret MDE-

Option Compare Database
Option Explicit




Private Sub Kommandoknap0_Click()
Dim MyValue
Dim diskdb As Database
Dim db As Database
Dim rsSet As Recordset
Dim wrkDefault As Workspace
Dim tdfOrders As TableDef
Dim fld1 As Field

igen:
MyValue = Int((10000000 * Rnd) + 1)    \' Frembring en tilfældig værdi mellem 1 og 1000000#
\'Debug.Print MyValue
Set db = CurrentDb()
Set rsSet = db.OpenRecordset(\"TA_Key\", DB_OPEN_DYNASET)
rsSet.FindFirst \"KeyID =\" & MyValue
If rsSet.NoMatch Then

rsSet.AddNew
rsSet(\"KeyID\") = MyValue
rsSet.Update
db.Close
Set wrkDefault = DBEngine.Workspaces(0)
If Dir(\"a:\\NewDB.mde\") <> \"\" Then Kill \"A:\\NewDB.mde\"
Set diskdb = wrkDefault.CreateDatabase(\"a:\\NewDB.mde\", dbLangGeneral, dbEncrypt)
diskdb.NewPassword \"\", \"pw\"
Set db = DBEngine.Workspaces(0).OpenDatabase(\"a:\\NewDB.mde\")
   
        Set tdfOrders = db.CreateTableDef()
            tdfOrders.Name = \"TA_Key\"
   
        Set fld1 = tdfOrders.CreateField(\"KeyID\", dbLong)
               
       
    With tdfOrders.Fields
        .Append fld1
    End With
 
    With db.TableDefs
        .Append tdfOrders
        .Refresh
    End With
Set rsSet = diskdb.OpenRecordset(\"TA_Key\", DB_OPEN_DYNASET)
rsSet.AddNew
rsSet(\"KeyID\") = MyValue
rsSet.Update
diskdb.Close
Else
GoTo igen
End If
End Sub