Microsoft KB Archive/158929

= ACC: Programmatically Link or Embed an Object in a Form (95/97) =

Article ID: 158929

Article Last Modified on 1/19/2007

-

APPLIES TO


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

-



This article was previously published under Q158929



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



SUMMARY
This article shows you how to programmatically link or embed an object in an unbound object frame on a form by using the object frame properties in Microsoft Access.



MORE INFORMATION
You can set the object frame Action property at run time to perform a number of operations on an object frame. These operations include the ability to link and embed objects in an object frame, as well as other operations for programmatic access to OLE functionality.

There are other object frame properties that you must set before you set the Action property. Those other properties depend on the type of OLE object you are working with, and the type of action you want to perform using the Action property.

Linking or Embedding an OLE Object
To link or embed an OLE object in an unbound object frame on a form, first set the following properties of the frame:


 * OLETypeAllowed: Set to acOLELinked to indicate the OLE field will contain a linked object, acOLEEmbedded for an embedded object, or acOLEEither for either linked or embedded.
 * SourceDoc: Set to the path and file name of the file to be linked or embedded. Do not set this property if you are creating an empty OLE object.
 * Class: Set to the class name of the file extension. You can get the class from the Windows registry file in HKEY_CLASSES_ROOT listed under the file extension. You can also find the information in the documentation for the application supplying the object. This property may not be required, depending upon the OLE server and object being used.
 * SourceItem: Indicates the portion of data in the source document to link to. For example, it can be a cell or cell range in a Microsoft Excel spreadsheet or a bookmark in a Microsoft Word for Windows document. This property setting is optional.

After you set these properties, you can set the Action property to acOLECreateLink to link an object in the object frame, or acOLECreatEmbed to embed an object.

The following methods show examples of both linking and embedding an OLE object in an unbound object frame.

Method to Link an OLE Object
 Start Microsoft Excel.  Create a new spreadsheet with the following entries:       A1 : Name             B1 : Salary  C1 : Dept.   D1 :  Qty Sold A2 : Nancy Davolio   B2 : 16,000  C2 :     9   D2 :        19 A3 : Andrew Fuller   B3 : 25,000  C3 :     3   D3 :       129 A4 : Michael Suyama  B4 : 28,500  C4 :     3   D4 :       234 A5 : Janice Leverling B5 : 30,000 C5 :    12   D5 :       199 A6 : Linda Callahan  B6 : 50,000  C6 :     9   D6 :       126 A7 : Johnathan King  B7 : 50,000  C7 :    12   D7 :        45  Save the spreadsheet as TestOLEAuto.xls, and then quit Microsoft Excel. Start Microsoft Access. Create a new form not based on any table or query in Design view. Add an unbound object frame control to the detail section of the form.</li> In the Insert Object dialog box, click Create New, and then select Microsoft Excel Worksheet in the Object Type box. Click OK, and then quit Microsoft Excel when it starts.</li> Set the Name property of the unbound object frame to OLEExcelSheet.</li> Add a command button to the form, and set its Name property to cmdOLEAuto.</li>  Set the OnClick property of the cmdOLEAuto command button to the following event procedure: Private Sub cmdOLEAuto_Click

On Error GoTo Error_cmdOleAuto_Click With Me![OLEExcelSheet] .Enabled = True .Locked = False ' Specify what kind of object can appear in the field. .OLETypeAllowed = acOLELinked ' Class statement--optional for Excel worksheet. .Class = "Excel.Sheet" ' Specify the file to be linked. ' Type the correct path name. .SourceDoc = "c:\ \TestOLEAuto.xls" ' Range statement--optional for Excel worksheet. .SourceItem = "R1C1:R7C4" ' Create the linked object. .Action = acOLECreateLink ' Optional size adjustment. .SizeMode = acOLESizeZoom End With Exit_cmdOLEAuto_Click: Exit Sub Error_cmdOleAuto_Click: MsgBox CStr(Err) & " " & Err.Description Resume Exit_cmdOLEAuto_Click End Sub </li> Save the form as frmOLEAutoLink.</li> Open the form in Form view and click the cmdOLEAuto command button. Note that the TestOLEAuto.xls spreadsheet appears in the form.</li></ol>

Method to Embed an OLE Object
<ol> Start Microsoft Word.</li> Create a new document and type some text into it.</li> Save the document as TestOLEAuto.doc, and then quit Microsoft Word.</li> Start Microsoft Access.</li> Create a new form not based on any table or query in Design view.</li> Add an unbound object frame control to the detail section of the form.</li> In the Insert Object dialog box, click Create New, and then select Microsoft Word Document in the Object Type box. Click OK, and then quit Microsoft Word when it starts.</li>  Set the following properties for the unbound object frame: <pre class="fixed_text">     Unbound Object Frame Name: OLEWordDoc Height: 11"                       </li> Add a command button to the form, and set its Name property to cmdOLEAuto.</li> <li> Set the OnClick property of the cmdOLEAuto command button to the following event procedure:              Private Sub cmdOLEAuto_Click          On Error GoTo Error_cmdOLEAuto_Click          With Me![OLEWordDoc]             .Enabled = True             .Locked = False             ' Specify what kind of object can appear in the field.             .OLETypeAllowed = acOLEEmbedded             ' Class statement for Word document.             .Class = "Word.Document"             ' Specify the file to be embedded.             ' Type the correct path name.             .SourceDoc = "c:\ \TestOLEAuto.doc"             ' Create the embedded object.             .Action = acOLECreateEmbed             ' Optional size adjustment.             .SizeMode = acOLESizeZoom          End With Exit_cmdOLEAuto_Click: Exit Sub Error_cmdOLEAuto_Click: MsgBox CStr(Err) & " " & Err.Description Resume Exit_cmdOLEAuto_Click End Sub </li> <li>Save the form as frmOLEAutoEmbed.</li> <li>Open the form in Form view and click the cmdOLEAuto command button. Note that the TestOLEAuto.doc document appears in the form.</li></ol>

<div class="references_section">