PRB: Database Errors Not Shown When Closing Form

MORE INFORMATION

Steps to Reproduce

1. Start Visual Basic, or if it is already running, click New Project on the File menu.
2. Double click the data control button in the Toolbox to add a new data control, named Data1, to the form.
3. Set the following properties of Data1:

          DatabaseName: <path to your VB directory>\biblio.mdb
   						

   Leave the RecordSource property blank for now.
4. Click and drag two text boxes onto the form.
5. Set the DataSource property of both text boxes to Data1; also set the DataField property of Text1 to "Au_ID" and the DataField property of Text2 to Author.
6. Click and drag a command button, named Command1 by default, onto the form.
7. Add the following code to the Command1_Click procedure. This tells Jet that the Au_ID field must have a non-null value before it is committed to the database.

          Private Sub Command1_Click()
          Data1.Database.TableDefs("Authors").Fields("Au_ID").Required = True
          Data1.RecordSource = "Authors"
          Data1.Refresh
       End Sub
   						

   The line setting the Required property can't be placed in the Form_Load event because the connection to the database is not guaranteed to be valid until the Form_Load event is finished.
8. On the Run menu, click Start (ALT, R, S) or press F5 to start the application.
9. Press the Command1 button to set the Required property of the Au_ID field to True.
10. Select and delete the 1 in the Au_ID field of the first record. Now double-click the control box in the upper-left corner of the form to close the form. The database will be closed and no error will be raised.
    
    If you changed the current record or did an update after deleting the value in the Au_ID field, Visual Basic would have returned a "Data type conversion error." Open the database again and examine the Au_ID field of the first record; the 1 was never deleted (although this behavior is not guaranteed). Add the "Data1.UpdateRecord" line to the Form1_Unload event to allow the error to be shown and/or trapped.

   Private Sub Command1_Click()
   Data1.Database.TableDefs("Authors").Fields("Au_ID").Required = False
   End Sub