Ms access MS Access 2010:VBA格式'；打开时的s导致窗体锁定

我在窗体的打开事件中有一些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

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

提前感谢,，

---

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

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

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