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

我收到错误＆＃34;对象＆＃39; FORMAL_CERT_PROCEDURE_TEST_SCRIPTS_THING＆＃39;不开放。＆＃34;

Answer 1

当您将DoCmd.GoToRecord的 ObjectType 和 ObjectName 选项留空时，Access会使用活动对象。由于您的代码刚刚在SetFocus子表单控件上完成了FORMAL_CERT_PROCEDURE_TEST_SCRIPTS_THING，因此请更改DoCmd.GoToRecord语句...

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

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

vba GoToRecord acGoTo不工作

1 个答案: