IF Statement on form close. trying to exit sub without form closing if condition met.

[the-m0th]

Hi Everyone.

i've been asked to update our call answering screen at work. there are a couple of combo boxes that need to be filled in for every call that our operators sometimes miss. i've tried to rectify this by putting an if statement in the form close event like this.

    If IsNull(cbo_actiontaken) Then
        MsgBox "What Action Was Taken As A Result Of This Call?"
        Exit Sub
    End If
    
    If IsNull(cbo_operator) Then
        MsgBox "Enter Your Initials. They Should Have Been Input On The Front Screen!"
        Exit Sub
    End If

my problem now is that when you click okay on the first message box, the form closes anyway. is there something i can put in there to stop it closing? i've read about e.cancel = true but i get an error when i put that line of code in. any help will be greatly appreciated.

thanks
Wayne

 

[Ranman256]

Put a variable in the form (the very top of the form events code block)
Private bCanClose as Boolean

this will allow close if true.

In form_close event ,ask the questions, then
bCanClose= true

In form_unload, cancel = not bCanClose

 

[the-m0th]

hi, thanks for replying.

i've tried the code you posted but now when i click on close nothing happens. any ideas?

thanks again.
Wayne

 

[pbaldy]

The before update event is commonly used:

http://www.baldyweb.com/BeforeUpdate.htm

You can also make the fields required in the table.

 

[the-m0th]

The before update event is commonly used:

http://www.baldyweb.com/BeforeUpdate.htm

You can also make the fields required in the table.

Hi, Thanks for the reply.

could you explain a bit more on how i could use that to stop the form closing when i click on the cross if the fields i would like filling in are empty. i'm struggling to get my head round it.

 

[missinglinq]

Form_Close is too late for this...the closing cannot be canceled; you have to use the Form_BeforeUpdate event, which can be

Private Sub Form_BeforeUpdate(Cancel As Integer)

 If IsNull(cbo_actiontaken) Then
        MsgBox "What Action Was Taken As A Result Of This Call?"
        Cancel = True
        cbo_actiontaken.SetFocus
        cbo_actiontaken.DropDown  
        Exit Sub
    End If
    
    If IsNull(cbo_operator) Then
        MsgBox "Enter Your Initials. They Should Have Been Input On The Front Screen!"
        Cancel = True
        cbo_operator.SetFocus
        cbo_operator.DropDown  
        Exit Sub
    End If

End Sub

Linq ;0)>

 

[pbaldy]

The before update event; why didn't I think of that?

 

[the-m0th]

hi,

i've put that code in the beforeupdate event but it doesn't trigger when the cross is clicked to close the form. i'm struggling to understand how putting the code there will allow it to run when i try and close the form. sorry, i'm still pretty new to all of this.

thanks
Wayne

 

[pbaldy]

I would probably hide the cross so the user had to use your buttons.

 

[missinglinq]

i've put that code in the beforeupdate event but it doesn't trigger when the cross is clicked to close the form.

That really doesn't make any sense! If the Record is Dirty and you Close the Form, regardless of how you close it, the Form_BeforeUpdate event is going to fire.

Are you sure you put the code in the BeforeUpdate event of the Form?

 

[the-m0th]

i got it working, i put it in the form unload event and it's working like a dream. thanks for all your help guys.