Consulta de actualizacion se demora

   Hola
En mi BD tengo acciones y estas estan compuestas por tareas. 
Al cerrar una tarea, compruebo si esta es la ultima (es decir que no quedan ninguna por hacer) : si es la ultima, actualizo la fecha_fin_real  y el estado de la accion.

El problema es que el update:

DoCmd.RunSQL "UPDATE Tarea SET Fecha_Inicio_Real='" & finic & "',Fecha_Fin_Real='" & ffin & "',Comentario_final='" & coment & "',Tiempo_real_de_trabajo_responsable='" & trt & "' WHERE Id_Tarea = " & idt

se realiza "tarde"(haciendo una parada de debug antes de realizar la comprobacion la tabla todavia no se actualizo) y la comprobacion falla, por que encuentra alguna sin fecha de finalizacion:

If IsNull(DLookup("[Id_Tarea]", "Tarea", "Acción= " & idacc & " And isnull([Fecha_Fin_Real])")) Then
    DoCmd.RunSQL "UPDATE Acción SET Fecha_Fin_Real='" & ffin & "',Estado='" & "Cerrada" & "' WHERE Id_Accion = " & idacc
    Forms![F1_altas_y_Modificaciones]![F1_Accion].Requery
End If

Autor	Mensaje Tema Buscar Opciones del Tema Responder Crear un nuevo tema Versión imprimible Traducir Tema
eugewp Ver perfil usuario Enviar mensaje privado Ver los mensajes del usuario Añadir a la lista de amigos Nuevo Unido: 05/Marzo/2020 Localización: Santa Fe Estado: Sin conexión Puntos: 6	Tema: Consulta de actualizacion se demora Enviado: 05/Marzo/2020 a las 15:13
	Hola En mi BD tengo acciones y estas estan compuestas por tareas. Al cerrar una tarea, compruebo si esta es la ultima (es decir que no quedan ninguna por hacer) : si es la ultima, actualizo la fecha_fin_real y el estado de la accion. El problema es que el update: DoCmd.RunSQL "UPDATE Tarea SET Fecha_Inicio_Real='" & finic & "',Fecha_Fin_Real='" & ffin & "',Comentario_final='" & coment & "',Tiempo_real_de_trabajo_responsable='" & trt & "' WHERE Id_Tarea = " & idt se realiza "tarde"(haciendo una parada de debug antes de realizar la comprobacion la tabla todavia no se actualizo) y la comprobacion falla, por que encuentra alguna sin fecha de finalizacion: If IsNull(DLookup("[Id_Tarea]", "Tarea", "Acción= " & idacc & " And isnull([Fecha_Fin_Real])")) Then DoCmd.RunSQL "UPDATE Acción SET Fecha_Fin_Real='" & ffin & "',Estado='" & "Cerrada" & "' WHERE Id_Accion = " & idacc Forms![F1_altas_y_Modificaciones]![F1_Accion].Requery End If

eugewp Ver perfil usuario Enviar mensaje privado Ver los mensajes del usuario Añadir a la lista de amigos Nuevo Unido: 05/Marzo/2020 Localización: Santa Fe Estado: Sin conexión Puntos: 6	Enviado: 06/Marzo/2020 a las 12:24
	Ayer no le di importancia a este error: conflicto de escritura otro usuario modifico este registro despues de que usted comenzo a modificarlo access por que habia otros usuarios utilizando la BD, pero ahora la uso yo solo y sigue apareciendo. cambie la propiedad Bloqueos de registro a Registro editado como sugiere MS en estos casos, pero el error no aparece mas, pero no funciona el codigo, es decir no me actualiza nunca la tabla Accion. Es muy curioso que antes si funcionaba, y no cambie nada del formulario..

eugewp Ver perfil usuario Enviar mensaje privado Ver los mensajes del usuario Añadir a la lista de amigos Nuevo Unido: 05/Marzo/2020 Localización: Santa Fe Estado: Sin conexión Puntos: 6	Enviado: 06/Marzo/2020 a las 12:37
	Lo resolvi de la siguiente manera: Dim REGISTRO_ACTUAL As Integer On Error Resume Next REGISTRO_ACTUAL = Me.CurrentRecord Me.Requery DoCmd.GoToRecord , , acGoTo, REGISTRO_ACTUAL If IsNull(DLookup("[Id_Tarea]", "Tarea", "Acción= " & idacc & " And isnull([Fecha_Fin_Real])")) Then DoCmd.RunSQL "UPDATE Acción SET Fecha_Fin_Real='" & ffin & "',Estado='" & "Cerrada" & "' WHERE Id_Accion = " & idacc Forms![F1_altas_y_Modificaciones]![F1_Accion].Requery End If Pueden dar por cerrado el tema