MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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


2 participantes

    Função contar

    avatar
    robertonl
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 93
    Registrado : 21/12/2016

    Função contar Empty Função contar

    Mensagem  robertonl 1/7/2023, 21:30

    Boa tarde.Tenho um programa que devido a problemas tecnicos, perdi ele, e tive começar da estaca zero.

    Possuo uma tabela (Tab_Membro) no qual foi gerado uma consulta csconsultamembro. Necessito realizar alguns calculo. Alguns destes calculos funcionou perfeitsmente, porém outro (se não engano foram 2) que não estão calculando, como desejo.

    txt_regtotal, funcionou perfeitamente (Me.Txt_RegTotal = DCount("Id_CodMbo", "csConsultamembro")
    txt_regativos, funcionou perfeitamente (Me.Txt_RegAtivos = DCount("Id_CodMbo", "csConsultamembro", "[Id_StatusMbo] = 'Ativo'")
    txt_percdzta, funcionou perfeitamente (Me.Txt_PercDzta = Me.Txt_DiztaAtv / Me.Txt_RegDza)
    txt_regdza, funcionou perfeitamente (Me.Txt_RegDza = DCount("", "csConsultamembro", "[Id_MboDizta]"))
    txt_diztaatv, não funcionou (Me.Txt_DiztaAtv = DCount("*", "csConsultamembro", "[Id_MboDizta]= 'sim', [Id_StatusMbo]='Ativo'")

    Obs: no campo txt_diztaatv vai procurar na consulta (csConsultaMembro), os código que seja dizimista e esteja ativo
    Id_StatusMbo ( recebe ativo ou inativo);
    Id_MboDizta ( sim/não)

    code]
    Private Sub Form_Load()
    DoCmd.GoToRecord , , acNewRec
    Me.Id_DtNascMbo = Empty
    Me.Txt_RegTotal = DCount("Id_CodMbo", "csConsultamembro")
    Me.Txt_RegAtivos = DCount("Id_CodMbo", "csConsultamembro", "[Id_StatusMbo] = 'Ativo'")
    'Me.Txt_Ativos = DCount("*", "csConsultaMembro", "[Id_StatusMbo] = 'Ativo'")
    'Me.Txt_RegDza = DCount("Id_CodMbo", "csConsultaMembro", "[Id_MboDizta]='verdadeiro'")
    Me.Txt_RegDza = DCount("", "csConsultamembro", "[Id_MboDizta]")
    'Me.Txt_DiztaAtv = DCount("*", "csConsultamembro", "[Id_MboDizta]= 'sim', [Id_StatusMbo]='Ativo'")
    'Me.Txt_DiztaAtv = DCount("Id_CodMbo", "csConsultamembro", "[Id_MboDizta], [Id_StatusMbo]='Ativo'")
    'Me.Txt_DztaAtivo = DCount("*", "csConsultamembro", "[Id_StatusMbo] = 'Ativo'")
    Me.Txt_PercReg = Me.Txt_RegAtivos / Me.Txt_RegTotal
    Me.Txt_PercDzta = Me.Txt_DiztaAtv / Me.Txt_RegDza
    End Sub
    [/code]

    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7998
    Registrado : 15/03/2013

    Função contar Empty Re: Função contar

    Mensagem  Alvaro Teixeira 6/7/2023, 10:08

    Olá Roberto Souza,

    Verifique se é isto que pretende:
    Código:
    DCount("Id_CodMbo", "csConsultamembro", "[Id_MboDizta] = True")

    ou assim:
    Código:
    DCount("Id_CodMbo", "csConsultamembro", "[Id_MboDizta] = True AND [Id_StatusMbo] = 'Ativo'")

    Abraço

      Data/hora atual: 8/12/2024, 08:56