比如窗体上有这个个按钮名叫Command0
代码如下所示
首先在模块 定义 str 为 全局变量 public str as string
Private Sub Command0_Click()
str = "1"
MsgBox str
DoCmd.OpenForm "窗体2", , , , , acDialog
MsgBox str
End Sub
窗体2的有这个一段代码
Private Sub Form_Close()
str = "3"
End Sub
当我们运行这个按钮是时候 先会输出1 当窗体2关闭的时候又会输出3 继续运行按钮中打开窗体2之后的代码
示例下载:点击下载此附件