Recent content by toptenor

Thanks Steve, We already know this method - just get fed up with writing endless variables and wondered if there was another way around it! Jon Meredith (toptenor)

I work for local government. We place a number of measures within a report, user-defined, to capture such things as minimum start dates where the same person has multiple start dates, or if a Service User (SU) has had a care plan (CP) copied to them for a number seperate transactions. For this...

Thats it! Many, many thanks. It worked when I set the forst Dim statement to "=OptionGroup" rather than "OptionButton" and I had to take out the ".OptionValue" in the IIf statement. (See my previous comments about the array returning option values) I am now off to bed and won't be waking at 3...

Looking at this more closely, when I mouse over the entries in the Array in debug mode, they show entires like "optgrpWhiteGirl1 = 4" where the last numeral (in this case the "4" is the optionvalue that is in the optiongroup on the form. How then do I assign that "4" into the "If, Then"...

That is still breaking on the line "ChangeableLabels = Array(optgrpWhiteGirl1, ..."with an error message of "Type Mismatch" (Runtime error 13) Can you begin to see the problems I've had with this!!!

Thanks Golom and Roy, Unfortunately neither of your suggested methods are working! Golom's is nearest (sorry Roy) as now the entries in the array are showing values when I mouse over them in debug mode. But despite trying all sorts, I cannot get those values to work in the "If, Then, Else...

Many thanks for that. I can understand the part about the Lower Bound and Upper Bound, but (sorry to be so thick!) how do I get the code to "see" the controls so it can act on them?

Help! I have a form with eight optiongroups and want to loop through them to pick up the optionvalue of each so I can change their bordercolor - if an optionvalue >0 to black, and if no optionvalue (ie =0) to red so the user knows they must tick a box within that optiongroup. The form is...