Change Images in Continuous Forms based on Data in Table

[edmscan]

First .. my brain is tired but here goes.



I have a continuous form for sleep data .. I know I really need some sleep right about now.

But I have the user rate the sleep (database for insomnia sufferers) .. and enter a rating from 1 to 5. That is stored in the table as an Integer .. ie 1 to 5.

I want them to be able to see on the continuous form .. the value of the rating 'in stars'. I have included a sample pic below.
So for a 1 rating .. they would see 1 star, 2 rating .. 2 stars.

I just have it displaying 4 stars right now for demo purposes.

Basically I need the Stars to match the displayed Rating .... just not sure how to do it on a continuous form.

I am using an Image control (Linked to file). I am more interested in the easiest way to accomplish this. I am not that familiar with all the nuances of continuous forms.
So there will be a total of 5 possible images that I need to link here.

The images are like 2k so pretty tiny .. but it is not really an issue.


I will work on it .. but it would be nice if someone could let me know the trick on this one. I assume that I just need to change the "Picture" attribute of the field as needed.

Take care ..
Kevin

[John_G]

 I assume that I just need to change the "Picture" attribute of the field as needed.

If the rating image (stars) control is unbound, that won't work. On a continuous form, when you make a change to an unbound control (value or appearance), it changes the appearance of all the occurances of that control. Conditional formatting won't work either, because while it can change the appearance (colours, font, etc), it cannot change the content.

I don't think you can do what you want to do without including the image data (as links to images) as part of your table.

[orange]

If you have a field in your table /record, could you not do something like

iif( rating = 1 , "*"........iif(rating = 5, "*****"

[edmscan]

Thank you .. I really like the IIF solution .. simple. I will try that and see how far I get.

Just a ? .. how could I attach the image into the table and just display that for each record ?? As they are very small and max 365 per year, the increase in size would not be an issue.

[edmscan]

Ok ... some progress. I have managed to attach the image files directly into a field and have it show on the Continuous form. That is the first part as displayed below.

But I have no idea how to programmatically insert the image into the table as needed. I have never used attachments before so this is all new to me. I manually added them to the table.

So for example .. if there is one star rating I need to insert Image file .. 1.png" ... or 2 start image file "2.png"

I would appreciate some help on that one. But right now .. my form displays as I need it to once I can get the attachment into each record.

Right now .. I am just testing but will start with real data soon as I can get that part working. I will be removing the actual rating field on the far right end once I get the stars going properly.

Thanks for all your help .. ;-)

[edmscan]

It is done .. thankful for code snippets on the net for this one. It is pretty simple and there will ever be only 1 attachment per record so it works.

If anyone has any suggestions for improvement let me know.

Dim strSQL As String

Dim db As DAO.Database
Dim rsParent As DAO.Recordset2
Dim rsChild As DAO.Recordset2

Set db = CurrentDb

strSQL = "SELECT TOP 1 tblSleep.SleepDate, tblSleep.SleepData FROM tblSleep ORDER BY tblSleep.SleepDate DESC;"

Set rsParent = db.OpenRecordset(strSQL, dbOpenDynaset)

With rsParent

.MoveFirst

rsParent.Edit

Set rsChild = rsParent.Fields("SleepData").Value

rsChild.AddNew
rsChild.Fields("FileData").LoadFromFile ("C:\Desktop\Databases\Sleep\1.png")

rsChild.Update
rsParent.Update


End With

rsChild.Close
rsParent.Close

Set rsChild = Nothing
Set rsParent = Nothing
Set db = Nothing