将自动增量起始值设置为Access中的变量

Question

我在网上浏览过，但无法找到明确的答案。是否可以将自动增量字段的起始值设置为MS Access VBA中的变量（后面的示例）？

Private Sub Command10_Click()
Dim dbs As Database
Set dbs = CurrentDb
Dim tblTempMinID As String

tblTempMinID = "DMax(EntryID, tblCalendar) + 1"
dbs.Execute "ALTER TABLE tblTemp ALTER COLUMN EntryID AUTOINCREMENT(tblTempMinID)"

End Sub

我目前使用上述代码在字段定义中收到错误。还在做研究，但我认为把它放在这里不会有什么坏处。

Answer 1

假设你想增加1：

dbs.Execute "ALTER TABLE tblTemp ALTER COLUMN EntryID AUTOINCREMENT(" & tblTempMinID & ",1)"