怎么在查询窗口显示指定路径的图片-程序输写jlac

shayanjing

[img=0,1]file:///C:\Documents and Settings\yejy\My Documents\Tencent Files\2789300993\Image\Group\G%MBR`S0(D_3C{7B61X%T@Y.png[/img]
本人是刚接触Access的，自己做了个简便的仓库管理套表，想在实时库存查询的在白色框中根据物料号显示同名（物料号）的图片。我按网上的教程设置了代码，但是没有反应，不知道哪里搞错的，请指教。（另：我下载了别人的案例，不知道为什么也是不显示）我的管理表数据都是链接EXCEL的，所以如果想下载看的朋友记得第一时间更新一下文件链接路径。
顺便留下本人QQ号：1142939472

jack5d

1. Private Sub form_current()
   
2. Dim photopath As String
   
3. photopath = CurrentProject.Path & "\昜蹋芞踱" & Me.物料號 & ".jpg"
   
4. If Dir(photopath) = "" Then photopath = CurrentProject.Path & "\昜蹋芞踱\& noimg.jpg"
   
5. Me.MF.Picture = photopath
   
6. End Sub

复制代码

photopath = CurrentProject.Path & "\昜蹋芞踱\" & Me.物料號 & ".jpg"
這句錯了

建議你, 控件名不要用中文名....不會英文可以拼音,否則日後各種錯

shayanjing

jack5d 发表于 2016-11-10 19:03
photopath = CurrentProject.Path & "\昜蹋芞踱\" & Me.物料號 & ".jpg"
這句錯了

那应该怎么弄，我已经将控件名改成wuliaohao，但是还是没有显示

jack5d

photopath = CurrentProject.Path & "\昜蹋芞踱\" & Me.你控件的名字 & ".jpg"

shayanjing

jack5d 发表于 2016-11-11 09:11
photopath = CurrentProject.Path & "\昜蹋芞踱\" & Me.你控件的名字 & ".jpg"

把变量控件名改为wuliaohao,来源物料号，但是按以下代码还是没有图片显示。也试过把CurrentProject.Path 改为全路径。都是一样


Private Sub form_current()
Dim photopath As String
photopath = CurrentProject.Path & "\物料图片库\" & Me.wuliaohao & ".jpg"
If Dir(photopath) = "" Then photopath = CurrentProject.Path & "\物料图片库\& noimg.jpg"
Me.MF.Picture = photopath
End Sub

jack5d

你試試放在 on Click事件內 我試過是沒有問題的

shayanjing

jack5d 发表于 2016-11-11 09:54
你試試放在 on Click事件內 我試過是沒有問題的

能把你可行的文件打包上传吗，我另下载过别人的例子也是显示不出，不知道是不是我用2007版本不能显示

jack5d

看漏了
If Dir(photopath) = "" Then photopath = CurrentProject.Path & "\物料图片库\& noimg.jpg"
正確:
If Dir(photopath) = "" Then photopath = CurrentProject.Path & "\物料图片库\noimg.jpg"

shayanjing

jack5d 发表于 2016-11-11 10:29
看漏了
If Dir(photopath) = "" Then photopath = CurrentProject.Path & "\物料图片库\& noimg.jpg"
正 ...

早期是这样写的，都试过了，刚刚改了，还是不行。这个有关不关版本问题？

jack5d

我測試是沒有任何問題的