ACCESS - Conflicto de escritura

[Taribo007]

Puede ser, para descartarlo, pon un par de segundos de espera entre una y otra:

copiate esta funcion en un modulo:

Public Function EsperaSecs(Segundos As Single)
Dim hora As Single
hora = Timer
Do While Timer - hora < Segundos
DoEvents
Loop
End Function

Y luego, la llamas entre un y otra

' Guardamos los datos en la tabla IncidenciasUsuariosApp
query2 = "INSERT INTO IncidenciasUsuariosApp (id_incidencia, id_administrador, fecha, tarea) VALUES (" & Me.txtIncidencia.Value & "," & Me.lstAdministradores.Value & ",#" & fechaTraspaso & "#,'" & Me.txtTarea.Value & "');"
CurrentDb.Execute (query2)

Call EsperaSecs(2)

' Guardamos los datos en la tabla Incidencias
query1 = "UPDATE Incidencias SET id_site=" & Me.lstSites.Value & ", id_categoria=" & Me.lstCategorias.Value & ", fecha_finalizacion=#" & fechaFinalizacion & "#, id_impacto=" & Me.lstImpactos.Value & ", id_prioridad=" & Me.lstPrioridades.Value & ", id_estado=" & Me.lstEstados.Value & " WHERE id_incidencia=" & Me.txtIncidencia.Value
CurrentDb.Execute (query1)

Un saludo