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

如何在窗体和报表中自动添加照片

时 间:2011-09-11 01:56:57
作 者:白桦林   ID:1536  城市:西安
摘 要:窗体、报表中添加照片
正 文:

    在窗体中添加照片前,请把要添加的照片的名称修改为和表中关键字段值一致的名称,后缀为.JGP

然后在窗体中添加以下代码:

Private Sub Form_Current()
 If Dir(Application.CurrentProject.Path & "\photo\" & Me.关键字段 & ".jpg") <> "" Then
  Me.Image1.Picture = Application.CurrentProject.Path & "\photo\" & Me.关键字段 & ".jpg"
 Else
  Me.Image1.Picture = Application.CurrentProject.Path & "\photo\no.jpg"
 End If
End Sub

注意事项:

1、代码中关键字段的名称必须和窗体中的关键字段的名称一致。

2、注意你添加的image的编号不一定是image1,要在代码中将image1修改和你创建的image一致的号!

 

实例如下

点击下载此附件

用上面的方法同样可以把照片添加至报表中。



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

常见问答:

技术分类:

相关资源:

专栏作家

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