[Resolvido]Fazer contagem em Relatório

Prezados,

Tenho um banco de dados onde registro ocorrências, e cada registro tem um "Status Geral" cujo conteúdo é gerenciado por uma lista (combo box) determinada de valores que são "Em Andamento", "Em Atraso" e "Fechado".

Tenho também outro campo onde verifico o status do plano de ação da ocorrência, também gerenciado por lista (combo box), com os valores determinados "OK", "NOK" e "N/A".

O que eu quero é fazer um relatório que mostre quantas ocorrências estão pendentes (seriam as diferentes de "Fechado") e quantas ações estão em cada uma das possibilidades possíveis:
- quantas "OK";
- quantas "NOK";
- quantas "N/A".

Tentei incluir campos de texto e usar o código "Contar" e também o "Dcontar", mas acredito que estou errando na sintaxe, porque não consigo fazê-los funcionar.

Todos estes dados estão na mesma tabela. Tentei fazer por Consultas separadas, e aplicar o "Contar" por consulta, mas a contagem no mesmo relatório não funcionou.

Alguma sugestão?

Talvez assim:

=DCount("NomeDoCampo";"NomeDaTabela";"NomeDoCampo='OK'")

Ou em uma função no relatório:

Código:

Private Function Contagem(Texto As String) As Long
    Dim rs As Recordset

    Set rs = CurrentDb.OpenRecordset("SELECT NomeDoCampo FROM NomeDaTabela WHERE NomeDoCampo='" & Texto & "'")
    Contagem = rs.RecordCount

    rs.Close
    Set rs = Nothing
End Function

Agora, em cada campo:
=Contagem("OK")

Amigo Valdino,

quantas viagens estarão sendo dadas a tabela, de forma desnecessária ? Vc tem que se preocupar com esta questão, para evitarmos que se crie mais um aplicativo Access L E N T O, no mercado.

Sucesso!

Criquio,

A solução =DCount("NomeDoCampo";"NomeDaTabela";"NomeDoCampo='OK'") funcionou perfeitamente!
Eu já havia tentado, e não funcionava, porque não estava usando aspas nas definições do campo, tabela, etc (não sabia que devia colocar aspas, como uso mais Excel, colocar aspas pra mim indicavam um texto...).

Mais uma vez, obrigado! Aprendi mais uma hoje!

Desculpa, mas o que vc aprendeu aqui foi como destruir o seu projeto a um curto ou médio prazo.

Deveria ser PROIBIDO oferecer soluções com funções de Dominio (DLookup, DCount, Dmax, ...). Elas são ótimas mas quando mal utilizadas, são péssimas.

Existem outras soluções para o seu caso.

Avelino, sou iniciante no uso do Access. Meu conhecimento em VBA é bem pequeno, ainda estou longe de conseguir pensar de modo holístico como você propôs.

Você pode sugerir um site, ou mesmo uma de suas video aulas, onde eu possa aprofundar o conhecimento sobre isso?

E para este meu caso, pode citar uma forma mais "otimizada" de resolver o problema?

Muito obrigado!