MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

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

    Compartilhe

    Ari
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 58
    Registrado : 28/11/2009

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

    Mensagem  Ari em Sex 04 Mar 2016, 19:05

    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
    Anexos
    SISGAB.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (2.6 Mb) Baixado 12 vez(es)

    FabioPaes
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2302
    Registrado : 14/08/2013

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

    Mensagem  FabioPaes em Sab 05 Mar 2016, 04:56

    Em qual formulario mesmo???

    Ari
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 58
    Registrado : 28/11/2009

    Re: Código de busca não funciona

    Mensagem  Ari em Sab 05 Mar 2016, 06:15

    Formulário: Agenda2 "Agenda de compromissos"

    FabioPaes
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2302
    Registrado : 14/08/2013

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

    Mensagem  FabioPaes em Dom 06 Mar 2016, 18:52

    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

    Ari
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 58
    Registrado : 28/11/2009

    Código de busca não funciona

    Mensagem  Ari em Seg 07 Mar 2016, 05:11

    Resolvido.
    Obrigado fabiopaes.

    Abraço.

    FabioPaes
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2302
    Registrado : 14/08/2013

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

    Mensagem  FabioPaes em Seg 07 Mar 2016, 23:56

    Que bom que deu certo...

    Por favor marque o Topico como Resolvido...

      Data/hora atual: Dom 04 Dez 2016, 01:55