在编辑模式下打开表单但不允许添加新记录

Question

我有一个表单，上面有两个用于打开表单的按钮。一个按钮仅用于添加新记录。另一个按钮仅用于编辑现有记录。编辑现有按钮会打开表单并仅显示过滤后的记录，但是当我到达最后一条记录时，我可以使用记录选择器前进到新记录。有没有办法阻止用户在通过选择编辑现有按钮打开表单时添加新记录？

顺便说一句，如果有用的话，唯一 ID 是一个自动编号字段 (UID)。

后一个按钮的代码如下：

Private Sub cmdEditProjects_Click()

Dim strSQL As String

    DoCmd.OpenForm "New Data", , , , acFormEdit

    strSQL = "SELECT Table1.Car, Table1.Color, Table1.Owner, Table1.PurDate, Table1.ID, Table1.Pending FROM Table1 WHERE (((Table1.Pending)=-1) AND ((Table1.InActive)=0));"
    Forms![New Data].RecordSource = strSQL

End Sub

Answer 1

打开表单后，您可以将其 AllowAdditions 属性设置为 False。

DoCmd.OpenForm "New Data", DataMode:=acFormEdit
Forms![New Data].AllowAdditions = False

在编辑模式下打开表单但不允许添加新记录

Open form in edit mode but disallow adding new records

forms

ms-access

vba

ms-access-2007