how to cancel unload

[Rod]

I have captured the form unload event and want to be able to stop the form
closing if I am not happy.
How do I do this.

ie.

Private Sub Form_Unload(Cancel As Integer)

If Something Then
Don't Close form
Else
Go ahead and carry on closing
Endif

End Sub

many thnaks

Rod

 

[PC Datasheet]

Private Sub Form_Unload(Cancel As Integer)
If Something Then
Cancel = True
Endif
End Sub

Note: You don't need the Else part.

You also need this for your Cloce button:

On Error Resume Next
DoCmd.Close

Without the above code, if you press the Close button and Close is cancelle in
the UnLoad event, you'll get an error message.

 

[Rod]

Thanks for the prompt reply

cheers

Rod

Private Sub Form_Unload(Cancel As Integer)
If Something Then
Cancel = True
Endif
End Sub

Note: You don't need the Else part.

You also need this for your Cloce button:

On Error Resume Next
DoCmd.Close

Without the above code, if you press the Close button and Close is cancelle in
the UnLoad event, you'll get an error message.