时间戳

首页 > 解决方案 > 自动增加 MS Access 2016 表单中的字段

ms-access - 自动增加 MS Access 2016 表单中的字段

问题描述

我正在构建一个基本表单，并希望表单中的 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。

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

标签： ms-accessms-access-2016

解决方案

尝试：

Forms("Form 1").portfolio_id = lngNextID

或更简单的：

Me!portfolio_id = lngNextID

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

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

推荐阅读