ms-access - 以表单形式访问 2010 VBA 图片对象

Question

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

Private Sub Form_Current()
Image5.Picture = "C:\Users\Milad\Desktop\club imgs\" & Club_Name.Text & ".png"
End Sub

但这是不对的。
请帮忙？

Answer 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