Office中国论坛/Access中国论坛

标题: 怎么样让Access窗体图片控件从多个文件夹依次找图片显示 [打印本页]

---

作者: levo    时间: 2016-12-25 21:32
标题: 怎么样让Access窗体图片控件从多个文件夹依次找图片显示
blog.sina.com.cn/s/blog_7238e3210100ydnm.html
从上边博客看了文章，实现在Access窗体中显示指定路径的图片
自己想要的效果是文件夹1找不到图片，再从文件夹2找,都找不到再显未空白图片 请帮忙看一下怎么改，谢谢啦Private Sub Form_Current()

Dim PhotoPath As String

Dim PhotoPath2 As String

PhotoPath = CurrentProject.Path & "\主图\" & Me![产品编号] & ".jpg"

PhotoPath2 = CurrentProject.Path & "\副图\" & Me![产品编号] & ".jpg"

If Dir(PhotoPath) = "" Then

PhotoPath = CurrentProject.Path & "\副图\" & Me![产品编号] & ".jpg"

ElseIf Dir(PhotoPath2) = "" Then

PhotoPath = CurrentProject.Path & "\2.jpg"

Else

End If

Me.pic.Picture = PhotoPath

End Sub

不知道哪错了，还是只能在两个文件夹里找图片

---

作者: yanwei82123300    时间: 2016-12-26 09:32
参考罗斯文的系统例子，里面有关于图片和明细对照

---

作者: roych    时间: 2016-12-26 10:19
else部分还是加上再看看吧。

1. Sub Form_Current()
   
2. Dim PhotoPath As String
   
3. Dim PhotoPath2 As String
   
4. PhotoPath = CurrentProject.Path & "\主图" & Me![产品编号] & ".jpg"
   
5. PhotoPath2 = CurrentProject.Path & "\副图" & Me![产品编号] & ".jpg"
   
6. If Dir(PhotoPath) = "" Then
   
7. PhotoPath = PhotoPath2
   
8. ElseIf Dir(PhotoPath2) = "" Then
   
9. PhotoPath = CurrentProject.Path & "\2.jpg"
   
10. Else
    
11. PhotoPath=""
    
12. End If
    
13. Me.pic.Picture = PhotoPath
    
14. End Sub

复制代码

---

作者: levo    时间: 2016-12-27 23:04

roych 发表于 2016-12-26 10:19
else部分还是加上再看看吧。

你的代码试了 ，还是一样会在两个文件夹里找图片，如果图片为空，会弹出提示。
Private Sub Form_Current()
Dim PhotoPath As String
PhotoPath = CurrentProject.Path & "\主图\" & Me![产品编号] & ".jpg"
If Dir(PhotoPath) = "" Then
PhotoPath = CurrentProject.Path & "\noimg.jpg"
End If
Me.pic.Picture = PhotoPath
End Sub
最初的代码是这个，本人小白，谁能帮修改下代码 谢谢啦

---

作者: levo    时间: 2016-12-27 23:09

yanwei82123300 发表于 2016-12-26 09:32
参考罗斯文的系统例子，里面有关于图片和明细对照

用的是2013版的 在帮助里边没找到跟图片有关的内容

---

作者: yanwei82123300    时间: 2016-12-28 08:02
论坛里搜索一下

---

作者: levo    时间: 2016-12-28 22:42
Private Sub Form_Current()
Dim PhotoPath As String
Dim PhotoPath2 As String
PhotoPath = CurrentProject.Path & "\主图\" & Me![产品编号] & ".jpg"
PhotoPath2 = CurrentProject.Path & "\副图\" & Me![产品编号] & ".jpg"
If Dir(PhotoPath) <> "" Then
Me.pic.Picture = PhotoPath
ElseIf Dir(PhotoPath2) <> "" Then
Me.pic.Picture = PhotoPath2
Else
Me.pic.Picture = CurrentProject.Path & "\2.jpg"
End If
End Sub
这个试了终于可以了 如果文件夹里的图片分成多个子分件夹还能显示就好了 期待大神分享

---

作者: 风中漫步    时间: 2016-12-29 13:29
早有遍历文件夹的代码，你找找

---

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

Powered by Discuz! X3.3