[Resolvido]contagem de checkbox preenchido

boa tarde amigos!

Estou com impasse aqui em um loop de contagem...


peguei um codigo feito pelo JP. pra textbox e adaptei para checkbox, porem a contagem não esta subtraindo do looping. Acredito que estou fazendo algo errado.

quando seleciono o checkbox ele faz a contagem, porem quando eu tiro o checkbox ele nao subtrai o valor e mantem o valor agregado.

Código:

'By JPaulo ? Maximo Access
Dim t As Integer
Dim ctrl As Control
Dim ctrlmenos As Control

For Each ctrl In Me.Controls
If TypeOf ctrl Is CheckBox Then
    If Not IsNull(ctrl.Value) Then
    t = t + 1
    Else
    t = t - 1
   
    End If
End If
Next ctrl

MsgBox "Existem " & IIf(t = 1, "", "") & t & " Campos Preenchidos" & IIf(t = 1, "", "") & " neste formulário."

a ideia é contar todos checkbox do formulario e fazer um isnull (validação de campos vazios) em grupo por contagem
caso seja > 1 ele deixa registrar valor caso contrario ele da exit sub



abraços

Olá;

A instrução está quase correta, apenas você não tem de efetuar a subtração;

Código:

'By JPaulo ?? Maximo Access
Dim t As Integer
Dim ctrl As Control
Dim ctrlmenos As Control

For Each ctrl In Me.Controls
    If TypeOf ctrl Is CheckBox Then
        If ctrl.Value = True Then
        t = t + 1
        'Else
        't = t - 1
        End If
    End If
Next ctrl

MsgBox "Existem " & IIf(t = 1, "", "") & t & " Campos Preenchidos" & IIf(t = 1, "", "") & " neste formulário."

JP deu certo... esqueci de declarar

Código:

If ctrl.Value = True Then

obg funcionou

abraços

resolvido

Fico feliz.