[Resolvido]Contagem com vários critérios

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

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

Alexandre, Boa Tarde!!

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

att; sidney

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

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

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


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

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


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

att; Sidney