ACC: No Warning Closing a Form with a Required Field Left Null

RESOLUTION

1. Start Microsoft Access and create a new database.
2. Create the following new table:
   

         Table:   Table1
         ------------------
         Field Name: Field1
            Data Type: Text
             Required:  Yes
         Field Name: Field2
            Data Type: Text
             Required:   No
   						

3. Close and save the table as Table1. Do not add a primary key when prompted.
4. In the Database window, select the Table1 table, and then on the Insert menu, click AutoForm.
5. View the form in Design view and add a new command button as follows:
   

         Name: CloseForm
         Caption: Close Form
   						

6. Set the CloseForm command button's OnClick property to the following event procedure:
   
   NOTE: In the following sample code, an underscore (_) at the end of a line is used as a line-continuation character. If you are using Microsoft Access 2.0, remove the underscore from the end of the line when re-creating this code.
   

         If IsNull(Me![Field1]) Then
           If MsgBox("'Field1' must contain a value." & Chr(13) & Chr(10) & _
           "Press 'OK' to return and enter a value." & Chr(13) & Chr(10) & _
           "Press 'Cancel' to abort the record.", _
           vbOKCancel, "A Required field is Null") = vbCancel Then
                DoCmd.Close
                ' For Access 2.0 remove the previous line and replace with:
                ' DoCmd Close
           Else
                Me![Field1].SetFocus
           End If
         Else
           DoCmd.Close
         End If
   						

7. View the form in Form View.
8. Type any data in Field2 and click the Close Form button. Note that you receive a message stating that Field1 must contain a value.