Busqueda en listbox
Publicado por Jimmy (5 intervenciones) el 19/08/2010 20:10:02
Hola.
Tengo la siguiente consulta.
Tengo un listbox en un formulario en el cual a travez de un textbox me haga una busqueda a un valor dentro del listbox, esto lo puedo hacer perfectamente haciendo referencia a la primera columna, lo que quiero saber si existe la forma de hacerlo referenciando a otra columna, por ejemplo la segunda o tercera columna del listbox.
aqui esta el ejemplo que utilizo, esto esta en el evento change del text
Dim i As Integer, Ctrl As Boolean
Ctrl = True
For i = Me.ListBox1.ListCount - 1 To 0 Step -1
If Not IsEmpty(Trim(Me.TextBox1)) Then
If LCase(Me.ListBox1.List(i)) Like LCase(Me.TextBox1.Value) + "*" Then
Me.ListBox1.Selected(i) = True
Ctrl = False
End If
End If
Next
If Ctrl And Not IsEmpty(Trim(Me.TextBox1)) Then
MsgBox "Rut No Registrado", vbInformation + vbOKOnly, "Sr. Operador"
End If
Muchas gracias.
Tengo la siguiente consulta.
Tengo un listbox en un formulario en el cual a travez de un textbox me haga una busqueda a un valor dentro del listbox, esto lo puedo hacer perfectamente haciendo referencia a la primera columna, lo que quiero saber si existe la forma de hacerlo referenciando a otra columna, por ejemplo la segunda o tercera columna del listbox.
aqui esta el ejemplo que utilizo, esto esta en el evento change del text
Dim i As Integer, Ctrl As Boolean
Ctrl = True
For i = Me.ListBox1.ListCount - 1 To 0 Step -1
If Not IsEmpty(Trim(Me.TextBox1)) Then
If LCase(Me.ListBox1.List(i)) Like LCase(Me.TextBox1.Value) + "*" Then
Me.ListBox1.Selected(i) = True
Ctrl = False
End If
End If
Next
If Ctrl And Not IsEmpty(Trim(Me.TextBox1)) Then
MsgBox "Rut No Registrado", vbInformation + vbOKOnly, "Sr. Operador"
End If
Muchas gracias.
Valora esta pregunta


0