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

    Compartilhe

    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

    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
    avatar
    formiga10x
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

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

    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

    Micke
    Novato
    Novato

    Respeito às Regras 100%

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

    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

    Micke
    Novato
    Novato

    Respeito às Regras 100%

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

    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
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

    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:
    [Você precisa estar registrado e conectado para ver este link.]

    Abraço

      Data/hora atual: 15/11/2018, 04:44