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

    consulta em tabela ao escrever numa caixa de texto

    avatar
    Micke
    Novato
    Novato

    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 em 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 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 784
    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 em 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 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 em 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 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 em 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
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 5857
    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  ahteixeira em 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:
    http://www.maximoaccess.com/t860-resolucao-de-topicos

    Abraço

      Data/hora atual: 25/4/2019, 21:23