更多信息

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()。