ms-access - MS Access 2010：表单打开时的 VBA 导致表单锁定

Question

我在表单的 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-accessvbams-access-2010

Answer 1

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

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

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