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

Question

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

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

Answer 1

尝试：

Forms("Form 1").portfolio_id = lngNextID

或更简单：

Me!portfolio_id = lngNextID

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

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