Custom Erorr Message?

[fard]

Hi Everyone
i have a table with tow column "Err Number" And "Custom Message"
now! Please help me that how can i use the onErorr event to change the default message with my "Custom Message" by using this table.
i now that i can use this metode for one message.

if DataErr = 0000 then
 msgbox  "xxxxxxxxxx"
Response=acDataErrContinue
end if
 

but for all Erorr i have to Write all Message but by using this table i think that i can solve this Problem So Please Help Me.Sorry for my poor english
Regards.
[email removed]

[missinglinq]

Assuming the following:
Custom Message Table name = CustomErrorTable
Custom Message field = ErrorDescription
Error Number field = ErrorNumber

Private Sub Form_Error(DataErr As Integer, Response As Integer)
  CustomMessage = DLookup("[ErrorDescription]", "CustomErrorTable", "[ErrorNumber] =" & DataErr)
  resp = MsgBox(CustomMessage, vbExclamation)
  Response = acDataErrContinue
End Sub
 

If you go to copy and paste the code, don't forget to scroll and get the hidden part of the code!

[missinglinq]

Note that the above code is dependent on CustomErrorTable having a comprehensive list of error codes! I used such a table and then changed the messages for the errors I was concerned with!

[missinglinq]

To avoid having to use a comprehensive list of error codes, I've modified the above code (added the bolded code) so that an error code not listed in your custom error table will be handled by Access' own error message.

Private Sub Form_Error(DataErr As Integer, Response As Integer)
 If DCount("[ErrorNumber]", "CustomErrorTable", "[ErrorNumber] =" & DataErr) > 0 Then
 CustomMessage = DLookup("[ErrorDescription]", "CustomErrorTable", "[ErrorNumber] =" & DataErr)
resp = MsgBox(CustomMessage, vbExclamation)
Response = acDataErrContinue
 End If
End Sub