Checking multiple check boxes at once

[p_wikstedt]

Hi there,

I have several check boxes, that are however categorised, in my form. I was now wondering, in order to save some time, how could I make a check box that marks/unmarks all the boxes under that specific category ??

Cheers,

Pekka

 

[Mile-O]

Put a keyword in the Tag property of each checkbox you want to group together.

Now, use this function

Private Sub DoChecks(ByVal CheckKey As String)
    For Each ctl In Me
        If ctl.Tag = CheckKey Then
            ctl = Not ctl
        End If
    Next
End Sub