如何利用VBA+Access 在窗体中动态显示图片呢?

我想用Access的VBA做一个窗体,上面会显示员工的照片。 我的思路是这样的: 员工的照片放在一个文件,以员工代码命名。
然后窗体那里有一段VBA代码:
Private Sub Form_Current()
Dim url As String
Dim no As String
Dim MyDb As Database '定义数据库对象
Dim MyDs As Recordset '定义数据集对象
Set MyDb = CurrentDb '数据库为当前数据库
Set MyDs = MyDb.OpenRecordset("SELECT 员工信息.StaffNo FROM 员工信息 INNER JOIN 上岗证信息 ON 员工信息.StaffName = 上岗证信息.yname ")
'strsql = "SELECT 员工信息.StaffNo FROM 员工信息 INNER JOIN 上岗证信息 ON 员工信息.StaffName = 上岗证信息.yname ;"
'url = strsql.Fields(0)
no = MyDs.Fields(0)
url = "D:\PHPNow\htdocs\photo\" + no + ".jpg"
Image57.Picture = url
End Sub

但是呢,这个在窗体装载的时候就显示了一个,更换员工的时候还是显示这个图片(没有显示相应员工的照片。
我知道应该是触发条件没设置好,
那么,我的触发条件应该设计成什么呢?
谢谢。。
触发条件是没有错的。
应该是那个查询的问题,他是去查询上岗信息表第一个记录,,
就是:
姓名 xxxxx xxx
张三
李四

现在就是,想看李四的时候,也会出现张三的信息。

现在这样也行(搞定):。。。
Private Sub Form_Current()
Dim na As String
Dim url As String
na = 员工姓名.Value
Image57.Visible = True
url = "D:\PHPNow\htdocs\photo\" + na + ".jpg"

On Error Resume Next
Image57.Picture = url
If Err.Number <> 0 Then
Err.Clear
Image57.Visible = False
End If
End Sub

第1个回答  2011-10-22
其实你可以参考罗斯文示例数据库中的显示图片的方法本回答被提问者采纳
相似回答