关于错误94的错误分析的问题

williamwangc

我做了一个图片显示的过程。不过有时候会出现错误94
原因很简单：“Me.整改后照片地址”是查询的一个字段，有些我照片的地址还没加上去，所以产生me.imgafter.picture没地址，所以产生错误。
所以我写了一个ERR
奇怪的是我写了这个ERROR后，错误是不出现了。但他的图是最后那那个图，而且一直不变。
我想把me.imgafter和me.imgbefore都变成我自己画的一个图“该图片不存在”。

1. Private Sub subLoadPicture()
   
2. On Error GoTo err:
   
3. Me.imgAfter.Picture = Me.整改后照片地址.Value
   
4. Me.imgAfter.SizeMode = acOLESizeStretch
   
5. Me.imgBefore.Picture = Me.整改前照片地址.Value
   
6. Me.imgBefore.SizeMode = acOLESizeStretch
   
7. Me.Form.Refresh
   
8. Exit Sub
   
9. err:
   
10. If err.Number = 94 Then
    
11.     If IsNull(Me.整改后照片地址) = True Then
    
12.     Me.imgAfter.Picture = CurrentProject.Path & "\该图片不存在.png"
    
13.     End If
    
14.     If IsNull(Me.整改前照片地址) = True Then
    
15.     Me.imgBefore.Picture = CurrentProject.Path & "\该图片不存在.png"
    
16.     End If
    
17. End If
    
18. End Sub

复制代码

aslxt

“CurrentProject.Path & "\该图片不存在.png"
加载是不是有问题？
这样是正常的：
Private Sub Form_Current()
    If IsNull(地址) Then
        Image6.Picture = "F:\lxt\My Pictures\Ashampoo Snap 6\图片不存在.jpg"
        Me.Image6.SizeMode = acOLESizeStretch
    Else
        Image6.Picture = Me.地址.Value
        Me.Image6.SizeMode = acOLESizeStretch
    End If
End Sub

williamwangc

aslxt 发表于 2013-5-31 18:26
“CurrentProject.Path & "\该图片不存在.png"
加载是不是有问题？
这样是正常的：

感谢楼上的，提醒我问题出在哪里。我会根据你的提议再修改下的。