获取模式弹出窗体以显示在Access中

Question

我正在尝试使用以下代码使用VBA打开表单

Private Sub cmdEdit_Click()
Dim d As New Form_EditNote
d.txtDate.Value = EntryDate.Value
d.txtNote.Value = Note.Value
d.Visible = True
End Sub

表单会打开，但只会暂时停止......然后消失......任何想法？

Answer 1

您正在声明变量d，将其分配给表单，使表单可见，然后您的函数结束并且所有局部变量都被销毁。您的表单是这些局部变量之一。您需要使用DoCmd.OpenForm EditNote。这将保持打开

要使其成为模态，如果你总是希望它是模态的，可以在设计时将模态属性设置为true。或者在DoCmd.OpenForm中将WindowMode设置为acDialog