以表单形式访问 2010 VBA 图片对象答案

【问题标题】：Access 2010 VBA Picture Object in Form以表单形式访问 2010 VBA 图片对象
【发布时间】：2012-06-06 18:03:50
【问题描述】：

我有一个带有一个字段（club_name）的表单可以访问，我在这个表单中有一个图片对象。在文件夹的某个地方，我有一些图片 (*.png)，每个俱乐部的图片与我的表格中的记录相同。例如，我有一个记录“FCB”，在那个文件夹中我有一个图片“FCB.png”。我自己的代码是这样的：

私有子表单_Current()
Image5.Picture = "C:\Users\Milad\Desktop\club imgs\" & Club_Name.Text & ".png"
结束子

但这是不对的。
请帮忙？

【问题讨论】：

标签： ms-access

【解决方案1】：

不要引用控件的文本属性。它仅在控件具有焦点时可用。如果必须使用属性，请使用值。

Me.Image5.Picture = "C:\Users\Milad\Desktop\club imgs\" & Me.Club_Name & ".png"

您还可以通过使用“真实”名称来检查这一切是否正常：

Me.Image5.Picture = "C:\Users\Milad\Desktop\club imgs\FCB.png"

重新评论

sPath = CurrentProject.Path & "\"
sBlank = "Blank.png" ''Your own default empty picture

If IsNull(Me.Club_Name) Then
    sFile = sBlank
Else
    ''Does the file exist? Note: Use FilesystemObject
    ''instead if you are working network paths.

    sFile = Dir(sPath & Me.Club_Name & ".png")

    ''Empty string ("")
    If sFile = vbNullString Then
        sFile = sBlank
    End If
End If

Me.Image5.Picture = sPath & sFile

【讨论】：

如果图片不匹配并形成下一个？
如果有人在他的计算机上复制我的数据库文件夹（数据库文件夹包含俱乐部文件夹-俱乐部文件夹包含图片），我想使用一个函数来向我发送这样的数据库路径：DatabasPath & "\club imgs\" & me.club_name & ".png"
数据库文件夹是CurrentProject.Path。我不确定您的第一条评论是什么意思？
我的意思是如果图片名称与字段名称不匹配或图片不存在，则表单显示空白图片。