Microsoft KB Archive/161010

= ACC: How to Embed a Bitmap Object in a Report at Run Time =

Article ID: 161010

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 Q161010





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

This article shows you how to use code to embed a bitmap image in a report at run time. The example uses an image control instead of an OLE object frame to store the bitmap.

You can use Visual Basic for Applications code to embed an OLE object into a control on a form at run time. To use this method, however, you have to set the Enabled property of the control to Yes and the Locked property to No. In a report, OLE object controls do not have Enabled or Locked properties. To work around this behavior in reports, you can embed bitmaps and other graphic images in an image control.

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 your version of the "Building Applications with Microsoft Access" manual.



MORE INFORMATION
CAUTION: Following the steps in this example will modify the sample database Northwind.mdb. You may want to back up the Northwind.mdb file and perform these steps on a copy of the database.  Open the sample database Northwind.mdb. Open the Alphabetical List Of Products report in Design view. Add an image control to the detail section of the report, and set its Name property to Image0.

NOTE: The image control requires that you associate an image with it when you insert it in a form or report. In the Insert Picture dialog box select any bitmap (.bmp) file, such as C:\Windows\Circles.bmp.  Set the OnFormat property of the detail section to the following event procedure: Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer) Me!Image0.Picture = "C:\Windows\Circles.bmp" End Sub  Save the report and open it in Print Preview to view the bitmap image.</li></ol>

<div class="references_section">