Ms access 自动递增MS Access 2016表单中的字段

我正在构建一个基本表单，希望表单中的id字段在用户打开表单时自动递增（或者也可以是不同的事件，只是觉得这是最简单的）

我已经编写了以下vb代码，但似乎存在一个问题：

Private Sub Form_Load()    

    lngNextID = DMax("[portfolio_id]", "table1") + 1
    Form 1.portfolio_id = lngNextID

End Sub

表1是我希望vb查找下一个增量的表。 我的表单名为“form 1”，表单中我要自动递增的字段是portfolio_id

任何建议/修改都会很有帮助，谢谢。

试试：

Forms("Form 1").portfolio_id = lngNextID

或者更简单：

Me!portfolio_id = lngNextID

但是，这将更新期初记录，因此请尝试设置DefaultValue（字符串）：

---

为什么不直接使用“自动编号类型”字段？到底是什么问题-错误消息，错误结果，什么都没有发生？引用表单的语法不正确。使用Me.portfolio_id，但是，如果您使用现有记录加载表单，此代码将替换现有数据。这是一个多用户数据库吗？注意同时生成相同ID的用户的可能性。

Me!portfolio_id.DefaultValue = "'" & lngNextID "'"