Message Box when changing selection.

[frankbutcher]

Hi all.

Say if have a list box with selections 1,2,3,4,5. I would like a message box to appear if the selction is changed from.

I do have a message box appear saying "Are you sure you want to change" with a yes or no, but it changes the selction anyway. I have tried the code on the before and after event.

Where am I going wrong? Can anyone help?

Many Thanks.

Frank.

 

[boblarson]

Use the list box's Before Update event to ask the question -

If MsgBox("Are you sure you want to change this?", vbQuestion + vbYesNo, "Change requested") = vbNo Then
   Cancel = True
End If

 

[lead 27]

I have tried this but cant get it to work it still changes the option

 

[boblarson]

Sorry, I forgot a piece:

If MsgBox("Are you sure you want to change this?", vbQuestion + vbYesNo, "Change requested") = vbNo Then
   Cancel = True
   Me.YourListBoxName.Undo
End If

or you might use

If MsgBox("Are you sure you want to change this?", vbQuestion + vbYesNo, "Change requested") = vbNo Then
   Cancel = True
   Me.YourListBoxName = Me.YourListBoxName.OldValue
End If

 

[lead 27]

Yeah that works great