Make a text box retain its previous value

[Sidran]

I have a text box in a form. When the value in the text box is changed, a message box appears asking if the user wants to change the value in the text box. If they select "Yes", all is good and it goes on well, but when they select "No" is it possible for the text box to retain its previous value?

For example.



The value in the text box is "1". The user changes this value to "2". A message box pops up asking if the user wants to change the value, the user select "No" and so the value in the text box goes back to "1", the number it started with before it changed.

[Bob Fitz]

Can you show us the code you have that shows the message box and tell us which event it is in.

[Sidran]

reply = MsgBox("Do you want to change the invoice number", vbYesNo, "Change invoice number")
If reply = vbYes Then
DoCmd.SetWarnings False
DoCmd.OpenQuery "Invoicing Hidden Table2 Query", acViewNormal, acEdit
DoCmd.OpenQuery "Invoicing Query5", acViewNormal, acEdit
DoCmd.SetWarnings True
End If
If reply = vbNo Then
Me.Text9 = ""


That is the code written in the After Update Event. Ignore the 2 queries as they are just 2 update queries that I wish to run when the user selects "Yes". If the reply is "No" instead of Text9 being an empty field, I want it to show the previous value.

[Bob Fitz]

Try the following code in the Before Update event instead of the After Update event:

If  MsgBox("Do you want to change the invoice number", vbYesNo, "Change invoice number")= vbYes Then
  DoCmd.OpenQuery "Invoicing Hidden Table2 Query", acViewNormal, acEdit
  DoCmd.OpenQuery "Invoicing Query5", acViewNormal, acEdit
Else
  Cancel = True
  Me.Text9.Undo
End If