|
Hola estoy dando vueltas al tema, con el siguiente código me funciona parcialmente, es decir cuando pasa de 00:00 entonces se actualiza el control con la hora del dia anterior y nunca con la nueva es decir apartir de las 12 de la noche
Private Sub Form_BeforeInsert(Cancel As Integer)
Dim rs As Object
Dim ho As Integer
Set rs = Me.Recordset.Clone
rs.FindLast "[id] = [id] + 1"
If Me.NewRecord Then
Me.hora_entrada = DateAdd("n", 90, (DLookup("hora_lsalida", "horas")))
End If
End Sub
cambié lo que esta en negrita por este y me da el mismo resultado:
DateAdd("n", 90, Nz(DMax("hora_salida", "horas"))
he intenado sumar 1 pero nada , alguna sugerencia.
un saludo
|