Datos de un formulario calculados
Necesito crear un comando que me permita buscar un registro ya digitado y que me ubique un dato en otro campo de este registro.
Ejemplo:
Dia id empleado turno HoraEntrada HoraSalida TotalLaborado
15/09/2009 2344 2 5:50
Yo tengo un registro como el que envío de ejemplo, donde ya tengo digitados los primeros cuatro campos, pero necesito un comando que al momento que el personal salga, y me digiten en el campo "id empleado", este me busque el registro con este id y la fecha en que se esta digitando, y me ubique en este la hora de salida.
Una vez me ubique la hora de salida, quiero saber cuanto tiempo laboro en el día esta persona.
Ejemplo:
Dia id empleado turno HoraEntrada HoraSalida TotalLaborado
15/09/2009 2344 2 5:50
Yo tengo un registro como el que envío de ejemplo, donde ya tengo digitados los primeros cuatro campos, pero necesito un comando que al momento que el personal salga, y me digiten en el campo "id empleado", este me busque el registro con este id y la fecha en que se esta digitando, y me ubique en este la hora de salida.
Una vez me ubique la hora de salida, quiero saber cuanto tiempo laboro en el día esta persona.
Respuesta de jesspg
1
Me imagino que esos datos se registan en una tabla, que yo llamaré ahora "Empleados" y que la acción se ejecutará cuando se haga clic en el campo "HoraSalida" (luego tu lo acoplas como mejor te sea). En el evento Al Hacer Clic del campo Hora salida, escribe algo así como:
emp =Me.[id empleado]
horas=Time()-Me.[HoraEntrada]
xbusca = DLookup("[Dia]", "Empleados", "[Dia] = Date() and [id empleado] =emp)
DoCmd.SetWarnings False
DoCmd.RunSQL "UPDATE Empleados (HoraSalida,TotalLaborado) VALUES(Time(),horas)"
DoCmd.SetWarnings True
emp =Me.[id empleado]
horas=Time()-Me.[HoraEntrada]
xbusca = DLookup("[Dia]", "Empleados", "[Dia] = Date() and [id empleado] =emp)
DoCmd.SetWarnings False
DoCmd.RunSQL "UPDATE Empleados (HoraSalida,TotalLaborado) VALUES(Time(),horas)"
DoCmd.SetWarnings True
