MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    [Resolvido]contagem de checkbox preenchido

    avatar
    maguim
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 399
    Registrado : 15/05/2013

    [Resolvido]contagem de checkbox preenchido Empty [Resolvido]contagem de checkbox preenchido

    Mensagem  maguim em 8/4/2019, 20:05

    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


    .................................................................................
    O conhecimento é a Dadiva da Vida. Sem ele o que seriamos ?! Surprised
    JPaulo
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10526
    Registrado : 04/11/2009

    [Resolvido]contagem de checkbox preenchido Empty Re: [Resolvido]contagem de checkbox preenchido

    Mensagem  JPaulo em 9/4/2019, 12:27

    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."


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]contagem de checkbox preenchido Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]contagem de checkbox preenchido Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]contagem de checkbox preenchido Folder_announce_new Instruções SQL como utilizar...
    avatar
    maguim
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 399
    Registrado : 15/05/2013

    [Resolvido]contagem de checkbox preenchido Empty Re: [Resolvido]contagem de checkbox preenchido

    Mensagem  maguim em 15/4/2019, 17:52

    JP deu certo... esqueci de declarar

    Código:
    If ctrl.Value = True Then


    obg funcionou

    abraços

    resolvido


    .................................................................................
    O conhecimento é a Dadiva da Vida. Sem ele o que seriamos ?! Surprised
    JPaulo
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10526
    Registrado : 04/11/2009

    [Resolvido]contagem de checkbox preenchido Empty Re: [Resolvido]contagem de checkbox preenchido

    Mensagem  JPaulo em 15/4/2019, 17:59

    Fico feliz.


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]contagem de checkbox preenchido Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]contagem de checkbox preenchido Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]contagem de checkbox preenchido Folder_announce_new Instruções SQL como utilizar...

      Data/hora atual: 24/4/2019, 07:52