Como filtrar palabras que comienzen con...?

[Frehley]

Hola gente, busqué en los Faqs y no lo encontré asi que lo posteo

Supongamos que tengo un text1 y un mshflexgrid1

La idea es que a medida que cambia el text1 filtre los resultados del mshflexgrid1

Lo que hice fué esto:

Private Sub Text1_Change()
With Form4
.rsusuario.Filter = "usuario= " & "'" & Text1.Text & "'"

Set MSHFlexGrid1.DataSource = .rsusuario
End With
End Sub

Pero solo me filtra si son exactamente iguales. Yo lo que quiero es por ejemplo poner en el text1 "ad" y aparesca todos los que comienzen con esas letras y asi susesivamente.

Espero me puedan dar una mano!

Salu2!

[GeoAvila]

ok el asunto esta facil lo unico que tenes que hacer es usa la función MID

por ejemplo con lo del msflexgrid.
seria algo así

for i = 1 to msflexgrid.rows -1
if MID(msflexgrid.textmatrix(2,i),1,3) = StrBusqueda then
msgbox "se ha encontrado un resultado"
end if
next i

de esa manera ..

nos vemos..

P.D. El codigo lo hice al alza así que pude tener algún error revisalo

[Frehley]

Muchas gracias.

Pero yo conocia una forma que usaba filter, el problema es que no recuerdo la sintaxis, se que se usan "*", por ejemplo "*a", o algo asi.
Alguien se acuerda de esa?

Salu2 y gracias!

[Frehley]

Listo!

Les paso el codigo:

Private Sub Text1_Change()
On Error Resume Next

With Form4
If Text1.Text = "" Then
.rsusuario.Filter = ""
.rsusuario.Update
Set MSHFlexGrid1.DataSource = .rsusuario
Else
.rsusuario.Filter = "usuario LIKE " & "'" & Text1.Text & "*'"

Set MSHFlexGrid1.DataSource = .rsusuario
End If
End With
End Sub

Salu2!

[GeoAvila]

ahh ok te entendí de otra manera. pense que lo querías hacer directamente en msflexgrid y no desde el recordset jajaj bueno todo por leer a la carrera pero bueno.. claro es la otra opción via recordset.filter..

nos vemos..