将自动递增起始值设置为 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)"

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

Setting Auto Increment Start Value as a Variable in Access

variables

ms-access

vba

auto-increment