ACC: How to Use the Quit Macro Action or Quit Method

Dynamic Data Exchange method

Quit
				

1. Open a new macro sheet in Microsoft Excel. On the Insert menu, click Macro, and then click MS Excel 4.0 Macro. Enter the following macro:

         Cell     Command
         ------------------------------------------------
         A1       QuitDDEExample
         A2
         A3       =APP.MINIMIZE()
         A4       =ERROR(FALSE)
         A5       =APP.ACTIVATE("Microsoft Access",FALSE)
         A6       chan=INITIATE("MSACCESS","system")
         A7       =APP.ACTIVATE("Microsoft Access",FALSE)
         A8       =EXECUTE(chan,"[QUIT]")
         A9       =TERMINATE(chan)
         A10      =APP.ACTIVATE(FALSE)
         A11      =RETURN()
   					

2. Before running this macro, size your Microsoft Access and Microsoft Excel windows so that you can view both applications at the same time.
3. To run the macro, select cell A3. On the Tools menu, click Macro. In the Macro box, click Run.

Automation Method

1. Open Microsoft Access.
2. Open Microsoft Excel (or another OLE server) and create a new macro. On the Insert menu, click Macro, and then click Module. This will insert a new module in the current book.
3. Type the following Sub procedure:

         Sub OleAccess()
            Dim appAccess as Object
            Set appAccess = GetObject(, "Access.Application")
            appAccess.Quit acSave
         End Sub
   					

4. To run this code, click Start on the Run menu, or call the Sub procedure from another procedure. When it runs, the GetObject() function is executed, setting the appAccess variable to the first available open instance of Microsoft Access. At the end, it closes Microsoft Access with appAccess.Quit.