Visual Basic - ayuda porfavor

Life is soft - evento anual de software empresarial
   
Vista:

ayuda porfavor

Publicado por alejandro (1 intervención) el 25/09/2007 17:32:17
hola que tal? mi duda es que necesito que un commandbutton me busque en todas las entradas de texto que estan puestas la palabra letra o numero que le pogfa en un textbox
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:ayuda porfavor

Publicado por anonimo (36 intervenciones) el 25/09/2007 18:36:49
Private Sub Command1_Click()
Dim c As Control
For Each c In Me.Controls
If TypeOf c Is TextBox Then
If Not c.Name = "txtBuscar" Then 'para que no busque en la comparacion
If Trim(UCase(c.Text)) = Trim(UCase(Me.txtBuscar.Text)) Then
MsgBox "encontrado"
c.SetFocus
End If
End If
End If
Next
End Sub

Ojala te sea util, Suerte!
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

ayuda

Publicado por AKI (18 intervenciones) el 25/09/2007 18:57:05
Hola, no se si te servira esto pero es cuestion de probar, te doy una idea y luego lo afinas tu con lo vallas a montar.

En la ayuda de VB tienes la palabra "LIKE", que es el metodo para realizar dichas busquedas yo tengo algo montado y funciona.

Desde_Cod = "*" & Text1.text & "*"

'Montas un bucle con el Do While, si estas leyendo en una base de datos

' y haces la pregunta del millon

If "Campo que estas leyendo" Like Desde_Cod then
'pintalo en un texbox, una grip a impresora, etc
end if
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

ayuda

Publicado por AKI (18 intervenciones) el 25/09/2007 19:00:23
Hola, no se si te servira esto pero es cuestion de probar, te doy una idea y luego lo afinas tu con lo vallas a montar.

En la ayuda de VB tienes la palabra "LIKE", que es el metodo para realizar dichas busquedas yo tengo algo montado y funciona.

Desde_Cod = "*" & Text1.text & "*"

'Montas un bucle con el Do While, si estas leyendo en una base de datos o como tu acostumbres a leer

' y haces la pregunta del millon

If "Campo que estas leyendo" Like Desde_Cod then
'pintalo en un texbox, una grip a impresora, etc
end if
'cierra el Do While
Loop

Espero que te ayude a resolver tu pregunta.
Salu2.
Aki
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar