txabyme
18 de Agosto del 2004

Hola buenos dias,

Os comento:
Resulta que tengo que hacer una busqueda en la que primero tengo q encontrar la fecha, una vez en la fecha debo encontrar el codigo de empleado. Pero resulta que al hacer la 2 busqueda pierdo el criterio de la 1 busqueda con lo q los datos m los inserta con los criterios de la 2 busqueda.Como hago para que la busqueda sea con los 2 criterios, os paso un trozo de cogigo dnd creo q esta el problema

Do While Not Adodc1.Recordset.EOF
Criterio = "Fecha Like '*" & Adodc2.Recordset("fecha")"*'"
Adodc1.Recordset.Find Criterio
If Adodc1.Recordset.EOF Then
Adodc1.Recordset.MoveLast
Else
Criterio2 = "Empleado Like '*" & Mid(Adodc2.Recordset("Empleado"), 2, 2) & "*'"

Adodc1.Recordset.FindNext Criterio2

If Adodc1.Recordset.EOF Then
Adodc1.Recordset.MoveLast
MsgBox "empleado no encontrado"
Else
Encontrado = 1
End If
End If
Loop

sdemingo
18 de Agosto del 2004

Hola,

no se si entiendo muy bien... pero para mantener el priemr criterio deberás concatenarlo criterio = criterio & "Fecha Like '*" & Adodc2.Recordset("fecha")"*'"

A ver si es eso...
salu2
sdemingo