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

时　间: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一致的号！

实例如下：

点击下载此附件

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