ms-access - 在 VBA 中打开新记录的表格

Question

我的目标是让我的主菜单上的所有命令按钮都打开一个表单，以供输入新记录。但是，我已经有了一个完美运行的代码，所以所有的表单都可以打开一个新条目，而且我仍然可以导航到以前的条目。除了一个。我已经根据其他代码对它进行了双重和三次检查，没有任何区别。但是出于某种原因，这个表格(出于这个问题的目的，我只是将其称为“表格”)打开第一条记录，而不是新记录。下面是我正在使用的代码，但它不起作用，(即使它与我的其他有效代码相同。)

Private Sub Command13_Click()
On Error GoTo Err_Command13_Click

   Dim stDocName As String
   Dim stLinkCriteria As String

   stDocName = "Form"
   DoCmd.OpenForm stDocName, , , stLinkCriteria
   DoCmd.GoToRecord , , acNewRec

Exit_Command13_Click:
   Exit Sub

Err_Command13_Click:
   MsgBox Err.Description
   Resume Exit_Command13_Click

End Sub

当然这是一个简单的修复，但我不知所措。

Answer 1

来自 DoCmd.GoToRecord 方法 帮助主题 ...

If you leave the objecttype and objectname arguments blank (the default constant, acActiveDataObject, is assumed for objecttype), the active object is assumed.

通常 DoCmd.OpenForm stDocName 应该使 stDocName 成为事件对象，这意味着 GoToRecord 然后应该针对该表单应用。并且您指出您的其他表格也是如此。

但是，由于它在这种情况下不起作用，请为 objecttype 和 objectname 参数提供 GoToRecord 值:

DoCmd.OpenForm stDocName, , , stLinkCriteria
'DoCmd.GoToRecord , , acNewRec
DoCmd.GoToRecord acDataForm, stDocName, acNewRec

一个令人费解的地方是stLinkCriteria 是一个空字符串。因此，当您调用 OpenForm 时，包含它似乎没有用。但我看不出这会如何影响 GoToRecord 的结果。