Error when testing condition of CheckBox

[MrYoda1]

I have a short bit of code that is giving me an error. Here is the code:

Dim ctrl As Control
Dim intCounter As Integer
 
    For Each ctrl In Me.Controls
        If ctrl.Tag = "Math" Then
            If ctrl.Value = True Then
                intCounter = intCounter + 1
            End If
        End If
    Next ctrl
 

The error I'm getting on Line 6 is:

Run-time error '438':
Object doesn't support this property or method

I'm pretty sure I know what the error is telling me, sort of (that ctrl.value doesn't make any sense and isn't allowed). What I don't know is how to make the determination as to the value property of a checkbox using this coding structure. Is it possible?

[zmbd]

Double check that none of your label controls have their tag values set to "Math"

If you insert:
Debug.print ctrl.name
Just after Line 4, run your code, when the code errors, select the debug option.
Once the VBE opens, press <ctrl><g>
The immediate pane will show the name of the controls that have been processed thru the loop. The last control in the list will most likely be the problem.

This is one reason why I will rename the controls from the default name to something useful such as "txt_Meaningful_Name" so that I know which control is giving the error.

Try the above, locate which control is failing and let us know what happens and we can go from there....

-z

[MrYoda1]

Perfect! I originally had the tag set in the label, too. When I removed the tags from that part of the control I thought I caught them all, but I had not. There were two I hadn't removed.

I'm glad to know the coding structure works because I can think of times when it will come in handy.

Much appreciated!!!

[zmbd]

You will find that a lot of us use the tags for a ton of reasons.

I will usually check the control type when using a me.controls situation:
ControlType Property [Access 2003 VBA Language Reference]

The example code isn't too horrible here and the constants are enumerated... back when MS actually made useful reference sites :)

This way I can use the Tag for grouping, storage, etc...