Búsquedas en MSFLEXGRID

[Neverhood]

Tengo un MSFLEXGRID lleno con datos desde un recordset, y en el formulario tengo una caja de texto (TEXT), lo que quiero es que al ir escribiendo en el TEXT, busque dentro del FLEX en la columna 1 la celda que vaya coincidiendo con el texto que tiene mi TEXT, que la seleccione y me la muestre (que no la seleccione y se quede renglones abajo sin poderse ver)... cómo le puedo hacer???

[GeoAvila]

lo tenes conectado a una db..?

nos vemos..

[Neverhood]

El Flex lo lleno mediante una variable de tipo Recordset, la cual lleno de la siguiente manera:

Código:

Set RsTempo = Base.OpenRecordset("SELECT * FROM Productos ORDER BY NomProd", dbOpenDynaset)
  With RsTempo
    Do While Not .EOF
      Flex2.AddItem Chr(9) & !IdProd & _
                    Chr(9) & !NomProd & " " & _
                             !PresentProd & _
                    Chr(9) & Format(!PrecioProd, "##,##0.00") & _
                    Chr(9) & Format(!PrecioPieza, "##,##0.00") & _
                    Chr(9) & Format(!PrecioDiez, "##,##0.00") & _
                    Chr(9) & Format(!PrecioCaja, "##,##0.00")
    
    .MoveNext
    Loop
  End With

y la búsqueda la hacia de la siguiente manera (el código siguiente está en el CHANGE del TEXT):

Código:

Busqueda = UCase(Trim(txtBusqueda))
 
  With Flex2
    For Y = 1 To .Rows - 1
      If Mid(.TextMatrix(Y, 2), 1, Len(Busqueda)) = UCase(Busqueda) Then
        .SetFocus
        .Row = Y
        .Col = 2
        SendKeys "{UP}"
        SendKeys "{DOWN}"
        exit for
      End If
    Next Y
  End With
   
  txtBusqueda.SetFocus

pero ni me regresa el foco al TEXT, ni me muestra la fila que contiene el dato buscado en el FLEX (si la fila con el dato es la 1000 y el flex muestra el inicio de las filas (1,2,3, etc), ahi se queda, en vez de irse a la fila 1000)

qué hago???

[GeoAvila]

en el if intenta esto

If UCase(Trim(.TextMatrix(Y, 2))) = UCase(Busqueda) Then

nos vemos..

[Neverhood]

nop... sigue sin funcionar...

[GeoAvila]

una pregunta estas buscando un texto exacto o bien lo que estas buscando son un par de letras para que ver si coinciden dentro de otro texto..??

nos vemos..

[Neverhood]

Voy a ser más específico: al abrir el Form me aparece (ya lleno) el Flex, con los productos en orden alfabetico...
[ TEXT ]

fila 1 Arroz
fila 2 Azucar
fila 3 Frijol
fila 4 Huevo
...
...
...
fila 500 Raid
fila 501 Sorgo
fila 502 Trigo
...etc.

al escribir en el Text, por ejemplo, MANT quiero que en el Flex me busque la celda donde comienze por ese texto, pero el flex se queda mostrando desde la fila 1 hasta donde le permite el tamaño del mismo Flex (como hasta la 30) en vez de que me mostrara, por ejemplo:

...
...
fila 200 Mantel
fila 201 Manteca
fila 202 Mantequilla
...
...
... etc


me explico mejor???

[GeoAvila]

jeje claro que te explicas.. como dirías yo me lo pero con naranjas... jaja

mira yo lo que hago es hacer una consulta con like para filtrar los datos.. pero me imagino que esto no es lo que buscas o si..?

nos vemos..

[Neverhood]

Claro, lo que quiero es que me muestre en el flex la primer celda que coincida con la busqueda, y le siga el resto de los registros...

[GeoAvila]

osea que no te importa el resto de info unicamente lo que estas buscando..??

si es así hacelo con una consulta sql

Select * From Productos Where NombreProducto LIKE '" & TxtBuscar.text & "%'

nos vemos..

[Neverhood]

No, si me interesa el resto, lo que quiero es que me visualize en el flex el registro buscado, o sea, que si el flex esta posicionado en la celda 1 (por default) de 1000 y busco el registro 1000, que me muestre los ultimos registros, incluido el registro 1000, que si busco el registro 500 me posicione en medio del flex, pero que el flex contenga los 1000 registros... etc

[GeoAvila]

ok talvez si usas el toprow

nos vemos..

[Neverhood]

CORRECTO!! El TopRow me funcionó a la perfección... GRACIAS GeoAvila!!!