formiga10x- Super Avançado
- Respeito às regras :
Sexo : 
Localização : 
Mensagens : 818
Registrado : 11/09/2013
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çoFormiga10xSempre 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
Início
