ACC: Conditionally Run AutoExec Macro in Automation Database

MORE INFORMATION

Conditionally Excluding AutoExec Macro Actions

1. Open the sample database Northwind.mdb.
2. In the Database window, click the Macros tab and then click New.
3. Create a new macro and save it as AutoExec:
   
   NOTE: On the View menu, click Conditions to display the Condition column in the macro.

          Condition                        Action
          ---------------------------------------
          Application.UserControl = True   MsgBox
   
          AutoExec Actions
          ------------------------------
          MsgBox
             Message: Opening Northwind
   					

4. Close the Northwind database.
5. Create a new blank database called Db1.mdb.
6. Create a module and type the following procedure:

          Function TestAuto()
             Static AccObj as Object, x as String
             x = _
               "C:\Program Files\Microsoft Office\" _
                   & "Office\Samples\Northwind.mdb"
             Set AccObj = GetObject(x)
          End Function
   					

7. To test this function, type the following line in the Debug window, and then press ENTER:

   ?TestAuto()

   Note that the Northwind database opens in a separate instance of Microsoft Access, but does not display the message box.
8. Close the Northwind database in the second instance of Microsoft Access.
9. Close the module in Db1.mdb without saving it, and then close the Db1.mdb database.
10. Open the Northwind sample database. Note that the message box appears.

Suspending Code Execution by Opening a Message Box

1. Repeat steps 1 through 4 in the previous example, but do not add the Condition in the AutoExec macro.
2. Create a module in Db1.mdb and type the following procedure:

         Function TestAuto2()
            Static AccObj as Object, x as String
            x = _
              "C:\Program Files\Microsoft Office\Office\Samples\Northwind.mdb"
            Set AccObj = GetObject(x)
            MsgBox "All Done!"
         End Function
   					

3. To test this function, type the following line in the Debug window, and then press ENTER.

   ?TestAuto2()

   Note that the Northwind database opens in a separate instance of Microsoft Access, but the "All Done!" message does not display until you switch to the Northwind instance of Microsoft Access, click the OK button in the message box, and then switch back to the Db1.mdb instance of Microsoft Access.