RE:buscar registros por fecha
Muchas Gracias por tu respuesta eugenior, he adaptado el codigo a mi proyecto y queda así:
Dim R_Compras As DAO.Recordset
Set db = OpenDatabase(App.Path & "HAIR´S PELU.mdb")
Set R_Compras = db.OpenRecordset("CONTABILIDAD")
R_Compras.Index = "Primarykey"
R_Compras.MoveFirst
Do While Not R_Compras.EOF
R_Compras.Edit
If R_Compras!FECHA = FechaBuscada Then
A = R_Compras!EMPLEADA
'aca abrir la base y guardar los registros que necesitas
End If
R_Compras.Monext
Loop
R_Compras.Close
db.Close
Al ejecutarse la instrucción Set db = OpenDatabase(App.Path & "HAIR´S PELU.mdb") me indica el error que no reconoce el formato de la base de datos
siendo esta una ACCESS.
Por otro lado me indica otro error en R_Compras.Monext, ¿ no será MoveNext?