[Resolvido]contar registros com select

Eu gostaria de contar os registros de uma tabela usando query ao invés desse Dcount.

EU passo o seguinte codigo para contar

dim rs as recordset

Set rs = CurrentDb.OpenRecordset("SELECT * FROM table WHERE data >= #" & Data5 & "#")
contaReg = rs.MoveNext
Me.TxtResultado = "" & contaReg


Mas infelizmente não conta direito, conta só uma vez, aprece o numero 1 na caixa de texto.


Seu eu fizer o select da tabela ele não conta os registros da tabela


Quero contar os registros pela query, o que está errado?

Obrigado.

com esse rs.MoveLast não funfa, dizendo ele que dá erro de espera de variável..


Eu coloquei o rs.RecordCount e não deu erro, mas infelizmente só conta uma vez.

Set rs = CurrentDb.OpenRecordset("SELECT * FROM Taboficios WHERE DATA_CRIACAO >= #" & Data5 & "#")
contaReg = rs.RecordCount
Me.TxtResultado = "" & contaReg
rs.Close
Set rs = Nothing

Avelino, obrigado pela colaboração, agora eu sei usar Dcount e QUery de contagem..

Abraço.

Resolvido.

Boa noite, adriano
Não altere o título. O título é um resumo do assunto e não faz parte do corpo da mensagem
Para marcar Resolvido, existe um botão apropriado na zona inferior direita do formulário do fórum

Estarei verificando.