不同的字段名称怎么显示相同的图片?

sunny-xie

(图1)

如库,选me.zuhe1不同的名称(CX02,NL0102,test,test1)带出的图片里,图1红圈这个位置显示的都是同一张图片,
但现在是通过创建不同名字相同内容的图片来做到的,这样就会重复很多工作,能否让图片共用,也就是说相同的图片
只需一张就可以了?

ui

链接到同一个图片路径

sunny-xie

可能没看库, 现在实现的方法是这样的,图片通过me.zuhe1里名称的变化来改变,如果知道怎么连就不用愁了,现在是不知道怎么做
Private Sub zuhe1_AfterUpdate()
    Dim TempPath As String
    Dim TempFullPath As String
    Dim i      As Integer
    TempPath = CurrentProject.Path
        TempFullPath = TempPath & "\" & Me.zuhe1.Column(0) & "-" & i & ".bmp"

        If FileExistCheck(TempFullPath) = 1 Then Me.Controls("ActiveXCtl" & 223 + i).Picture = LoadPicture(TempFullPath) Else Me.Controls("ActiveXCtl" & 223 + i).Picture = LoadPicture(TempPath & "\null.jpg")

    Next