Need to customize error statements in form

[mfmathes]

I created a database for obtaining customer information at a trade show. The entry form is set to Pop up. Entry in data fields is required. I set a macro at the end of the entry form, "New Record Macro" to save the record and then to GoToRecord to create a new blank form for the next person to fill in. When a field is left blank, an error screen pops up using the actual name of the field left blank. Then a Macro Single Step error screen pops up. I need to replace these pop ups with customized directions. I'd like to completely eliminate the Macro Single Step error. I have no experience in Visual Basic. I am using Access 2010.

[rpeare]

if you're not using VB you're not likely going to get the result you want

if ALL of the fields are required for a record to be valid in your 'go to new record' ON CLICK event you could have something like

if isnull(field1) or isnull(field2) then
    msgbox "ERROR:  all fields must be populated before creating a new record, it ESC twice to cancel record or fill in blank fields"
else
   ' do whatever your current procedure does
endif

[mfmathes]

I converted my macro to VB and attempted to modify code to incorporate recommendations. I think something must be wrong because the error statements remain Access default.

I copied and pasted my code. Any suggestions? Thank you.

'------------------------------------------------------------
' New_Record_Macro
'
'------------------------------------------------------------
Function New_Record_Macro()
On Error GoTo New_Record_Macro_Err


DoCmd.RunCommand acCmdSaveRecord
DoCmd.GoToRecord acForm, "Entry", acNewRec




New_Record_Macro_Exit:
Exit Function


If IsNull(FirstName) Or IsNull(LastName) Or IsNull(Address1) Or IsNull(City) Or IsNull(State) Or IsNull(Zip) Or IsNull(Phone) Or IsNull(email) Then
MsgBox "ERROR: All starred fields must be completed. Hit ESC twice to cancel record or fill in all starred fields"
Else
Resume New_Record_Macro_Exit
End If


End Function

[pbaldy]

You want that If block before the save line. You might also consider:

http://www.baldyweb.com/BeforeUpdate.htm

[rpeare]

you want this in the ON CLICK event of your button

If IsNull(FirstName) Or IsNull(LastName) Or IsNull(Address1) Or  IsNull(City) Or IsNull(State) Or IsNull(Zip) Or IsNull(Phone) Or  IsNull(email) Then
          MsgBox "ERROR: All starred fields must be completed. Hit ESC twice to cancel record or fill in all starred fields"
Else
      DoCmd.RunCommand acCmdSaveRecord
          DoCmd.GoToRecord acForm, "Entry", acNewRec
End If