Oi. Tô aqui de novo, enchendo a paciência de vocês...

No exemplo abaixo, consulto um CPF e o sistema me retorna a informação da quantidade de declarações por CPF. Só que a instrução <tabela.moveNext> antes do Loop abre o próximo registro após o último registro encontrado. Daí, tenho de voltar para o registro anterior, onde então localizo o último que satisfez o critério da consulta... Já tentei modificar a consulta, mas se tiro a instrução <tabela.MoveNext>, o sistema não funciona...

Eis o código da consulta. Se alguém puder descobrir o furo, agradeço a colaboração...

Private Sub cmdConsultarCPF_Click()
   Set BancoDeDados = OpenDatabase(App.Path & "Contribuinte.mdb")
   Set Tabela = BancoDeDados.OpenRecordset("Fisica", dbOpenTable)
   Dim ProcuraCPF As String, Contador As String
   Tabela.Index = "CPF"
   ProcuraCPF = InputBox("Digite o número do CPF:" & Chr(13) & _
   "Obs.: não utilize pontos nem hífen.", "Procura pelo CPF")
   If ProcuraCPF = "" Then          'Se não digitar nada,
       cmdOrganizar.Visible = True  'Cancela a procura e
       cmdOrganizar_Click           'Reorganiza a tabela.
       cmdOrganizar.Visible = False
       Exit Sub
   Else
   Tabela.Seek "=", ProcuraCPF
   If Tabela.NoMatch = False Then
        Contador = 0
        Do While Not Tabela.EOF
            If Tabela!CPF = ProcuraCPF Then
            Contador = Contador + 1
        Else
            Exit Do
            End If
            Tabela.MoveNext
        Loop
        MsgBox Str(Contador) & " registros encontrados."
        AtualizaFormulario
        cmdPrimeiro.Enabled = False
        cmdUltimo.Enabled = False
        cmdOrganizar.Visible = True
        cmdProximo.SetFocus
   Else
        MsgBox "Não foram encontrados registros" & Chr(13) & _
        "para o CPF (" & ProcuraCPF & ").", vbInformation
        cmdOrganizar.Visible = True
        cmdOrganizar_Click
        cmdOrganizar.Visible = False
        AtualizaFormulario
        End If
   End If
End Sub

PORQUE VC NÃO FAZ UMA CONSULTA ASSIM:

DIM RS_TEMP AS RECORDSET

SET RS_TEMP=BancoDeDados.OpenRecordset("SELECT Count(Fisica.CPF) AS Contarcpf FROM Fisica HAVING (((Count(Fisica.CPF))='" & ProcuraCPF & "'));

IF RS_TEMP.RECORDCOUNT=0 THEN

    MSGBOX("Nenhum")

else

    MSGBOX("Total: " & rs_temp.recordcount)

end if

desculpa troque a linha

   MSGBOX("Total: " & rs_temp.recordcount)

 

por:

   MSGBOX("Total: " & rc_temp("Contarcpf"))

 

 

Olá Daniel.

Tentei transpor seu código, mas deu um erro de compilação (Compiler error: expected: list separator or ")", na segunda linha do código (Set RS.Temp...).

na linha de set rs_temp na comparação HAVING (((Count(Fisica.CPF))= ASPAS SIMPLES ASPAS DUPLAS & ProcuraCPF & ASPAS DUPLAS ASPAS SIMPLES ));ASPAS DUPLAS)

VEJA SE FUNCIONA AGORA