1、Private Sub Form_QueryUnload(Cancel As Integer,UnloadMode As Integer) Cancel = True End Sub 2、Private Sub Form_Unload(Cancel As Integer) Cancel = True End Sub
1、Private Sub Form_QueryUnload(Cancel As Integer,UnloadMode As Integer) Cancel = True End Sub 2、Private Sub Form_Unload(Cancel As Integer) Cancel = True End Sub