在窗体中添加照片前,请把要添加的照片的名称修改为和表中关键字段值一致的名称,后缀为.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一致的号!
实例如下:
点击下载此附件
用上面的方法同样可以把照片添加至报表中。