Field Validation in Form_Close()

[Prog76]

I am checking for required fields in the OnClose function and if there is a field missing I want the Close function to stop. It just keeps closing on me. This is what I have:

If Me!txtReqNum <> "" Then
If IsNull(Me!optionReason) Then
MsgBox ("Please enter a reason for the status change.")
Me!optionReason.SetFocus
Exit Sub
End If

End If

 

[mustangcoupe]

Try this

Private Sub Form_Close(Cancel As Boolean)
If Me!txtReqNum <> "" Then
    If IsNull(Me!optionReason) Then
        MsgBox ("Please enter a reason for the status change.")
        Me!optionReason.SetFocus
        Cancel = True
        Exit Sub
    End If
Cancel = False     
End If
End Sub

 

[Prog76]

I tried that and I got an error when I compiled:

"Procedure declaration does not match description of event or procedure having the same name

 

[TheAceMan1]

How are ya Prog76 . . . . .

Right Idea . . . . [blue]Wrong Event![/blue] The [blue]Close Event[/blue] does not use the [purple]Cancel Arguement[/purple] (you can't cancel the Close Event).

You wand the [purple]On Unload[/purple] event!

See Ya! . . . . . .

 

[Prog76]

Does that mean no data validation in the Close event????

 

[TheAceMan1]

[blue]Does that mean no data validation in the Close event????[/blue]

Yes it does, but since [blue]you can't cancel/roll back the Close event[/blue] . . . . whats the point?

Just move the code to the [blue]UnLoad[/blue] event. Your validation will be done there. In the normal sequence of events, the [blue]UnLoad[/blue] event occurs first, then the [blue]Close[/blue] event.

See Ya! . . . . . .

 

[Prog76]

Thank you so much!