Mis problemas parece que nunca acaban... consigo salir de uno y de repente algo que funcionaba ya no lo hace ¬¬.
En un formulario tengo lo siguiente a la hora de abrirlo:
Private Sub Form_Load()
Me.Lista.RowSource = "Select CodigoOperario, fecha,obra,actividad,horas from PartesDeTrabajo where CodigoOperario=" & Me.CodigoOperario & "AND fecha=#" & Format(Date, "mm/dd/yyyy") & "#"
Me.Lista2.RowSource = "Select CodigoOperario, fecha,obra,actividad,horas from PartesDeTrabajo where actividad='Descansos' AND CodigoOperario=" & Me.CodigoOperario & "AND fecha=#" & Format(Date, "mm/dd/yyyy") & "#"
If IsNull(Me.CodigoOperario) Then
Me.TxtHorasTotales = 0
Me.TxtHorasTotales2 = 0
Else
Me.TxtHorasTotales = DSum("Horas", "PartesDeTrabajo", "CodigoOperario=" & Me.CodigoOperario & "AND fecha=#" & Format(Date, "mm/dd/yyyy") & "#")
Me.TxtHorasTotales2 = DSum("Horas", "PartesDeTrabajo", "actividad='Descansos' AND CodigoOperario=" & Me.CodigoOperario & "AND fecha=#" & Format(Date, "mm/dd/yyyy") & "#")
Me.calculo = HoraMinutosSegundos(DateDiff("s", TxtHoraInicio, ahora))
MsgBox HoraMinutosSegundos(DateDiff("s", TxtHoraInicio, ahora))
End If
End Sub
Hasta ahí todo bien, el caso es que la línea marcada en rojo es como si no existiese, ya que no da error pero tampoco escribe en el campo llamado calculo. El caso es que le he puesto el msgbox con lo mismo que se tiene que escribir en calculo y sí que me da el dato, pero a la hora de verlo en el formulario, calculo aparece como #Error.
