• Viernes 8 de Noviembre de 2024, 15:51
« anterior próximo »
Páginas: [1]

Autor Tema:  Re: Codigo para Busqueda rapida dentro de ComBox  (Leído 886 veces)

mexican

  • Miembro activo
  • **
  • Mensajes: 32
    • Ver Perfil
Re: Codigo para Busqueda rapida dentro de ComBox
« en: Jueves 4 de Septiembre de 2003, 22:43 »
0
Soy novato en esto de programacion
A ver si alguien me puede ayudar con el
codigo para Hacer una Buesqueda rapida
en un ComBox insertando las primeras letras, el Campo se llama "Cliente" logicamente conectandose a una base de datos, y a la vez me muestre hacia abajo o hacia arriba todos los clientes que coinciden con esas letras o al menos 10 clientes
Trabajo con "Control Data" "Recordset"
 
no se nada del SQL, ADO, etc.

De antemano Gracias
ramirog@valle.net.mx

Brroz

  • Miembro de PLATA
  • *****
  • Mensajes: 1058
    • Ver Perfil
Codigo para Busqueda rapida dentro de ComBox
« Respuesta #1 en: Viernes 5 de Septiembre de 2003, 08:57 »
0
Prueba a ver si te vale esto:

Private Sub Combo1_KeyUp(KeyCode As Integer, Shift As Integer)
    On Error Resume Next
    If KeyCode < 32 Or KeyCode = 35 Or KeyCode = 36 Or KeyCode = 46 Then Exit Sub
    Dim int1 As Integer
    int1 = Len(Combo1.Text)
    Dim int2 As Integer, strW As String
    For int2 = 0 To Combo1.ListCount - 1
        strW = Combo1.List(int2)
        If UCase(Left(strW, int1)) = UCase(Combo1.Text) Then
            Combo1.ListIndex = int2
            Combo1.SelStart = int1
            Combo1.SelLength = Len(Combo1.Text) - int1
            Exit For
        End If
    Next int2
End Sub

Suerte.
Páginas: [1]
« anterior próximo »