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


3 participantes

    consulta em tabela ao escrever numa caixa de texto

    avatar
    Micke
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11
    Registrado : 02/02/2011

    consulta em tabela ao escrever numa caixa de texto Empty consulta em tabela ao escrever numa caixa de texto

    Mensagem  Micke 17/7/2017, 15:13

    Boa tarde...

    eu preciso ter uma caixa de listagem com dados de uma tabela, e quando eu escrever numa caixa de texto pesquise nessa tabela e me de resultados sem ter que escrever a palavra toda. Será para pesquisar contactos.

    Cumprimentos, Micke
    formiga10x
    formiga10x
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 818
    Registrado : 11/09/2013

    consulta em tabela ao escrever numa caixa de texto Empty Re: consulta em tabela ao escrever numa caixa de texto

    Mensagem  formiga10x 17/7/2017, 15:47

    Bom dia.
    No evento ao alterar da caixa de texto...
    Código:
    Private Sub txtBuscar_Change()

        Me.lstTeste.RowSource = "Select nome,email From tbl_Clientes Where Nome Like '*" & Me.txtBuscar.Text & "*'"

    End Sub

    PS. Caso queira fazer a busca em mais de um campo na mesma caixa de texto basta concatenar os nomes dos campos na tabela utilizando & Ex:

    Código:
    [code]Private Sub txtBuscar_Change()

        Me.lstTeste.RowSource = "Select nome,email From tbl_Clientes Where Nome & email Like '*" & Me.txtBuscar.Text & "*'"

    End Sub[/code]


    .................................................................................
    Abraço
    Formiga10x

    Sempre que possível poste o bd ou parte dele, com uma explicação bem clara e objetiva do que quer.
    “Um homem não está acabado quando enfrenta a derrota. Ele está acabado quando desiste - Richard Nixon”
    Formiga10x

    "Lembro do exato momento em que me dei conta que boa parte de minha vida foi dedicada a localizar erros em meus próprios programas."
    - Maurice Vicent Wilkes
    avatar
    Micke
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11
    Registrado : 02/02/2011

    consulta em tabela ao escrever numa caixa de texto Empty Re: consulta em tabela ao escrever numa caixa de texto

    Mensagem  Micke 18/7/2017, 13:17

    Vou testar... fiz algo parecido se nao estou em erro... mas nao funcionava com o Change.. tinha que ser com o click num botão... mas vou testar e ja dou feedback...
    Obrigado
    avatar
    Micke
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11
    Registrado : 02/02/2011

    consulta em tabela ao escrever numa caixa de texto Empty Re: consulta em tabela ao escrever numa caixa de texto

    Mensagem  Micke 18/7/2017, 13:40

    Verificado, aplicado e a funcionar... em relação ao que eu tinha falhei na consulta, nao coloquei o 'Me' na caixa de texto... Obg
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7930
    Registrado : 15/03/2013

    consulta em tabela ao escrever numa caixa de texto Empty Re: consulta em tabela ao escrever numa caixa de texto

    Mensagem  Alvaro Teixeira 18/7/2017, 14:14

    Olá a todos,

    Micael Lopes, obrigado pelo retorno.
    Não se esqueça de dar o tópico como resolvido, veja aqui como fazer:
    https://www.maximoaccess.com/t860-resolucao-de-topicos

    Abraço

    Conteúdo patrocinado


    consulta em tabela ao escrever numa caixa de texto Empty Re: consulta em tabela ao escrever numa caixa de texto

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 17/6/2024, 05:14