Visual Basic - Intenta esto

Life is soft - evento anual de software empresarial
   
Vista:

Intenta esto

Publicado por Aleslf (28 intervenciones) el 08/11/2007 18:56:53
Private Sub Text15_Change()
Filt
End Sub

Public Sub Filt()
Dim R As String
On Error GoTo RutinaDeError
Data1.RecordSource = "SELECT * FROM tabla1 WHERE concepto like '*" & Text15.Text & "*'"
Data1.Refresh
DBGrid1.Refresh
Exit Sub
RutinaDeError:
R = MsgBox(Error, vbOKOnly, "Se ha producido un error:")
End Sub
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

Ya lo intente!

Publicado por otongo (17 intervenciones) el 08/11/2007 22:11:35
Y en la rutina error me dice que el Text15 no existe
que puede estar pasando?
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

RE:Ya lo intente!

Publicado por Limon (28 intervenciones) el 09/11/2007 17:16:47
Mira lo que puede ser es que tienes que adaptar el codigo que te pusea tucodigo
si no tienes un text15 te va a mostrar error por lo tanto corregi el codigo deacuerdo a tus controles igual con el data y la Tabla de la base de datos

si aun asi batallas manda,me tu codigo con tu base de datos y con gusto te alludo
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