OK - Now I am really confused. I see 2 sets of code;
The Orginal: fixing the On Error go to typo
Private Sub cmdEnterResults_Click()
On Error GoTo Err_SomeName
DoCmd.RunCommand acCmdSaveRecord
CurrentDb.Execute "qappNewResponses"
Me![sfrmResponses].Requery
Exit_SomeName:
Exit Sub
Err_SomeName:
If Err.Number = x Then 'put the error number generated by your error in place of x
Resume Next
Else
MsgBox "Error : " & Err.Number & " : " & Err.Description & " : Contact database administrator"
Resume Exit_SomeName
End If
End Sub
And the second one:
Err_SomeName:
If Err.Number <> x Then 'put the error number generated by your error in place of x
MsgBox "Error : " & Err.Number & " : " & Err.Description & " : Contact database administrator"
End If
Resume Exit_SomeName
My assumption was to incorporate the 2nd code into the 1st, changing the somename to by own verbiage. I tried that code with the line "DoCmd.RunCommand acCmdSaveRecord" and without (which is what is posted)
Was that wrong? What should it be? Just the 2nd code?
Correct my typo in the On Error GoTo:
On Error GoTo Err_SomeName