判断文件夹下是否存在指定名称的文件

pbcwn2008　发表于：2013-07-20 10:42:42 　

在报表中有姓名、身份证号、身份证复印件三个字段，其中姓名、身份证号存储文本，数据源来中表，身份证复印件存储图像，图像存在一个文件夹下，以下代码能实现根据身份证号不同而动态显示其身份证复印件。但是如果指定的身份证复印件不存在则会报错。

Private Sub 主体_Format(Cancel As Integer, FormatCount As Integer)
Me.img2.Picture = CurrentProject.Path + "\Photo\" & Me.身份证号 & ".jpg"
End Sub

我想加个判断语句，如果文件存在就加载该文件；如果文件“身份证号.jpg”不存在，就加载文件“无照片.jpg”。

不知怎么写代码？请教各位老师，谢谢！

落尘_小新发表于：2013-07-20 11:00:16

Private Sub 主体_Format(Cancel As Integer, FormatCount As Integer)

If Dir(CurrentProject.Path + "\Photo\" & Me.身份证号 & ".jpg") = "" Then

Me.img2.Picture = CurrentProject.Path + "\Photo\无照片.jpg"
Else
Me.img2.Picture = CurrentProject.Path + "\Photo\" & Me.身份证号 & ".jpg"

End If

End Sub

沈军发表于：2013-07-21 17:13:27

楼上的与本人解决方法一致，但文件 “无照片.JPG”不存在呢？

Private Sub 主体_Format(Cancel As Integer, FormatCount As Integer)

if dir(CurrentProject.Path & "\Photo\" & Me.身份证号 & ".jpg")<>"" then

Me.img2.Picture = CurrentProject.Path + "\Photo\" & Me.身份证号 & ".jpg"

else

Me.img2.Picture = ""

endif

End Sub

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

Access交流中心