codigo buscar
Publicado por miguel (47 intervenciones) el 31/03/2008 19:38:13
hola que tal apenas empece a trabajar con visual basic hice un control de personal en el cual use access para llevar la base. tengo 3 formularios
1 tiene
clave
nombre
horario
puesto
en la 2 tengo
clave
nº trabajador
antiguedad
puesto
3 clave
nombre
horario
en los formularios 2 y 3 estan enlazados con la base pero el 1 es un fantasma es decir dede aqui jalo los datos de la 2 y la 3
para eso puse un boton de buscar me busca los datos y los jalo del 2 al 1 y del 3 al 1
el problema es que solamente me busca en un formulario como puedo hacer para que me busque en los 2 formularios es decir que coincidan los dos elementos
el codigo de buscar es el siguiente
Dim buscado As String, criterio As String
buscado = InputBox("indica la matricula que quieres buscar")
If buscado = "" Then Exit Sub
criterio = "trabajador like '*" & buscado & "*'"
Form3.Data1.Recordset.MoveNext
If Not Form3.Data1.Recordset.EOF Then
Form3.Data1.Recordset.FindFirst criterio
End If
If Form3.Data1.Recordset.EOF Then
Form3.Data1.Recordset.MoveFirst
Form3.Data1.Recordset.FindFirst criterio
If Form3.Data1.Recordset.EOF Then
Form3.Data1.Recordset.MoveLast
MsgBox ("no encuentro esa matricula")
End If
End If
1 tiene
clave
nombre
horario
puesto
en la 2 tengo
clave
nº trabajador
antiguedad
puesto
3 clave
nombre
horario
en los formularios 2 y 3 estan enlazados con la base pero el 1 es un fantasma es decir dede aqui jalo los datos de la 2 y la 3
para eso puse un boton de buscar me busca los datos y los jalo del 2 al 1 y del 3 al 1
el problema es que solamente me busca en un formulario como puedo hacer para que me busque en los 2 formularios es decir que coincidan los dos elementos
el codigo de buscar es el siguiente
Dim buscado As String, criterio As String
buscado = InputBox("indica la matricula que quieres buscar")
If buscado = "" Then Exit Sub
criterio = "trabajador like '*" & buscado & "*'"
Form3.Data1.Recordset.MoveNext
If Not Form3.Data1.Recordset.EOF Then
Form3.Data1.Recordset.FindFirst criterio
End If
If Form3.Data1.Recordset.EOF Then
Form3.Data1.Recordset.MoveFirst
Form3.Data1.Recordset.FindFirst criterio
If Form3.Data1.Recordset.EOF Then
Form3.Data1.Recordset.MoveLast
MsgBox ("no encuentro esa matricula")
End If
End If
Valora esta pregunta


0