怎么向access数据库中添加照片以及批量打印数据库中的照片啊？请高手回答

到Access的 “罗斯文示例数据库” 中查看代码(在帮助菜单下的示例数据库），雇员管理的那个窗体就是添加图片的代码，打印则是类似。

下图就是“罗斯文示例数据库”管理雇员照片的窗体。

'On Error Resume Next

Dim mExcel As Object: Set mExcel = CreateObject("Excel.Application")

mExcel.Visible = True

Dim Wb As Object

Do While iName <>""

If iName <>Me.Label2.Name Then

Set Wb = mExcel.Worksheets.Open(iPath &iName)

For i = 1 To Wb.Worksheets.Count

'中间的 复制 黏贴

Next i

Wb.Close False

End If

IName = Dir

Loop

Set Wb = Nothing

mExcel.Quit

Set mExcel = Nothing

DoCmd.Hourglass False

End Sub