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 com vários critérios

    Compartilhe
    avatar
    Sidney
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 330
    Registrado : 08/10/2012

    [Resolvido]Contagem com vários critérios

    Mensagem  Sidney em 9/11/2018, 18:48

    Pessoal boa Tarde!!!

    preciso fazer uma contagem com referencia em duas tabelas,

    Tabela Familia
    IF STATUS
    110 Acompanhadas
    111 Não Acompanhadas
    113 Acompanhadas
    114 Acompanhadas

    Tabela PAIF
    IF SITUACAO_FAMILIA
    110 Ativo
    111 Ativo
    113 Inativo
    114 Ativo

    quero contar o campo STATUS="Acompanhadas" da tabela família e SITUACAO_FAMILIA="Ativo" da tabela PAIF, quando o codigo do campo IF forem iguais de ambas tabelas, e atribuir esse total a uma variável qualquer.

    att; Sidney
    avatar
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7054
    Registrado : 05/11/2009

    Re: [Resolvido]Contagem com vários critérios

    Mensagem  Alexandre Neves em 9/11/2018, 20:04

    Boa noite,
    SELECT Count(*) FROM Familia LEFT JOIN PAIF ON Familia.IF=PAIF.IF WHERE STATUS='Acompanhadas' and SITUACAO_FAMILIA='Ativo'


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo
    avatar
    Sidney
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 330
    Registrado : 08/10/2012

    Re: [Resolvido]Contagem com vários critérios

    Mensagem  Sidney em 9/11/2018, 20:20

    Alexandre, Boa Tarde!!

    a minha idéia e fazer isso em vba, em função por exemplo, poder ser??

    att; sidney
    avatar
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7054
    Registrado : 05/11/2009

    Re: [Resolvido]Contagem com vários critérios

    Mensagem  Alexandre Neves em 9/11/2018, 21:24

    Código:
    Function ContaSidney(intIF As Integer) As Integer
        ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
        '  código criado por Alexandre Neves, do Fórum MaximoAccess  '
        '    utilize o código livremente mas mantenha os créditos    '
        ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
        Dim Rst As DAO.Recordset
        Set Rst = CurrentDb.OpenRecordset("SELECT Count(*) FROM Familia LEFT JOIN PAIF ON Familia.IF=PAIF.IF WHERE STATUS='Acompanhadas' and SITUACAO_FAMILIA='Ativo' and IF=" & intIF)
        ContaSidney = Rst(0)
        Set Rst = Nothing
    End Function


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo
    avatar
    Sidney
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 330
    Registrado : 08/10/2012

    Re: [Resolvido]Contagem com vários critérios

    Mensagem  Sidney em 12/11/2018, 13:37

    Alexandre, Bom dia!!!

    Tentei fazer as adptações no seu código, mas nao deu certo, estou enviando um modelo de exemplo, por favor, de olha olhada no relatório, lá tem o campo a onde eu quero o resultado da contagem, no evento, ao imprimir. Fiz algumas alterações em relação aos nomes de campos e tabelas, mas não fugi da sua lógica.

    no aguardo.

    att; Sidney
    Anexos
    Exemplo.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (40 Kb) Baixado 2 vez(es)
    avatar
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7054
    Registrado : 05/11/2009

    Re: [Resolvido]Contagem com vários critérios

    Mensagem  Alexandre Neves em 12/11/2018, 17:03

    Boa tarde
    Não deu certo porque não apresentou dados reais de nomes de campos nem utilizou a função discriminada por IF

    No caso apresentado, 
    1 - retire caixa de texto e coloque rótulo, denomine-o de RtlFamiliasAcompanhadas
    2 - no acontecimento Detalhe_Paint coloque
    Código:
        ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
        '  código criado por Alexandre Neves, do Fórum MaximoAccess  '
        '    utilize o código livremente mas mantenha os créditos    '
        ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
        Dim Rst As DAO.Recordset
        Set Rst = CurrentDb.OpenRecordset("SELECT Count(*) FROM tab_Familia LEFT JOIN tab_PAIF ON tab_Familia.Num_IF=tab_PAIF.paif_Num_IF WHERE StatusFamilia='ACOMPANHADA' and Paif_Status=1")
        RtlFamiliasAcompanhadas.Caption = "Total de família Acompanhadas: " & Rst(0)
        Set Rst = Nothing


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo
    avatar
    Sidney
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 330
    Registrado : 08/10/2012

    Re: [Resolvido]Contagem com vários critérios

    Mensagem  Sidney em 12/11/2018, 20:46

    Alexandre, Boa Tarde!!

    Estamos quase lá, o que não bateu foi o total, por minha culpa que esqueci de mensionar, pois neste caso vai ser igual 4, porque na tab_PAIF, por mais que tenha mais de um paif_PAIF=1 por registro da tab_Familia, só pode ser contado como 1, no caso o 113. me desculpe por nao mensionar antes,

    abraço,

    Att; Sidney

    avatar
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7054
    Registrado : 05/11/2009

    Re: [Resolvido]Contagem com vários critérios

    Mensagem  Alexandre Neves em 13/11/2018, 10:35

    Bom dia
    Código:
        ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
        '  código criado por Alexandre Neves, do Fórum MaximoAccess  '
        '    utilize o código livremente mas mantenha os créditos    '
        ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
        Dim Rst As DAO.Recordset
        Set Rst = CurrentDb.OpenRecordset("SELECT Count(*) FROM (SELECT DISTINCT Paif_Num_IF FROM tab_Familia LEFT JOIN tab_PAIF ON tab_Familia.Num_IF=tab_PAIF.paif_Num_IF WHERE StatusFamilia='ACOMPANHADA' and Paif_Status=1)")
        RtlFamiliasAcompanhadas.Caption = "Total de família Acompanhadas: " & Rst(0)
        Set Rst = Nothing


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo
    avatar
    Sidney
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 330
    Registrado : 08/10/2012

    Re: [Resolvido]Contagem com vários critérios

    Mensagem  Sidney em 13/11/2018, 11:29

    Cara, ficou perfeito, muito obrigado pela ajuda, abraçco e fique com Deus.

    att; Sidney

      Data/hora atual: 16/12/2018, 11:22