浏览照片时提示运行时错误？

yanlj518

差一张photo2照片，浏览到这张照片时就提示运行时错误（应显示为空白），模仿了罗斯文的代码，还是没有解决，不知道代码怎么改？

Grant

Option Compare Database
Option Explicit

Private Sub Form_Current()
    Dim TempPhotoPath As String
    Dim MyPath As Variant
    TempPhotoPath = CurrentProject.Path & "\" & Me.图片地址 & ".jpg"
    MyPath = Dir(TempPhotoPath, vbNormal)
    If Len(MyPath) > 0 Then
        Me.照片.Visible = True
        Me.照片.Picture = TempPhotoPath

    Else
        Me![照片].Visible = False
    End If
End Sub

yanlj518

谢谢！又使我学会了一种判断图片存在显示的方法，还有一种方法就是用GETATTR函数判断，但我很想知道这种用罗斯文示例数据库判断的代码为何不行呢，原库中用得很好，不知错在哪里，能再次赐教吗？

yinghua05

顶一下！