[Resolvido]Contar registros em uma consulta baseada em critérios de um formulário

Como "contar e atribuir" a contagem de registros a um caixa de Text de uma consulta que tem como critérios o "Ano e o Mes" no formulário e uso a seguinte consulta:

SELECT ContaExames.IDRegistros, Count(ContaExames.IDPacientes) AS PacAtend, ContaExames.Ano, ContaExames.Mes
FROM ContaExames
GROUP BY ContaExames.IDRegistros, ContaExames.Ano, ContaExames.Mes
HAVING (((ContaExames.Ano) Like [form]![FormExamesMensalEstat]![AnoN]) AND ((ContaExames.Mes) Like [form]![FormExamesMensalEstat]![MesN]));

Eu preciso atribuir esta contagem a uma caixa de texto no Formulário.

Grato de antemão.

Boa tarde, Fábio, e bem-vindo ao fórum

Utilize
Dim Rst as dao.recorset
set rst=currentdb.openrecordset("SELECT IDRegistros, Count(IDPacientes) AS PacAtend, Ano, Mes FROM ContaExames GROUP BY IDRegistros, Ano, Mes HAVING Ano Like " & [form]![FormExamesMensalEstat]![AnoN]) & " AND Mes Like " & [form]![FormExamesMensalEstat]![MesN] & ";"
if rst.eof then caixaDeTexto=0 else rst.movelast : caixaDeTexto=rst.recordcount
set rst=nothing

Alexandre boa tarde, obrigado pelas dicas..

No código abaixo estou recebendo mensagem de erro em "Dim Rst As dao.recordset" - (Erro de Compilação . O tipo não foi definido pelo usuário)

Private Sub ContaExames()
Dim Rst As dao.recorset
Set Rst = CurrentDb.OpenRecordset("SELECT IDRegistros, Count(IDPacientes) AS PacAtend, Ano, Mes FROM ContaExames GROUP BY IDRegistros, Ano, Mes HAVING Ano Like " & [Form]![FormExamesMensalEstat]![AnoN]) & " AND Mes Like " & [Form]![FormExamesMensalEstat]![MesN] & ";"
If Rst.EOF Then
Me.PacAtendido = 0
Else
Rst.MoveLast: Me.PacAtendido = Rst.RecordCount
Set Rst = Nothing

End Sub


grato

Active o DAO 3.6 (Ferramentas->referências)

Já está ativo, e mesmo assim continuo recebendo a mesma mensagem.
Poderia haver algun outro problema?

Alguem mais teria alguma sugestão?

Grato

verifique se tem referências em conflito (várias referências DAO ou ADO, ...)

Esta faltando um "D" no recorDset

Dim Rst As dao.recorset
...
...

Avelino grato pela ajuda

Após esta correção estou recebemdo a m ensagem de "Erro de Compilação....tipo incompatíveis", na área em negrito abaixo.


Set Rst = CurrentDb.OpenRecordset("SELECT IDRegistros, Count(IDPacientes) AS PacAtend, Ano, Mes FROM ContaExames GROUP BY IDRegistros, Ano, Mes HAVING Ano Like " & [Form]![FormExamesMensalEstat]![AnoN]) & " AND Mes Like " & [Form]![FormExamesMensalEstat]![MesN] & ";"

Não tenho havido continuidade. O assunto passa a Resolvido.