图片

强　发表于：2010-06-17 22:29:16 　

附件，打印编号DSCF0005时，因为图片不存在，代码出错（如图片存在时，正常），请问怎样解决当存在的文件夹中不存在该图片时，提示文件不存在

煮江品茶发表于：2010-06-18 09:58:16

增加引用：Microsoft Scripting Runtime

Function B(StrPath As String) As Boolean
'功能：判断文件是否存在
'示例：B(CurrentProject.Path & "\图片\" & Me.图片地址)
Dim myFSO As New FileSystemObject
If myFSO.FileExists(StrPath) = True Then
B = True
Else
B = False
End If
End Function

Top

赵文斌发表于：2010-06-18 10:48:46

测试文件是否存在是必须的。光有这个还是达不到想要的效果。

Top

wyh99999 发表于：2010-06-18 12:50:59

在报表主体“格式化”事件中就煮江品茶老师的代码与你的代码改为：(同时要

增加引用（这是煮江品茶老师教的）：Microsoft Scripting Runtime）

'Me.img2.Picture = CurrentProject.Path & "\pic\" & Me.PNphoto

Dim myFSO As New FileSystemObject
Dim strPath As String
strPath = CurrentProject.Path & "\pic\" & Me.PNphoto
    ' CurrentProject.Path & "\图片\" & Me.图片地址
If myFSO.FolderExists(strPath) = True Then
        Me.img2.Picture = strPath
Else
        Me.img2.Picture = ""
End If

供你参考。

Top

赵文斌发表于：2010-06-18 13:44:10

点击下载此附件

Top

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

Access交流中心

图片