[Resolvido]Código de busca não funciona

Boa tarde.
No Banco de dados anexo, tem uma "busca por data", mas quando efetuo a busca, não é remetido à "página" do resultado da busca, conforme pode ser observado na barra de seletor de registro.
O que está errado?

Obrigado

Em qual formulario mesmo???

Formulário: Agenda2 "Agenda de compromissos"

Teste assim:

Código:


Private Sub ProcuraData_AfterUpdate()
    Dim rs As Object

    Set rs = Me.Recordset.Clone
    rs.FindFirst "[DataComp] =#" & Format(Me.ProcuraData, "dd/mm/yyyy") & "#"
    If Not rs.EOF Then Me.Bookmark = rs.Bookmark

End Sub



Veja se atende as suas necessidades

Resolvido.
Obrigado fabiopaes.

Abraço.

Que bom que deu certo...

Por favor marque o Topico como Resolvido...