如果我关闭了Form2，如何关闭Form1

Question

当我关闭Form2时，Form1仍在后台运行，调试没有停止。我在Form1中有一个按钮，它打开Form2并使Form1不可见。

有没有一个简单的解决方案可以在我关闭Form2时关闭Form1，然后关闭整个程序？(Form2中没有任何按钮(

Answer 1

关闭Form2时调用Application.Quit。如果您使用的是UserForm:

Private Sub UserForm_Terminate()
Application.Quit
End Sub

如果您使用的是Access表单：

'Close event on Form2
Private Sub Form_Close()
DoCmd.Close acForm, "Form1", acSaveNo
Application.Quit
End Sub

请注意，Application.Quit将真正退出应用程序。如果您只想关闭表单，请改用Unload Form1(也可以在其中一个代码块中调用(。