以編程方式創建“自動編號”字段並將其“新值”屬性設置為“隨機”

概要

更多信息

1. 啟動 Microsoft Access。
2. 在文件菜單上，單擊新建。在新建文件任務窗格中，單擊空數據庫。鍵入該數據庫的路徑和文件名，然後單擊創建。
3. 在視圖菜單上，指向數據庫對象，然後單擊模塊。單擊新建。
4. 將下面的示例代碼鍵入到新模塊中：

   Sub CreateRandomAutonumber()
   
   ' Create database, tabledef, and field objects.
   
   Dim db As DAO.Database
   
   Dim td As DAO.TableDef
   
   Dim f As DAO.Field
   
   ' Set the database object to the current database.
   
   ' Set the tabledef object to a new table named Table1.
   
   ' Set the f (field) object to a new field in Table1 named MyAutoNumber.
   
   Set db = CurrentDb
   
   Set td = db.CreateTableDef("Table1")
   
   Set f = td.CreateField("MyAutoNumber")
   
   ' Set the type and auto-increment properties for the Table1 field named 
   
   ' MyAutoNumber.
   
   f.Type = dbLong
   
   f.Attributes = dbAutoIncrField
   
   ' Append the MyAutoNumber field to Table1.
   
   td.Fields.Append f
   
   ' Create a new text field in Table1.
   
   Set f = td.CreateField("MyTextField")
   
   ' Set the type property for MyTextField.
   
   f.Type = dbText
   
   ' Append the MyTextField field to Table1.
   
   td.Fields.Append f
   
   ' Append the Table1 tabledef to the database.
   
   db.TableDefs.Append td
   
   ' Set the default value for MyAutoNumber to a random number function.
   
   td.FIElds("MyAutoNumber").DefaultValue = "GenUniqueID()"
   
   ' Refresh the database window.
   
   Application.RefreshDatabaseWindow
   
   End Sub					

• 將字段的 Type 屬性設置為 dbLong，並將字段的 Attributes 屬性設置為 dbAutoIncrFIEld。
• 將新的 TableDef 追加到 TableDefs 集合中。
• 將字段的 DefaultValue 屬性設置為 GenUniqueID()。

參考

• createtabledef 方法
• createfIEld 方法
• append 方法