VBA Access: Error de conflicto de escritura
Después de ejecutar la siguiente secuencia y al querer salir del formulario arroja el error de la imagen:
DoCmd.SetWarnings False vUCierre = Consul.Fields(0) vNUCierre = Consul.Fields(2) vUModif = Consul.Fields(0) vNUModif = Consul.Fields(2) vFModif = vFecha vTModif = "E" DoCmd.RunSQL "Update [Prestalectura] set [Prestalectura].[UserCierre] = '" & vUCierre & "' Where [Prestalectura].[Prestamo] = " & txtCPrestamo & "" DoCmd.RunSQL "Update [Prestalectura] set [Prestalectura].[NivelC] = " & vNUCierre & " Where [Prestalectura].[Prestamo] = txtCPrestamo" DoCmd.RunSQL "Update [Prestalectura] set [Prestalectura].[UserModif] = '" & vUModif & "' Where [Prestalectura].[Prestamo] = txtCPrestamo" DoCmd.RunSQL "Update [Prestalectura] set [Prestalectura].[NivelM] = " & vNUModif & " Where [Prestalectura].[Prestamo] = txtCPrestamo" DoCmd.RunSQL "Update [Prestalectura] set [Prestalectura].[FLastModif] = #" & vFModif & "# Where [Prestalectura].[Prestamo] = txtCPrestamo" DoCmd.RunSQL "Update [Prestalectura] set [Prestalectura].[TipoModif] = '" & vTModif & "' Where [Prestalectura].[Prestamo] = txtCPrestamo" DoCmd.RunSQL "Update [Libro] set [Libro].[Prestado] = True Where [Libro].[ID] = txtCID" DoCmd.SetWarnings True
¿Cómo puedo hacer que se guarden esos cambios y no aparezca ese mensaje?
¿Hay alguna forma mejor de actualizar los valores?
