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


    [Resolvido]Código do campo pesquisar na barra de navegação dos formulários

    avatar
    rgondim
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 229
    Registrado : 24/02/2012

    [Resolvido]Código do campo pesquisar na barra de navegação dos formulários Empty Código do campo pesquisar na barra de navegação dos formulários

    Mensagem  rgondim 29/9/2012, 05:14

    Olá a todos!

    Os formulário do Access tem por padrão, na barra dos botões de navegação, uma pequena caixa de texto de pesquisa. Ela realiza buscas em qualquer campo do formulário e selecione a parte os caracteres correspondentes à busca encontrada.

    Consegui algo parecido utilizando RecordSource e SQL com LIKE. Minha solução é muita lenta: nem anda perto da velocidade de busca com que o mecanismo do Access busca informações e nem seleciona a parte encontrada.

    Alguém já reproduziu este código?

    Obrigado.
    avatar
    Convidado
    Convidado


    [Resolvido]Código do campo pesquisar na barra de navegação dos formulários Empty Re: [Resolvido]Código do campo pesquisar na barra de navegação dos formulários

    Mensagem  Convidado 18/10/2012, 02:35

    Boas Rgondim....

    Uma caixa texto... e nos campos do subform o critério apropriado utilizando o like...

    No código, com a caixa texto "Nome"

    Private Sub nome_AfterUpdate()
    Me.ListaCliente.Requery
    End Sub

    Private Sub nome_Change()
    Me.Recalc
    SendKeys "{F2}"
    End Sub


    Nos critério no primeiro campo: Como [Forms]![NomeDoFOrm]![Nome] & "*"

    nos demais campos em Ou: [Forms]![NomeDoFOrm]![Nome] & "*"


    Cumprimentos.
    avatar
    rgondim
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 229
    Registrado : 24/02/2012

    [Resolvido]Código do campo pesquisar na barra de navegação dos formulários Empty Re: [Resolvido]Código do campo pesquisar na barra de navegação dos formulários

    Mensagem  rgondim 25/10/2012, 02:34

    Ok, obrigado.

    Funcionou.
    avatar
    Convidado
    Convidado


    [Resolvido]Código do campo pesquisar na barra de navegação dos formulários Empty Re: [Resolvido]Código do campo pesquisar na barra de navegação dos formulários

    Mensagem  Convidado 25/10/2012, 13:56

    O Fórum agradece o Retorno.

    Conteúdo patrocinado


    [Resolvido]Código do campo pesquisar na barra de navegação dos formulários Empty Re: [Resolvido]Código do campo pesquisar na barra de navegação dos formulários

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 14/5/2024, 19:55