MS Access 2010：表单打开时的 VBA 导致表单锁定答案

【问题标题】：MS Access 2010: VBA in Form's On Open causes form to lockMS Access 2010：表单打开时的 VBA 导致表单锁定
【发布时间】：2018-06-11 11:36:53
【问题描述】：

我在表单的 On Open 事件中有一些 vba，但是，当打开表单时，控件被锁定或冻结。按钮等控件很好，但下拉框、文本框等“卡住”了。我可以单击它们，但焦点和光标不会移动到控件。尝试打开下拉菜单并没有使用控件等。

我已将其范围缩小到设置文本框的文本/值的 VBA。如果我评论更改值的行，则表单将按预期工作，而不是该功能。请注意，同样的 VBA 代码可以在其他表单上正常工作。

这是目前的代码：

Dim OtherMax As Long
Dim MaterialsMax As Long

OtherMax = DMax("[PO Num]", "[All POs]")
MaterialsMax = DMax("[PO NUMBER]", "[MATERIAL PO DATASHEET]")

DoCmd.GoToRecord , , acNewRec

If IsNull(Me.PONum) Then
    If MaterialsMax >= OtherMax Then
        Me.PONum = MaterialsMax + 1
    Else
        Me.PONum = OtherMax + 1
    End If
End If

我做错了什么导致控件锁定？

提前致谢，迈克

【问题讨论】：

标签： ms-access vba ms-access-2010

【解决方案1】：

找到了我的问题的解决方案：

为了解决导致控件冻结的 On Open 事件，我将该函数移至 On Load 函数。表单似乎仍能按预期加载和工作。

感谢所有花时间阅读/回答问题的人。

【讨论】：