Access开发培训
网站公告
·Access专家课堂QQ群号:151711184    ·Access快速开发平台下载地址及教程    ·欢迎加入Access专家课堂微信群!    ·如何快速搜索本站文章|示例|资料    
您的位置: 首页 > 技术文章 > Access数据库-模块/函数/VBA

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


Access软件网QQ交流群 (群号:54525238)       Access源码网店

常见问答:

技术分类:

相关资源:

专栏作家

关于我们 | 服务条款 | 在线投稿 | 友情链接 | 网站统计 | 网站帮助