Change primary key error message ms access

[Nathan H]

I get the standard message on a form when a new record is created without supplying a new or valid primary key. Where can I put the On Error code so it will override the generic "Primary Key Can Not Contain a Null Value" and replace it with more detailed instructions.

[puppydogbuddy]

I get the standard message on a form when a new record is created without supplying a new or valid primary key. Where can I put the On Error code so it will override the generic "Primary Key Can Not Contain a Null Value" and replace it with more detailed instructions.

Hi Nathan,
If it is a trapable error, you can intercept it and display a custom message using the Form_Error event. See this link for a step by step:

http://www.databasedev.co.uk/custom-error-message.html

[Nathan H]

Hi Nathan,
If it is a trapable error, you can intercept it and display a custom message using the Form_Error event. See this link for a step by step:

http://www.databasedev.co.uk/custom-error-message.html

Hi pdb,

Yeah, the form error property works, but then is instantly followed by the standard "Primary Key/Null Value" message box.

I need to find a way to suppress that message, and then the form error property will due fine...

Nathan

[puppydogbuddy]

Hi pdb,

Yeah, the form error property works, but then is instantly followed by the standard "Primary Key/Null Value" message box.

I need to find a way to suppress that message, and then the form error property will due fine...

Nathan

Nathan,
If the error is a trapable error, issuing the Response = acDataErrContinue after you have trapped it and displayed your custom message is supposed to suppress the standard message. You followed the instructions in the link? And it is not working?? Can you post your code?

If DataErr = conErrRequiredData Then
        MsgBox ("Please ensure that you enter a First Name and Last Name")
        Response = acDataErrContinue
    Else
        'Display a standard error message
        Response = acdatadisplay
    End If

[Nathan H]

Got it now. for some reason I was getting an Error 3023 on the trap....after compacting the db I then got the correct Error 3058. Code works fine now:

Private Sub Form_Error(DataErr As Integer, Response As Integer)
 
'If an error occurs because of missing data in a required field
'display our own custom error message
 
    Const conErrRequiredData = 3058
 
    If DataErr = conErrRequiredData Then
        MsgBox ("Please add an author id to each new author entry")
        Response = acDataErrContinue
    Else
        'Display a standard error message
        Response = acdatadisplay
    End If
End Sub