ACC: Sample OLE Automation for MS Word and MS Excel

MORE INFORMATION

How to Activate Microsoft Word

The following example assumes a Microsoft Access table with an OLE object field called MyOle that contains embedded (not linked) Microsoft Word 6.0 objects. The example demonstrates how to create a command button that will activate Microsoft Word 6.0 in Normal view with the current Microsoft Word 6.0 object:

1. Create a form based on the table containing the MyOle field.
2. Add a bound object frame with the following properties to the form:

         Name: MyOle
         ControlSource: MyOle

3. Add a command button named Button2 to the form. Set the button's OnClick property to the following event procedure:

         Sub Button2_Click ()
            Dim Word_Obj As Object
            me!MyOle.verb = -2
            me!MyOle.action = 7
            Set Word_Obj = MyOle.object.application.wordbasic
            Word_Obj.ViewNormal
         End Sub
   						

How to Activate Microsoft Excel

The following example assumes a Microsoft Access table with an OLE object field called My_excel_ole that contains embedded (not linked) Microsoft Excel 5.0 objects. The example demonstrates how to create a command button that will activate Microsoft Excel with the current Microsoft Excel object:

1. Create a form based on the table containing theMy_excel_ole field.
2. Add a bound object frame with the following properties to the form:

         Name: My_excel_ole
         ControlSource: My_excel_ole

3. Add a command button named Button3 to the form. Set the button's OnClick property to the following event procedure:

         Sub Button3_Click ()
            My_excel_ole.class = "Excel.Sheet"
            My_excel_ole.verb = -2
            My_excel_ole.action = 7
            End Sub