请高手帮忙

林飞　发表于：2009-12-02 13:14:15 　

我在做一个人员管理系统，在网上找到了个显示照片代码，问题是没照片时不为空，会显示上一张照片，恳请高手帮我看看

Private Sub Form_Current()
On Error GoTo Err_Form_Current

Dim imgpath As String
imgpath = Application.CurrentProject.Path + "\" + 认证项目.Value + "\" + 姓名.Value + ".jpg"
If Dir(imgpath) = "" Then imgpath = Application.CurrentProject.Path + "\noimg.bmp"
stuimg.Picture = imgpath

Exit_Form_Current:
Exit Sub

Err_Form_Current:
'MsgBox Err.Description
Resume Exit_Form_Current
End Sub

Top

林飞发表于：2009-12-02 14:22:54

怎么没人来帮我啊

Top

trynew 发表于：2009-12-02 16:00:52

方法一：你把程序改为：

Private Sub Form_Current()
stuimg.Picture = dir(Application.CurrentProject.Path + "\" + 认证项目.Value + "\" + 姓名.Value + ".jpg")
End Sub

方法二：程序不变，放一个名称为“noimg.bmp”的图形文件在这个mdb文件的相同目录中。

你的程序是没有相应图片是显示当前目录中的noimg.bmp图片，连这个文件也没有时则不作任何改变。方法一是不显示任何图片。

Top

总记录：2篇页次：1/1 9 1 :

Access交流中心

请高手帮忙