[resolvido] Contagem com vários critérios

Moderador: Avelino Sampaio

Sidney
Mensagens: 76
Registrado em: 20 Mai 2016, 18:47
Localização: Altamira_Pará

[resolvido] Contagem com vários critérios

Mensagempor Sidney » 09 Nov 2018, 18:37

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
Sidney Carvalho

Disable adblock

Precisamos do seu apoio. Faca uma doacao para o site atraves do Paypal.


Avatar do usuário
Damasceno Jr.
Mensagens: 436
Registrado em: 08 Jun 2015, 01:30
Localização: Medicilândia-Pará

Re: Contagem com vários critérios

Mensagempor Damasceno Jr. » 11 Nov 2018, 03:34

Não entendi bem. Anexe as tabelas para que possamos ser mais acertivos.
Quanto mais o tempo passa, mais descubro e mais me apaixono por MS Access.

Sidney
Mensagens: 76
Registrado em: 20 Mai 2016, 18:47
Localização: Altamira_Pará

Re: Contagem com vários critérios

Mensagempor Sidney » 12 Nov 2018, 13:08

Damaceno, Bom dia!! Então, vou tentar explicar novamente de outra forma, veficando as duas tabelas em anexo, elas vao ter um campo em comum, IF e paif_IF, para cada registro da tabela família eu posso ter várias na tabela PAIF, ou seja, um para muito, a questão é a seguinte, quero contar quantos existem, quando o StatusFamilia="ACOMPANHADA" na tab_Familia E paif_Status=1 na tab_PAIF quando o IF da tab_Familia for igual paif_IF da tab_PAIF. No exemplo que estou mandando, existem no total de quatro familia.

att; Sidney
Sidney Carvalho

Sidney
Mensagens: 76
Registrado em: 20 Mai 2016, 18:47
Localização: Altamira_Pará

Re: Contagem com vários critérios

Mensagempor Sidney » 12 Nov 2018, 13:11

Não estou conseguindo anexar o arquivo, poder ser poe email?
Sidney Carvalho

Disable adblock

Precisamos do seu apoio. Faca uma doacao para o site atraves do Paypal.


Avatar do usuário
Damasceno Jr.
Mensagens: 436
Registrado em: 08 Jun 2015, 01:30
Localização: Medicilândia-Pará

Re: Contagem com vários critérios

Mensagempor Damasceno Jr. » 12 Nov 2018, 14:43

pode sim. damascenojr(arroba)outlook(ponto)com
Quanto mais o tempo passa, mais descubro e mais me apaixono por MS Access.

Sidney
Mensagens: 76
Registrado em: 20 Mai 2016, 18:47
Localização: Altamira_Pará

Re: Contagem com vários critérios

Mensagempor Sidney » 12 Nov 2018, 19:43

Damasceno, boa tarde!!

já te mandei.

att; Sidney
Sidney Carvalho

Avatar do usuário
Damasceno Jr.
Mensagens: 436
Registrado em: 08 Jun 2015, 01:30
Localização: Medicilândia-Pará

Re: Contagem com vários critérios

Mensagempor Damasceno Jr. » 12 Nov 2018, 22:11

Já respondi o email minutos depois. Conferiu? Acho que se não for daquela forma, pelo menos dá uma luz
Quanto mais o tempo passa, mais descubro e mais me apaixono por MS Access.

Sidney
Mensagens: 76
Registrado em: 20 Mai 2016, 18:47
Localização: Altamira_Pará

Re: Contagem com vários critérios

Mensagempor Sidney » 13 Nov 2018, 11:15

opa, bom dia!! vou verificar e te retorno,

att; Sidney
Sidney Carvalho

Sidney
Mensagens: 76
Registrado em: 20 Mai 2016, 18:47
Localização: Altamira_Pará

Re: Contagem com vários critérios

Mensagempor Sidney » 13 Nov 2018, 13:30

Damasceno, bom dia!!!

Então, esqueci de mensionar, que eu preciso dessa programação em VBA, mas eu consegui com o parceiro Alexandre, mas mesmo assim muito obrigado Damasceno, até a proximo amigo, segue abaixo.

Código: Selecionar todos

    ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
    '   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


att, Sidney
Sidney Carvalho

Disable adblock

Precisamos do seu apoio. Faca uma doacao para o site atraves do Paypal.



Voltar para “Módulos VBA”

Quem está online

Usuários neste fórum: Nenhum usuário registrado e 2 visitantes