MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

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
    avatar
    Ari
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 71
    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 17 vez(es)
    avatar
    FabioPaes
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3336
    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???
    avatar
    Ari
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 71
    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"
    avatar
    FabioPaes
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3336
    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
    avatar
    Ari
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 71
    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.
    avatar
    FabioPaes
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3336
    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: Seg 23 Out 2017, 05:29