Replace option buttons in an Option Group with a picture

[MichaelA]

Is it possible to use an image, in place of a radio button in an Option Group. I want to add a 5 star rating type of setup on a form for a movie database. I would like a group of 5 grey scale stars in place of radio buttons or option buttons. When clicked, I'd like the star to turn Gold colored and enter the option 1, 2, 3, 4, or 5 into the table. Is this possible?

Thank you for your help!
Michael

[MichaelA]

Ok, I figured out the first part. I now have the grey scale stars where the buttons were. Now, how to replace the grey scale star with a gold one.

Thank you!

[June7]

How did you substitute button with star?

[MichaelA]

How did you substitute button with star?

I just set the picture property in the property sheet for each toggle button.

[June7]

Oh, used toggle button instead of radio button.
So now code could change Picture property when button is clicked. Have a grey star image and a gold start image.

[Micron]

Sounds interesting. Choose star 3, then pass 3 to a function that toggles on each one that is less than or equal to 3! You should then be able to sum the abs values of the toggles in that function.

[MichaelA]

Oh, used toggle button instead of radio button.
So now code could change Picture property when button is clicked. Have a grey star image and a gold start image.

I have both pictures, what should the code look like to change the pic?

Thank you!

[MichaelA]

Sounds interesting. Choose star 3, then pass 3 to a function that toggles on each one that is less than or equal to 3! You should then be able to sum the abs values of the toggles in that function.

Whoa, totally lost me there.

[June7]

5 Toggles within a frame will have values of 1 to 5, not 0 or -1.

The Frame will take value of whichever toggle is down. Frame bound to field will save that value. Only one toggle can be down (highlighted).

Is this what you want?

[MichaelA]

5 Toggles within a frame will have values of 1 to 5, not 0 or -1.

The Frame will take value of whichever toggle is down. Frame bound to field will save that value. Only one toggle can be down (highlighted).

Is this what you want?

Yes, only one toggle will be down.

[June7]

Name the toggles like tgl1, tgl2, etc.

Private Sub Frame158_Click()
Dim x As Integer
For x = 1 To 5
    Me("tgl" & x).Picture = IIf(x = Me.Frame158, "gold image path", "grey image path")
Next
End Sub

Can get this to work only with bmp image.

[MichaelA]

Name the toggles like tgl1, tgl2, etc.

Private Sub Frame158_Click()
Dim x As Integer
For x = 1 To 5
    Me("tgl" & x).Picture = IIf(x = Me.Frame158, "gold image path", "grey image path")
Next
End Sub

Can get this to work only with bmp image.

Ok, this worked while the Form is opened and passed the value to the table but when I move from one record in the table to another, the position of the Gold star is the same on each record and if I close the form and reopen it again, the stars are all grey again. Can I get the "Rating" value from the table and make the star in that position to appear gold?

Thank you!

[June7]

Run the same code in form Current event. Could put into a Sub that can be called by Frame Click event as well as form Current event.

All records will show the same star so doesn't really work for continuous or datasheet form.

Consider an approach that uses image controls. An expression in ControlSource can conditionally select image based on field value. So every record will display appropriate image. Use image control Click event to save value to field.

[accesstos]

No need of frame.
You may use images with full stars , with a conditional ControlSource to the file path of the "empty star" and transparent buttons over them for changing the rating value of each record.


If you have an image for the "empty star" in the same place with your project, a public function like below could simplify the expression of ContolSource.

Public Function EmptyStar() As String
    EmptyStar = CurrentProject.Path & "\EmptyStar.png"
End Function

So we have:
- ControlSource of image "Star 2" : =IIf([ratValue]<2;EmptyStar())
- OnClick event of button 2: Me.ratValue = 2

and so on for the rest of the stars.

Take a look in attached sample.

[Micron]

Whoa, totally lost me there.

Think of it as operating like a web page where you click star 4 and all the lower ones are chosen also. You would not expect to have to click 4 stars to give a 4 star rating, right? So I'm saying loop through the controls and select all that are equal to or less than the one you chose. However, it looks different that what else has been suggested if you use toggle buttons.