在 MS Access 中通过 VBA 打开表单到新记录

VBA 是 Visual Basic for Applications 的缩写，是一种在 Microsoft Office 等应用程序中嵌入自动化程序的编程语言。 MS Access 是 Microsoft Access 数据库管理系统的简称。在 MS Access 中使用 VBA，可以编写自动化程序来自定义和控制数据库操作。

下面介绍如何使用 VBA 在 MS Access 中打开表单到新记录。

打开表单

在 VBA 中打开表单需要使用 DoCmd.OpenForm 方法。该方法的语法如下：

DoCmd.OpenForm(FormName, [View], [FilterName], [WhereCondition], [DataMode], [WindowMode])

其中 FormName 为要打开的表单名称，可以是字符串表达式，也可以是变量。接下来的参数用中括号括起来，表示可选参数。

到达新记录

在打开表单之后，需要将表单移动到新记录位置，以便用户可以输入新记录的数据。在 VBA 中，可以使用 DoCmd.GoToRecord 方法实现此功能。该方法的语法如下：

DoCmd.GoToRecord(ObjectType, ObjectName, Record, [Offset])

其中 ObjectType 表示要移动到的对象的类型，这里是表单，所以应该设置为 acForm。ObjectName 表示要移动到的对象的名称，应该设置为要打开的表单的名称。Record 参数表示要移动到的记录的编号，应该设置为 acNewRec，表示新记录。接下来的参数用中括号括起来，表示可选参数。

完整代码

下面是打开表单到新记录的完整代码：

Private Sub btnOpenForm_Click()
    DoCmd.OpenForm "FormName", DataMode:=acFormAdd
    DoCmd.GoToRecord acForm, "FormName", acNewRec
End Sub

在上面的代码中，我们假设按钮的名称为 btnOpenForm，要打开的表单名称为 FormName。DataMode 参数设置为 acFormAdd，表示要打开表单到新记录位置。

结论

通过 VBA 在 MS Access 中打开表单到新记录非常简单。我们只需要使用 DoCmd.OpenForm 方法打开表单，然后使用 DoCmd.GoToRecord 方法将表单移到新记录位置即可。