ACC2000: "Application-defined or object-defined error" Error (208704)

SYMPTOMS

If you use the Error() or Error$() functions to get the textual description of an error message, you may receive the following error message:

Application-defined or object-defined error

You may receive this error message when you try to get the description of an error trapped in a form's Error event as follows:

Private Sub Form_Error(DataErr As Integer, Response As Integer)
   MsgBox Error(DataErr)
   Response = acDataErrContinue
End Sub

RESOLUTION

Microsoft provides programming examples for illustration only, without warranty either expressed or implied. This includes, but is not limited to, the implied warranties of merchantability or fitness for a particular purpose. This article assumes that you are familiar with the programming language that is being demonstrated and with the tools that are used to create and to debug procedures. Microsoft support engineers can help explain the functionality of a particular procedure, but they will not modify these examples to provide added functionality or construct procedures to meet your specific requirements. You can use the AccessError method to return the descriptive string associated with an Access error as follows:

Private Sub Form_Error(DataErr As Integer, Response As Integer)
   MsgBox Application.AccessError(DataErr)
   Response = acDataErrContinue
End Sub

NOTE: The AccessError method will return a string associated only with Access errors and Visual Basic errors. It will not return descriptive strings associated with data access errors.

MORE INFORMATION

CAUTION: If you follow the steps in this example, you modify the sample database Northwind.mdb. You may want to back up the Northwind.mdb file and follow these steps on a copy of the database.

Steps to Reproduce Behavior

Open the sample database Northwind.mdb.
Open the Orders table in Design view.
Set the Required property of the EmployeeID field to Yes, and then close the table.
Click Yes to the following prompt:
Data integrity rules have been changed. Existing data may not be valid for the new rules.
This process may take a long time. Do you want the existing data to be tested with the new rules?
Open the Orders form in Design view and set the following form property: OnError: [Event Procedure]

Type the following code in the form module:

Private Sub Form_Error(DataErr As Integer, Response As Integer)
   MsgBox Error$(DataErr)
   MsgBox Application.AccessError(DataErr)
   Response = acDataErrDisplay
End Sub

View the form in Form view and click the New Record toolbar button to advance to a new Order record.
Type the following line in Bill To: and press ENTER:
Hello World!
Note that you receive the following three messages:
Application-defined or object-defined error.
The text you entered isn't an item in the list.
The text you entered isn't an item in the list.

NOTE: Because the Response variable is set to acDataErrDisplay, the error is not trapped. The third message above is the actual error message.
Click to select a customer in the Bill To: list.
Click Save Record on the Records menu. Note that you receive the following three messages:
Application-defined or object-defined error
< a message box with no text appears >
Field 'Orders.EmployeeID' can't contain a null value.
NOTE: The second message box is empty because the error generated is a data access error. The AccessError method does not return data access error messages.