Trap Error

[burrina]

Follow up question. Since I have a Composite Index to prevent duplicates I get the error message. How can I trap this?

I resolved it with this code.

Thanks,

'Trap Error.
Dim DataErr As Integer
Dim Response As Integer
Dim Message As String
If DataErr = 3022 Then 'Duplicate value entered
Response = acDataErrContinue
End If

 

[gemma-the-husky]

Either pre-test for clashes in the before update event.

Or trap the 3022 error in the forms error event.

 

[jdraw]

burrina,

If you don't have MZTools for VBA, get it. It can add a generic error handler to your procedures with 1 click. You can customize the logic with the 3022 etc.

It does a lot more, also.
Good luck.