自动增加 MS Access 2016 表单中的字段答案

【问题标题】：auto-increment a field in MS Access 2016 form自动增加 MS Access 2016 表单中的字段
【发布时间】：2019-04-28 07:52:39
【问题描述】：

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

我写了下面的vb代码，但是好像有问题：

Private Sub Form_Load()    

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

End Sub

table1 是我希望 vb 查找下一个增量的表。我的表单名称是“Form 1”，我希望自动递增的表单字段是portfolio_id。

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

【问题讨论】：

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

【解决方案1】：

尝试：

Forms("Form 1").portfolio_id = lngNextID

或更简单的：

Me!portfolio_id = lngNextID

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

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

【讨论】：