MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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


2 participantes

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

    Ari
    Ari
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Ari 4/3/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
    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  FabioPaes 5/3/2016, 04:56

    Em qual formulario mesmo???
    Ari
    Ari
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Ari 5/3/2016, 06:15

    Formulário: Agenda2 "Agenda de compromissos"
    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  FabioPaes 6/3/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
    Ari
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Ari 7/3/2016, 05:11

    Resolvido.
    Obrigado fabiopaes.

    Abraço.
    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  FabioPaes 7/3/2016, 23:56

    Que bom que deu certo...

    Por favor marque o Topico como Resolvido...

    Conteúdo patrocinado


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

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 29/3/2024, 08:10