ms-access - vba GoToRecord acGoTo 不工作

Question

所以我认为其他人已经遇到了这个问题，但我找到的解决方案还没有奏效。

Private Sub DROPDOWN_Change()

    Me!FORMAL_CERT_PROCEDURE_TEST_SCRIPTS_THING.SetFocus

    DoCmd.GoToRecord acDataForm, "FORMAL_CERT_PROCEDURE_TEST_SCRIPTS_THING", acGoTo,   Me.DROPDOWN.Value

End Sub

我收到错误消息“对象‘FORMAL_CERT_PROCEDURE_TEST_SCRIPTS_THING’未打开。”

Answer 1

当您将DoCmd.GoToRecord 的ObjectType 和ObjectName 选项留空时，Access 将使用事件对象。由于您的代码刚刚对 FORMAL_CERT_PROCEDURE_TEST_SCRIPTS_THING 子窗体控件执行了 SetFocus，因此请更改 DoCmd.GoToRecord 语句 ...

Private Sub DROPDOWN_Change()
    Me!FORMAL_CERT_PROCEDURE_TEST_SCRIPTS_THING.SetFocus
    DoCmd.GoToRecord , , acGoTo, Me.DROPDOWN.Value
End Sub

作为此方法的替代方法，请考虑您是否可以使用子窗体控件的链接主/子字段属性来完成您需要的操作。也许 Me.DROPDOWN 可以匹配子表单记录源中的字段？