Alguém sabe como Filtar uma listbos não acoplada ao digitar?

A dúvida anterior para criar uma função pública consegui resolver.


Queria saber se é possível fazer filtragem em uma listbox ao digitar, ou com botão?

Se sim, alguém teria uma dica de como fazer isso!

Olá Ronaldo,

Sim, é possivel.

Para ficar mais rápido e facil em ajudar, compartilhe uma cópia do seu banco de dados, para análise e solução do problema.

Att,

Alexandre Fim

Esse foi o código que usei para carregara listbox desvinculada nãoassociada

Dim strSQL As String
Dim rs As DAO.Recordset

strSQL = "SELECT cod, nomeusuario , usuario, departamento, ativo, bloqueado FROM tblusuarios"

Set rs = CurrentDb.OpenRecordset(strSQL, , 4)

Me.lbxUsuarios.RowSource = ""

Do Until rs.EOF
Me.lbxUsuarios.AddItem rs!cod& ";" & rs!nomeusuario & ";" & rs!usuario& ";" & rs!departamento & ";" & rs!ativo & ";" & rs!bloqueado
rs.MoveNext
Loop

rs.Close
Set rs = Nothing


Resolvido!

Olá,

Sempre que puder, é importante colocar a resolução no tópico para que outros membros possam visualizar a solução do problema.

Caso necessite, fiz um ajuste na instrução SQL :

Código:



strSQL = "SELECT cod, nomeusuario , usuario, departamento, ativo, bloqueado "
strSQL = strSQL & " FROM tblusuarios"
strSQL = strSQL & " WHERE cod Like '*" & Trim(Me.[CAMPO_DO_SEU_FORMULARIO]) & "*'"




Favor marcar o tópico como Resolvido.

Att,

Alexandre Fim