Access交流中心

北京 | 上海 | 天津 | 重庆 | 广州 | 深圳 | 珠海 | 汕头 | 佛山 | 中山 | 东莞 | 南京 | 苏州 | 无锡 | 常州 | 南通 | 扬州 | 徐州 | 杭州 | 温州 | 宁波 | 台州 | 福州 | 厦门 | 泉州 | 龙岩 | 合肥 | 芜湖 | 成都 | 遂宁 | 长沙 | 株洲 | 湘潭 | 武汉 | 南昌 | 济南 | 青岛 | 烟台 | 潍坊 | 淄博 | 济宁 | 太原 | 郑州 | 石家庄 | 保定 | 唐山 | 西安 | 大连 | 沈阳 | 长春 | 昆明 | 兰州 | 哈尔滨 | 佳木斯 | 南宁 | 桂林 | 海口 | 贵阳 | 西宁 | 乌鲁木齐 | 包头 |

窗体中绑定图片刷新问题

Lee  发表于:2010-07-28 20:21:56  
复制

我在查询窗体中绑定图片路径,图片随输入的查询条件而变化,但如果有些记录没图片(或未绑定路径),则图片显示之前查询记录的图片而没及时刷新。

例如查询条件中输入产品编号“1234”会显示出产品“1234”相应的图片,再在查询条件中输入产品编号“5678”查询(假设产品5678暂时没图片),但图片还停留在产品“1234”不能刷新。

我想得到的结果是:没图片的话,只显示空白。

请问代码要如何设置?

 

Top
wyh99999 发表于:2010-07-28 20:54:03

如果图片路径为空时就可以: Me.图片.Picture = ""

If Dir(strpath) <> "" Then
      Me.图片.Picture = strpath
  Else
     Me.图片.Picture = ""
  End If



Lee 发表于:2010-07-29 09:19:30

不行啊,按你所讲写代码如下:

Private Sub Form_Current()
On Error Resume Next
Me!Image36.Picture = Me!产品图示
If Dir(strpath) <> "" Then
      Me.Image36.Picture = strpath
  Else
     Me.Image36.Picture = ""
  End If
End Sub

有图片的记录打开后只显示一次(闪了一闪)就不显示了。



wyh99999 发表于:2010-07-30 15:55:26

这我就不会了。这有一例,供您参考:http://www.accessoft.com/bbs/showtopic.asp?ID=8348



Lee 发表于:2010-07-30 23:57:38
我以为问题只是小菜一碟,放到论坛上就很快能解决,看来是我把问题想得太简单了。

Lee 发表于:2010-08-18 22:13:13
if dir(图片路径)<>"" then
me.Image1.Picture =图片路径
else
me.Image1.Picture=""
end if

在另一个access论坛得到答案,问题解决了。

if dir(图片路径)<>"" then
me.Image1.Picture =图片路径
else
me.Image1.Picture=""
end if

 



总记录:5篇  页次:1/1 9 1 :