consulta de actualizacion no actualiza

Buenas Tardes

tengo un problema con una consulta de actualización tengo 6 equipos contra la base de datos

ahora tengo la consulta qry_actualizar_acumulado

si la ejecuto con DoCmd.OpenQuery ejecuta la mayoría de veces algunas veces no actualiza el sistema y toca hacer varias veces el intento hasta que por fin actualiza el acumulado

he intentado varios métodos a ver si mejora la ejecución de la consulta

con DoCmd.RunSQL ejecuta tambien la mayoría de veces

no se si con CurrentDb.Execute solucione el problema


Private Sub txt_id_cadete_AfterUpdate()

If Me.ult_entraga < ini_semana Then
' DoCmd.SetWarnings False
' DoCmd.OpenQuery "qry_actualizar_acumulado"
' DoCmd.SetWarnings True


CurrentDb.Execute "UPDATE tbl_cadetes SET tbl_cadetes.peso_acumulado = 0, tbl_cadetes.veces_traida = 0 WHERE (((tbl_cadetes.id_cadete)=" & [txt_id_cadete] & " ));", dbFailOnError

'DoCmd.RunSQL "UPDATE tbl_cadetes SET tbl_cadetes.peso_acumulado = 0, tbl_cadetes.veces_traida = 0 WHERE (((tbl_cadetes.id_cadete)=[Formularios]![frm_add_facturas]![txt_id_cadete]));"

End if

End Sub