Combo box warning before update

[Ruegen]

I want to have an option yes no popup that asks if the user wants to change the value in a field using a combo box but if they choose no the combo box value goes back to the original chosen value (which happens to be the row with the same ID as the form id


the form field ID is 1234

the control is unbound

the form current event loads the field as the selection for the combo box

if the combo box is moved to another value it changes the field value accordingly .column(0) and the form refreshes to match.

if the user selects no in the popup then the combo box goes back to the original 1234 or whatever it happens to be

best way to do this?

[Ruegen]

ok so

I made a public var

then I did

Private Sub Combo_TheatreDate_AfterUpdate()


If YesNoPop("Are you sure you want to change the booking date?", "Please read carefully!") = False Then
Me.Combo_TheatreDate = varBookingID
Else
varBookingID = Me.Combo_TheatreDate
Me.BookingsID = varBookingID
End If


End Sub

and when the form loads current it loads Me.Combo_TheatreDate = Me.BookingsID.Value