Office中国论坛/Access中国论坛

标题: 关于错误94的错误分析的问题 [打印本页]

作者: williamwangc 时间: 2013-5-30 20:03
标题: 关于错误94的错误分析的问题
本帖最后由 williamwangc 于 2013-5-30 20:06 编辑

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

Private Sub subLoadPicture()
On Error GoTo err:
Me.imgAfter.Picture = Me.整改后照片地址.Value
Me.imgAfter.SizeMode = acOLESizeStretch
Me.imgBefore.Picture = Me.整改前照片地址.Value
Me.imgBefore.SizeMode = acOLESizeStretch
Me.Form.Refresh
Exit Sub
err:
If err.Number = 94 Then
If IsNull(Me.整改后照片地址) = True Then
Me.imgAfter.Picture = CurrentProject.Path & "\该图片不存在.png"
End If
If IsNull(Me.整改前照片地址) = True Then
Me.imgBefore.Picture = CurrentProject.Path & "\该图片不存在.png"
End If
End If
End Sub

复制代码

作者: aslxt 时间: 2013-5-31 18:26
本帖最后由 aslxt 于 2013-5-31 19:06 编辑

“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 时间: 2013-5-31 20:37

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

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

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)