Microsoft KB Archive/139041

= ACC: "Application-Defined or Object-Defined Error" Error Message =

Article ID: 139041

Article Last Modified on 1/19/2007

-

APPLIES TO


 * Microsoft Access 95 Standard Edition
 * Microsoft Access 97 Standard Edition

-



This article was previously published under Q139041



Moderate: Requires basic macro, coding, and interoperability skills.



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



CAUSE
The error message being trapped is Microsoft Access specific. When you pass an error number to the Error function that is not a Visual Basic for Applications specific error, Visual Basic for Applications does not call back into the hosting application to ask it for the error message.



RESOLUTION
Microsoft Access 7.0 introduced the new AccessError method that you can use to return the descriptive string associated with a Microsoft 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 Microsoft Access errors and Visual Basic errors. It will NOT return descriptive strings associated with data access errors.



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:

<pre class="fixed_text">      OnError: [Event Procedure] </li>  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 </li> View the form in Form view and click the New Record toolbar button to advance to a new Order record.</li>  Type the following line in the Bill To: combo box and press ENTER:

Hello World!

Note that you receive the following three messages:

<pre class="fixed_text">      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. </li> Click a customer in the Bill To: combo box list.</li>  Click Save Record on the Records menu. Note that you receive the following three messages:

<pre class="fixed_text">      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. </li></ol>

<div class="references_section">