Access交流中心

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

请帮我帮我,我写个程序加了图片不能模糊查询了

同同  发表于:2013-04-11 23:34:33  
复制

我写了一个软件就是模糊查询带有图片的。但显示图片就不能模糊查询了。真么加上图片还可以模糊查询。谢谢了单击下载单击下载请大家帮帮我。真的想不出来了。加了图片还能模糊查询。

 

Top
jia 发表于:2013-04-12 07:16:11

你的表中无有图片地址。参考一这个例子“我的图片浏览器”

http://www.accessoft.com/article-show.asp?id=6030



同同 发表于:2013-04-12 09:50:35
我还是没有弄好,我想这个里面加上图片。输入关键字能看见到相应的信息和图片。�������ش˸���能不能再这个上面加个图片功能,我还是不太会。谢谢老师了

jia 发表于:2013-04-12 15:46:30

修改好了。是这种效果吗?

�������ش˸���



同同 发表于:2013-04-12 23:19:39
为什么选择投产订单号就会有错误出现
Private Sub txttcdh_AfterUpdate()
If Dir(Application.CurrentProject.Path & "\图片\" & Me.txttcdh & ".jpg") <> "" Then
  Me.Image26.Picture = Application.CurrentProject.Path & "\图片\" & Me.txttcdh & ".jpg"
 Else
  Me.Image26.Picture = Application.CurrentProject.Path & "\图片\0无照片.jpg"
 End If
End Sub
应该什么改写,我不太会,还在学习中请老师指点指点。


jia 发表于:2013-04-13 07:06:55

将这个代码删除即可。

Private Sub txttcdh_AfterUpdate()
If Dir(Application.CurrentProject.Path & "\图片\" & Me.txttcdh & ".jpg") <> "" Then
  Me.Image26.Picture = Application.CurrentProject.Path & "\图片\" & Me.txttcdh & ".jpg"
 Else
  Me.Image26.Picture = Application.CurrentProject.Path & "\图片\0无照片.jpg"
 End If



jia 发表于:2013-04-13 07:10:14
同同 发表于:2013-04-14 23:01:10

老师为什么我在2003版的accsee导出excel表提示错误,在2007版就没有什么问题是好好的。这段代码怎么改写



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