Changing image picture property

[GraeagleBill]

I have a continuous form where each record contains a "box color name" field. The form has an un-bound image control wherein I want to dynamically set the picture property as the form populates. I tried to bind the image control with a function reference where the function would obtain the "box color" and set the image control accordingly. However, Access issues an error indicating it can't Open the link reference. I really need the function, or some mechanism, to test the value of "BoxColor", as it can be null.

Option Compare Database
Option Explicit
Public Function SetBox(BoxName As Variant)
If Not IsNull(BoxName) Then Me.imBox.Picture = "c:\Meds\" & BoxName & ".jpg"
End Function

The appropriate image changes with each record, so maybe I need to learn a new method?

[Welshgasman]

Wouldn't that be Me.Boxname?

[GraeagleBill]

BoxColor is the field name in the RecordSource query. BoxName is simply the name given to the parameter to the function. E.g., if BoxColor is Blue, then that's the string that would be passed to the function. BoxName has to be variant, as it's entirely possible it could be null.

[Welshgasman]

Yes, but you are referring to a control called imBox?
Plus as a continuous form, won't all unbound images show the same?

[GraeagleBill]

Plus as a continuous form, won't all unbound images show the same?

That's what I'm trying to overcome. It's kind of like an OnFormat event on a form so I can stipulate which jpg file to use. I might not be able to do what I want?

[davegri]

Your function is not returning a value, so:

Public Function SetBox(BoxName As Variant) as String
    If Not IsNull(BoxName) Then 
        SetBox = "c:\Meds\" & BoxName & ".jpg"
    Else
        Setbox = ""
    Endif        
End Function

[GraeagleBill]

Sorry for the incompletion in the post. Since the editor wouldn't accept my insertion of "=SetBox([BoxColor])", I didn't bother with any other considerations regarding the function. However, the scope of the module should have been such the Me.imBox.Picture = "c:\Meds" & BoxName & ".jpg" would be the equivalent of a string returned by the function as you see in the OP.

Bill

[CJ_London]

you have the picture type as linked - so picture is looking for string. In the imagebox, just put [boxcolor] in the controlsource if it is a full path and remove from the picture property. You can also try putting =setbox([boxcolor]) in the controlsource instead

[Minty]

If it's unbound you won't be able to display a different picture on each line.
You could however link the control to an underlying calculated query field, and put a default as a blank image file, if there isn't a file??

[GraeagleBill]

You can also try putting =setbox([boxcolor]) in the controlsource instead

Yes, I thought that would work if I bound the control to a function, but if you take a look at the OP you'll see where the design editor wouldn't allow the function reference, which led to the OP to begin with.

[GraeagleBill]

You could however link the control to an underlying calculated query field

I did think of that, but in my infinite wisdom concluded that if binding the control to a function didn't work that wouldn't work either............ so much for infinite wisdom! Setting the Data property to "Picture" and adding Picture: "c:\Meds" & [BoxColor] & ".jpg" to the form's RecordSource query, and adding "Blank.jpg" to the image library did the job.
Thanks,
Bill

[Minty]

Glad you have it solved.
Sometimes the simpler solution is the easiest one...

[GraeagleBill]

Sometimes the simpler solution is the easiest one...

Right you are, AMEN!