Formulario buscador

[bruckie]

Hola, estoy realizando un buscador de productos pero el problema que tengo ahora es que no busca todos los registros, solo busca en la primera fila o solo por la primera letra. Por favor si alguien pudiera ayudarme con este problema estaria muy agradecido...

Adjunto el archivo para que tengan una idea clara...

Formulario_Buscador.xls

[joshua]

Saludos.

Prueba con la siguiente macro.

Private Sub Buscador_Change()
Rem declaramos variables
Dim i As Long, Texto As String
Rem cargamos variable de busqueda
Texto = "*" & UCase(Buscador.Text) & "*"
With ListBox1
    Rem verificamos que el textbox no este vacio
    If Len(Buscador.Text) > 0 Then
            Rem recorremos los items del listbox
            For i = .ListCount - 1 To 0 Step -1
                Rem si el item no es igual
                Rem a la variable de busqueda se elimina
                If Not UCase(.List(i, 1)) Like Texto Then
                    .RemoveItem i
                End If
            Next i
        Else
            Rem si el textbox esta vacio se cargan
            Rem todos los datos y se da formato
            .ColumnCount = 7
            .ColumnWidths = _
            "50pt; 250pt; 60pt; 60pt; 60pt; 60pt; 60pt"
            .TextAlign = fmTextAlignCenter
            Rem se ejecuta macro
            Mostrador
            Rem se registra el total de items
            TotalRegistros.Caption = .ListCount
    End If
End With
End Sub
[/HTML]

Atte.

Joshua

[bruckie]

Gracias por la ayuda Joshua, pero no se en que estoy fallando pero no me corre tu código... Serias tan amable de enviar un ejemplo... Gracias, de antemano...

[joshua]

Saludos.

Adjuntando tu archivo.

Atte.

Joshua

Formulario_Buscador.xls

[bruckie]

Gracias, ahora ya me di cuenta cual fue mi error...

.ColumnWidths

= _

"50pt; 250pt;

60pt; 60pt; 60pt; 60pt;

60pt"

Yo no copie el guión bajo no se por que... Pero genial funciona... Y una duda cual la diferencia en usar o no el guión bajo y en que casos se usa.? Perdón, pero indago porque no se mucho de esto, lo poco que se es por este tipo de foros. Espero terminar pronto mi proyecto y te lo envio para que puedan calificar. Gracias nuevamente...

[joshua]

Saludos.

Basicamente sirve para que el compilador reconosca el corte y continuidad de una linea de codigo larga, y si no la colocas el compilador interrumpira la macro y te marcara un error.

Atte.

Joshua

[bruckie]

Ahora entiendo, gracias por la explicación...