Office中国论坛/Access中国论坛

标题: 关于引用的目标不存在时如何判断的问题 [打印本页]

作者: ty_1029 时间: 2009-10-14 22:06
标题: 关于引用的目标不存在时如何判断的问题
本帖最后由 ty_1029 于 2009-10-14 22:08 编辑

其实很简单,就是对当前窗体中的放置一个IMG控件,然后设定路径,通过下面的代码可以实现给IMG把图片加上

Me.Image0.Picture = "\\168.192.1.25\img\02.BMP"

复制代码

以后如果需要变更图片,只需要把文件夹下的02.BMP图片更换就可以了.

现在的问题想请教各位,
如果当02.BMP图片不存在的时候,我希望实现代码变化为:

Me.Image0.Picture = "\\168.192.1.25\img\moren.BMP"

复制代码

当然,存在的话,还是:

Me.Image0.Picture = "\\168.192.1.25\img\02.BMP"

复制代码

如何判断啊,请高手支照!!!!!

作者: wanshan 时间: 2009-10-15 09:10
关于此问题，用if then判断一下就可以了，在http://218.242.234.226/wanshan/mdbshell/index.asp中有涉及到，有兴趣的，可以看看！

作者: ty_1029 时间: 2009-10-16 11:50
看了一下，但还是不明白如何判断,我也知道要用IF做判断,但条件应该如何写呢~~

高手帮忙看一下吧~

作者: ty_1029 时间: 2009-10-16 14:54
各位老大,拜托了，期盼啊~~~~~~~~~~~

作者: wanshan 时间: 2009-10-16 15:27
本帖最后由 wanshan 于 2009-10-16 15:31 编辑

If Dir("\\168.192.1.25\img\02.BMP", vbDirectory) = ""  or isnull("\\168.192.1.25\img\02.BMP") Then
   Me.Image0.Picture = "\\168.192.1.25\img\moren.BMP"
Else
      Me.Image0.Picture = "\\168.192.1.25\img\02.BMP"
End If

作者: ty_1029 时间: 2009-10-16 16:44
谢谢老大,马上去试一下,呵呵,开心啊~~~~~~~~~~~

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