请教能者帮助

健忘　发表于：2013-08-18 18:24:42 　

Private Sub Form_Current()
Dim PhotoPath As String

PhotoPath = CurrentProject.Path & "\照片\" & Me![姓名] & ".jpg"
If Dir(PhotoPath) = "" Then PhotoPath = CurrentProject.Path & "\mon.jpg"

Me.Image50.Picture = PhotoPath
End Sub

运行这段显示照片程序，当“照片”文件夹中没有要查找的学生照片时，会出现下面对话框.点击【结束】能跳过运行，总是点击【结束】很是麻烦。想请能者帮忙：修改上面代码，使得下面的对话框不出现。也就是运行时用程序屏蔽掉这个有时出现的对话框，而不是别的方法。

123木头人发表于：2013-08-18 23:47:34

偷懒的解决办法：

Private Sub Form_Current()

On Error Resume Next
Dim PhotoPath As String

PhotoPath = CurrentProject.Path & "\照片\" & Me![姓名] & ".jpg"
If Dir(PhotoPath) = "" Then PhotoPath = CurrentProject.Path & "\mon.jpg"

Me.Image50.Picture = PhotoPath
End Sub

友好的解决办法：

Private Sub Form_Current()

On Error GoTo ErrorHandler
Dim PhotoPath As String

PhotoPath = CurrentProject.Path & "\照片\" & Me![姓名] & ".jpg"
If Dir(PhotoPath) = "" Then PhotoPath = CurrentProject.Path & "\mon.jpg"

Me.Image50.Picture = PhotoPath

ExitHere:
    Exit Sub
ErrorHandler:
        MsgBoxEx "对不起！没有找到你要的学生照片。", vbCritical
        Resume ExitHere
End Sub

健忘发表于：2013-08-19 11:04:43

谢谢123木头人（对不起，只能这样称呼），　“偷懒的解决办法'解决了我的问题。运行”友好的解决办法'时提示错误，子程序未定义 MsgBoxEx。

123木头人发表于：2013-08-19 12:07:41

MsgBoxEx是快速平台的函数，如果你没有用快速平台，你可以改成MsgBox

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

Access交流中心