Hello there,

I want to get all checked checkbox on the form.
I always wasting my time to checking it one by one.
There is a way to do this?

Best regards

This should working :

Private Sub Command1_Click()
For Each ctl In Me.Controls
    If TypeOf ctl Is CheckBox Then
        If ctl.Value = vbChecked Then
            MsgBox ctl.Name
        End If
    End If
End Sub
commented: never think about this in my program. very useful function and svae my times. +0

What a piece of code.
Thank you very much for the help sir.


how do i add the of total the values in the checkbox.