Membuat Random Auto Number - DAO

Public Sub CreateRandomAutonumber()
    Dim db As DAO.Database
    Dim td As DAO.TableDef
    Dim f As DAO.field
    
    Set db = CurrentDb
    Set td = db.CreateTableDef("Table1")
    Set f = td.CreateField("MyAutoNumber")

    f.Type = dbLong
    f.Attributes = dbAutoIncrField
    td.Fields.Append f
    
    Set f = td.CreateField("MyTextField")
    f.Type = dbText
    td.Fields.Append f
    db.TableDefs.Append td
    td.Fields("MyAutoNumber").DefaultValue = "GenUniqueID()"
    Application.RefreshDatabaseWindow
End Sub