使用vba将位图图像保存为Access窗体上的.bmp文件

时间:2019-07-02 13:34:48

标签: vba ms-access-2010 bitmapimage

我的最终目标是将图像插入单词的书签中,作为较大报告的一部分。使用通过表单提交的访问数据库上的信息。

如果将图像保存到计算机上的文件中,则可以使用vba将图像插入单词书签中。

但是,我无法确定如何在访问表单中将位图图像保存到计算机上的文件中。

任何帮助将不胜感激。

我一直在尝试使用SaveToFile来完成此操作,但是没有成功。

使用下面的代码,我不断收到错误消息“ Object Required”。

Private Sub SaveImages_Click()

'Attempting to save bitmap image from database to file, then delete the 
image from the database.
Dim data As DAO.Recordset
Set data = CurrentDb.OpenRecordset("Tbl1")
vID = Me.Visit_ID
 While data.EOF = False
            'Check for match
            If data.Fields.Item(25).Value = vID Then
            'Get Value
            data.Fields(48).Value.SaveToFile ("C:temp")
            'Exit Loop
            data.MoveLast
            End If
            data.MoveNext
        Wend
End Sub

0 个答案:

没有答案