当用户关闭表单时如何执行代码?

Question

如果某些字段在关闭时为空，则出现一个消息框。

Private Sub Close_Click()
If IsNull(Me.startDate) Then
MsgBox “You are in Phase 1”
End If
End Sub

我想要弹出出现当用户点击退出x.我试过OnClose。现在的代码是附加到一个按钮，并通过一个按钮工作。

我希望代码在用户关闭表单时执行。

编辑新代码:

Private Sub Exit_Click ()
If IsNull(Me.startDate) Or IsNull(Me.stepOneA) Or IsNull(Me.stepOneB) Then
MsgBox “You are in Step I”
DoCmd.Close
ElseIf IsNull(Me.stepTwoA) or IsNull(Me.stepTwoB) or IsNull(stepTwoC)
MsgBox “You are in Step II”
DoCmd.Close
Else
DoCmd.Close
EndIf
End Sub

Answer 1

您可以使用UnLoad事件:

Private Sub Form_Unload(Cancel As Integer)
Cancel = IsNull(Me.startDate)
If Cancel = True Then
MsgBox "You are in Phase 1."
End If
End Sub