ACC: How to Delete a Table Set in the RecordSource Property When Form Closes

MORE INFORMATION

1. Open the sample database Northwind.mdb (or NWIND.MDB in Microsoft Access 2.0).
2. Select the Customers table, and on the Edit menu, click Copy.
3. On the Edit menu click Paste.
4. In the Paste Table As dialog box, type Cust2 in the Table Name box.
5. Repeat steps 2 and 3 for the Customers form.
6. In the Paste As dialog box, type CustForm.
7. Create a module and type the following line in the Declarations section if it is not already there:

   Option Explicit

8. Type the following procedure:
   
   In Microsoft Access 7.0 and 97:

           Function CloseAndDelete ()
             Forms!CustForm.RecordSource = ""
             DoCmd.Close acForm, "CustForm"
             DoCmd.DeleteObject acTable, "Cust2"
           End Function
   
        In Microsoft Access 2.0:
   
           Function CloseAndDelete ()
             Forms!CustForm.RecordSource = ""
             DoCmd Close A_FORM, "CustForm"
             DoCmd DeleteObject A_TABLE, "Cust2"
           End Function
   						

9. Open the CustForm form in Design view and set the form's properties as follows:

   Caption: CustForm
   RecordSource: Cust2

10. Create a new command button in the detail section of the CustForm form and set its properties as follows:

    Command Button:m
    Name: Button0
    Caption: Close Form
    OnClick: =CloseAndDelete()

11. Save the CustForm form, and then view the form in Form view.
12. Click the Close Form button. Note that the form closes, the Cust2 table is deleted from the RecordSource property of the form, and the Cust2 table itself is deleted.