contar checks seleccionados...

[David]

Iniciado por vbx3m

Esta es otra forma de hacerlo:

Código:

Dim check As Object
c = 0
For Each check In Controls
    If TypeOf check Is CheckBox Then
        If check.Value = 1 Then c = c + 1
     End If
Next
MsgBox "Seleccionados " & c

Sí, pero no es q' quiera seleccionar todos los Checks sino solo los q' están en la BD si bien entendí...