[Resolvido]SQL.RecordCount com valores errados

Boa tarde,

Este código (consulta) dá resultado errado, alguém saberá porquê?

Set dbs = CurrentDb()
   SQL = "SELECT teste.testeid FROM teste  WHERE testequantidade > 0 AND testenumero = 53;"
   
   Set SQL = dbs.OpenRecordset(SQL)
   
   If SQL.RecordCount = 1 Then
   MsgBox "1 registo."
   Else
   MsgBox SQL.RecordCount & " Registos."
   End If


Coloco exemplo em teste.

No comando do lado esquerdo deveria aparecer um registo como podem ver na tabela, já no outro deveria aparecer os 3 registos.
Não consigo perceber porquê.

Obrigado
Nuno

Set SQL = dbs.OpenRecordset(SQL)

Call SQL.movelast: Call SQL.movefirst

If SQL.RecordCount = 1 Then
MsgBox "1 registo."
Else
MsgBox SQL.RecordCount & " Registos."
End If

O VBA é aguniado!
Dê-lhe uma tarefa e ele logo quer trabalhar. Pedindo para antes ele ir no final do conjunto de registros e voltar, assim ele finalmente vai saber quantos registros tem.

Obrigado Damasceno,

Tens toda a razão, o problema é que se não tiver registos dá erro.

Tive de fazer:

Set SQL = dbs.OpenRecordset(SQL)

If (SQL.RecordCount) Then

Call SQL.movelast: Call SQL.movefirst

If SQL.RecordCount = 1 Then
MsgBox "1 registo."
Else
MsgBox SQL.RecordCount & " Registos."
End If
end if

Ficou resolvido,
Mais uma vez obrigado.

Nuno

Boa noite

O Resolvido não foi marcado devidamente. Deve ser clicado o botão "Resolvido" que se situa na parte inferior direita do fórum (ao lado da caixa de texto do título)
Desta vez, já corrigi marcação