Access开发平台--通用附件管理_报表显示图片方法；Access附件的照片怎么在报表里显示？在平台里面实现报表带图片的示例

时　间:2016-09-13 11:19:26
作　者:杨雪   ID：42182  城市：南京
摘　要:网友问：快速开发平台的 通用附件中的图片怎样打印出来。
正　文:

点击下载此示例

图   示:

部分代码：

Private Sub 打印_Click()
DoCmd.OpenReport "报表1", acViewPreview, , "客户ID = " & Me.客户ID
End Sub

'此代码写在报表的格式化事件
Private Sub 主体_Format(Cancel As Integer, FormatCount As Integer)
    Dim cnn As Object

    Me.txtAttachmentPath = GetParameter("Attachment Path", dbText, "")
    If Len(Nz(Me.txtAttachmentPath)) = 0 Then Me.txtAttachmentPath = CurrentProject.Path & "\Attachments\"
    If Left(Me.txtAttachmentPath, 2) = ".\" Then Me.txtAttachmentPath = CurrentProject.Path & Mid(Me.txtAttachmentPath, 2)
    If Right(Me.txtAttachmentPath, 1) <> "\" Then Me.txtAttachmentPath = Me.txtAttachmentPath & "\"
    Me!imgPictureView.Picture = Me.txtAttachmentPath & Me.Parent!客户类别 & "\" & txtAttachmentName
End Sub