以编程方式创建“自动编号”字段并将其“新值”属性设置为“随机” - 站长资讯

更多信息

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