Microsoft KB Archive/123859

= ACC: Sample OLE Automation for MS Word and MS Excel =

Article ID: 123859

Article Last Modified on 1/19/2007

-

APPLIES TO


 * Microsoft Access 2.0 Standard Edition
 * Microsoft Access 95 Standard Edition
 * Microsoft Access 97 Standard Edition

-



This article was previously published under Q123859



Moderate: Requires basic macro, coding, and interoperability skills.



SUMMARY
This article demonstrates how to activate Microsoft Word version 6.0 for Windows or Microsoft Excel version 5.0 for Windows from a command button on a Microsoft Access form.

This article assumes that you are familiar with Visual Basic for Applications and with creating Microsoft Access applications using the programming tools provided with Microsoft Access. For more information about Visual Basic for Applications, please refer to the "Building Applications" manual.

NOTE: Visual Basic for Applications (used in Microsoft Access version 7.0) is called Access Basic in version 2.0.



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:  Create a form based on the table containing the MyOle field.  Add a bound object frame with the following properties to the form: Name: MyOle ControlSource: MyOle   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:  Create a form based on the table containing theMy_excel_ole field.  Add a bound object frame with the following properties to the form: Name: My_excel_ole ControlSource: My_excel_ole </li>  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 </li></ol>

<div class="references_section">