Option Group Question

[chef6886]

I have a fairly advanced procedure that I'm trying to do to help cut down on code from multiple calls. Running into a few problems, so if anyone has any suggestions I would appreciate it in advance. FYI, I am really well-versed in VBA programming...a bit rusty as I've been out of it, but you aren't going to panic me if you answer with some complex code behind it...many thanks in advance...

Scenario: Trying to develop a form that pulls from a fairly sizable table. I have toggle buttons in an option group to filter...13 to be exact with each one filtering two letters of the alphabet...e.g. A-B, C-D, etc. The option group is named optFilters, and each toggle button is named according to the filter it does...e.g. tglAB, tglCD, etc.



Program Function: I can get the filter to work just fine and reset to the itemvalue of 0 when I use a reset command button. Because windows default color toggle buttons are not always easy to spot, I want to change the foreground color of the active toggle button based on its "true" state, for lack of better terms. I want it to change to light red, which I am able to do with the QBColor(value) command just fine.

Problem: What I'm running into a stone wall on is I want the program to cycle through all of the command buttons and find the ones that are not active (state = False...again for lack of better words) and change the forecolor back to black if it is not the active one. Basically, as the user is pressing the toggle buttons, the last one pushed would change its forecolor to red and the others will be black...since I want to limit the coding rather than gorilla-coding this with bloat-ware, that's where my problems lie.

I could use some suggestions if you have any. I've been hammering at this one problem for 2 days, and all of the "help" I've found on the web hits around the problem but never directly at this one. It may be that I'm just tired and overlooking something insanely simple (bangs head on desk...doh)...but any help would be appreciated.

Thanks again in advance.

E

[orange]

You may get some ideas from this thread
https://www.accessforums.net/access/...ess-31409.html

[June7]

Why not radio buttons instead? The active button is easily identified. I know, can't resize the buttons, darn it!

Try something like:

Sub Frame1_AfterUpdate()
Me.tglAB.ForeColor = IIf(Me.tglAB.OptionValue = Me.Frame1, vbRed, vbGreen)
Me.tglCD.ForeColor = IIf(Me.tglCD.OptionValue = Me.Frame1, vbRed, vbGreen)
...
End Sub

If you named the toggles like tgl1, tgl2, etc.
For i = 1 to 13
Me.Controls("tgl" & i).ForeColor = IIf(Me.Controls("tgl" & i).OptionValue = Me.Frame1, vbRed, vbGreen)
Next

[chef6886]

Thanks, Orange...but that really didn't help me much...I already know the controls on the form...just having issues with changing properties on the option group...plus, unless I'm mistaken, this was for 2010...I wish MS had thought to give the back color feature on toggles and command buttons before the 2010 release...

Any other thoughts?

[chef6886]

Thanks, June...I'll try it out in a bit...