cancel with message box

[megatronixs]

Hi all,

I have the below code that when a user will make a change in a combo box, it will pop up a message asking if they want to do so (to make them aware of it). How could I change it so there is a extra button cancel and when they hit cancel, the combo box will keep the value, if OK is hit, then make the change.

 If Me.Business = "TYPE 1"  And Me.Case = "Sent Email" Then
 MsgBox ("You really want to change this!!!")
End If

Greetings.

 

[CJ_London]

if MsgBox ("You really want to change this!!!",vbyesnocancel,"EMAIL CHANGE") <>vbyes then
'cancel operation
end if

 

[pr2-eugin]

Try BeforeUpdate event.

Private Sub Business_BeforeUpdate(Cancel As Integer)
    If Me.Business = "TYPE 1"  And Me.Case = "Sent Email" Then
        If MsgBox ("You really want to change this!!!", vbYesNo) = vbNo Then
            Cancel = True
        End If
    End If
End If

 

[megatronixs]

Hi all,

I tried the one from pr2-eugin, when I hit cancel, it will still change the value :-(

Any way I did it wrong?

Greetings.

 

[here4real]

        If MsgBox("Do you really want to change the value?", vbYesNo + vbQuestion + vbDefaultButton2) = vbNo Then
            Cancel = True
            Me.cmbRemote_ID.Undo
        End If

This should work.

 

[megatronixs]

Hi,

It worked out

BIG thanks

Greetings.