Prompt for Saves to be Changed in Form

[dallas79]

Hi - I have been using the code below to prompt users if they would like to add an order # to the database (save changes). It's working, but I need the text box to clear the information (and reset focus) in the Order# field so the user can input a new order # (if needed).

Private Sub ERROrderNumber_BeforeUpdate(Cancel As Integer)
Dim LResponse As Integer
Dim LMsg As String

LMsg = "Do you want to add a new order?"
LResponse = MsgBox(LMsg, vbYesNo, "Save Changes")

If LResponse = vbNo Then
DoCmd.DoMenuItem acFormBar, acEditMenu, acUndo, acMenuVer70

End If

End Sub

[PEB]

You need to use the command

Me!order # .Setfocus

to set the control to your order No

And

Me!Texbox=""

or

Me!Texbox=null

to clear Texbox

[dallas79]

PEB - Thanks! But I'm still getting the following error:

You must save the field before you execute the GoToControl action, the GoToControl Method, or the SetFocus method. (Error #2108).

[PEB]

So You need to say

Cancel=true

after confirmation!

Private Sub ERROrderNumber_BeforeUpdate(Cancel As Integer)
Dim LResponse As Integer
Dim LMsg As String

LMsg = "Do you want to add a new order?"
LResponse = MsgBox(LMsg, vbYesNo, "Save Changes")

If LResponse = vbNo Then

Cancel=true

DoCmd.DoMenuItem acFormBar, acEditMenu, acUndo, acMenuVer70

End If

End Sub