Access交流中心

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

Access问答 → 读取图片对应的路径！

[5分]读取图片对应的路径！

菜鸟　 发表于：2017-04-11 10:41:03 　
复制



    Dim KH As Long

    Dim strpath As String
    strpath = Nz(DLookup("ImgePath", "Tbl_Picture_ImgePath"), "")
    KH = CLng(Mid(Me.StyleNo, 2, 5))
    If KH <= 1000 Then
        Me.ImgePath = strpath & "\1000\" & Me.StyleNo & ".jpg"
    End If
    If 1000 < KH <= 2000 Then
        Me.ImgePath = strpath & "\2000\" & Me.StyleNo & ".jpg"
    End If
    If 2000 < KH <= 3000 Then
        Me.ImgePath = strpath & "\3000\" & Me.StyleNo & ".jpg"

    End If


....................

把款式数值在不同的范围，取对应方文件夹的图片，，我这样写，为什么不行呀，各位老师能指导一下吗，，能做模块自动取值那更好，不用写太多对应的代码，非常地感谢


 

Top
杜超 发表于：2017-04-11 11:26:14
要用循环 do loop

Top
杜超 发表于：2017-04-11 11:26:32
各种循环语句的用法[Access软件网]
http://www.accessoft.com/article-show.asp?id=5334

Top
菜鸟 发表于：2017-04-11 21:49:08
不知如何改呀，老师能指点一下吗？

Top
菜鸟 发表于：2017-04-12 20:48:02
各位老师，求教一下！

Top
乔峰 发表于：2017-08-14 18:49:04

能这么写吗   If 1000 < KH <= 2000 Then

KH<=2000  得到 true   , 然后  1000 < true ?????

 

应该这样做 
If  KH >1000 and KH<= 2000 Then  

 

也可以用SELECT case



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

Access软件网 版权所有 CopyRight 2006-2030
上海盟威软件有限公司 提供支持
沪ICP备12024966号-4