获取模态流行表单以显示在访问中

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