error message 3022

[jamesgtierney]

Hi
I wish someone could help me
I have a simple form in my access database for a hairdressing salon
when i place an appointment i have a piece of simple code to replace error message 3022

here is the code




Option Compare Database


Private Sub Form_Error(DataErr As Integer, Response As Integer)
If DataErr = 3022 Then
MsgBox ("This appointment has already been booked")
Response = 0
End If
End Sub

it works when I add a new appointment but i need to add nav buttons
but when i add them the custom message doesnt work.
can anyone help me.

James

[orange]

cross posted http://www.access-programmers.co.uk/...d.php?t=284350

James,

It's OK to cross post, just tell readers you have done so.

Here's why.

[Missinglinq]

Looking at the cross post, you're creating problems, I think, by trying to add a custom error message to your 'add record' button code! Once the custom error message is handled in the Form_Error event, as you've done, it will always display this message for Error 3022, regardless of what event triggers the error! To repeat...your code only needs to be in the Form_Error event.

Linq ;0)>