How to stop exiting a form

[cer5yc]

I need the following to run when the user tries to close the form:

If Me.opgProjectStatus = 2 And IsNull(txtDateClosed) Then
Dim MsgBox5 As Integer
MsgBox5 = MsgBox("You must enter a value for 'Date Closed' or Select 'Open' for Project Status", vbOKOnly)

Can someone tell me what event I need to tie it to (right now I have it tied to the form unload event and it's not working.

My end goal is the user can't save the information if the above condition exists.

Can someone tell me how to write please ... Thanks!

 

[dinger2121]

You can put an exit button the form and disable the close button. You can then put your code in the click event of the exit button.

 

[cer5yc]

Oh good idea - how do I disable the close button?

 

[dinger2121]

that is an option in the form properties.

 

[cer5yc]

Is there a way to disable the close button for the database itself?

 

[dinger2121]

I don't think that there is an option for that...but it can be done through vba code. Check out this article -

http://support.microsoft.com/kb/245746

 

[dinger2121]

Here is another link...

http://www.techonthenet.com/access/modules/hide_close.php