On Change or Before Update? MessageBox

[burrina]

Should I put my code on the OnChangeEvent or the BeforeUpdateEvent? If user changes the Bank information!

Private Sub Bank_Change() 'Purpose: User changes bank information.


If MsgBox("WARNING: This could have adverse effects,Are you sure ?", vbYesNo) = vbNo Then
Me!Bank.Undo
End If

End Sub

[ssanfu]

"The Change event occurs when the contents of a text box or the text portion of a combo box changes. It also occurs when you move from one page to another page in a tab control."
You cannot cancel the change event.

You CAN cancel the before update event. You would have to add a line to the code:

CANCEL = TRUE


There are two different before update events: a Form and a Control:

Private Sub Form_BeforeUpdate(Cancel As Integer)

Private Sub controlname_BeforeUpdate(Cancel As Integer)

It depends on WHEN you want to ask if the change should be saved..

To be sure, you should look at the events in help..

[burrina]

So, it is better left as is using the OnChangeEvent... My code works.... Thanks.

[ssanfu]

NO!!! NO!!! NO!!!

EVERY time you type a letter/number the change event fires.
So if you are changing the bank info and you have to delete/enter 5 characters, the change event will fire 5 times!!!

Do you really want to answer the question 5 times???


If you want to ask before you leave the control, I would use the control before update event:

Private Sub BANK_BeforeUpdate(Cancel As Integer)

[burrina]

the way my code is it only asks once unless you keep typing and trying to change it. I think the user will catch on after the first time. especially when it undoes what they just did unless they answer yes and then they can edit. Thanks though, I see your point.

MY code is on the ONCHANGEEVENT not the before... Just was asking,, so asked and answered. Thanks,,,

[ssanfu]

Great.. as long as you can live with the results

[burrina]

NO, you were right, that will not work! Had to move the code.