Otro Usuario ha eliminado .....
Publicado por Sandra Verónica (203 intervenciones) el 21/01/2008 21:00:16
Hola a todos. Necesito que me ayuden a sugieran una solucion para lo siguiente:
Tengo un Formulario con Dos Sub-Formularios. Busco el Cliente , le doy doble Clic, me trae todos los datos y ejecuta las dos consultas en sus correspondientes su-formularios.
Cuando lo ejecuto por primera vez, no me sale ningun error pero El problema viene cuando al seleccionar otro cliente, sin cerrar el formulario, me tira el error de (2147352567 (80020009) Otro Usuario ha eliminado el registro de la tabla "....."
Obviamente es por la linea en la que limpio la tabla FCParaCompensar.
Alguna sugerencia.
Saludos y gracias por adelantado
Sandra!
------------------------------------------
DoCmd.SetWarnings False
DoCmd.RunSQL "Delete * From FCParaCompensar"
DoCmd.RunSQL "INSERT INTO FCParaCompensar ( Acreedor, nombre, Razon) SELECT Deuda_Actualizada_Al.CUENTA, CLIPROV.nombre, Deuda_Actualizada_Al.CLIENTE FROM CLIPROV INNER JOIN Deuda_Actualizada_Al ON CLIPROV.cliente = Deuda_Actualizada_Al.CLIENTE WHERE (((CLIPROV.cuit)=[Formularios]![Compensaciones]![CUIT]));"
DoCmd.RunSQL "UPDATE FCParaCompensar SET FCParaCompensar.Cotizacion = 1, FCParaCompensar.Moneda = 'ARS', FCParaCompensar.MonedaLocal = 'ARS', FCParaCompensar.MontoCompensa = FcParaCompensar.ImporteARS WHERE (((FCParaCompensar.Cotizacion)=0) AND ((FCParaCompensar.MonedaLocal)='$'))"
Forms!Compensaciones!SubFcACompensarMC.Form.Requery
..........
...........
.........
DoCmd.SetWarnings True
Tengo un Formulario con Dos Sub-Formularios. Busco el Cliente , le doy doble Clic, me trae todos los datos y ejecuta las dos consultas en sus correspondientes su-formularios.
Cuando lo ejecuto por primera vez, no me sale ningun error pero El problema viene cuando al seleccionar otro cliente, sin cerrar el formulario, me tira el error de (2147352567 (80020009) Otro Usuario ha eliminado el registro de la tabla "....."
Obviamente es por la linea en la que limpio la tabla FCParaCompensar.
Alguna sugerencia.
Saludos y gracias por adelantado
Sandra!
------------------------------------------
DoCmd.SetWarnings False
DoCmd.RunSQL "Delete * From FCParaCompensar"
DoCmd.RunSQL "INSERT INTO FCParaCompensar ( Acreedor, nombre, Razon) SELECT Deuda_Actualizada_Al.CUENTA, CLIPROV.nombre, Deuda_Actualizada_Al.CLIENTE FROM CLIPROV INNER JOIN Deuda_Actualizada_Al ON CLIPROV.cliente = Deuda_Actualizada_Al.CLIENTE WHERE (((CLIPROV.cuit)=[Formularios]![Compensaciones]![CUIT]));"
DoCmd.RunSQL "UPDATE FCParaCompensar SET FCParaCompensar.Cotizacion = 1, FCParaCompensar.Moneda = 'ARS', FCParaCompensar.MonedaLocal = 'ARS', FCParaCompensar.MontoCompensa = FcParaCompensar.ImporteARS WHERE (((FCParaCompensar.Cotizacion)=0) AND ((FCParaCompensar.MonedaLocal)='$'))"
Forms!Compensaciones!SubFcACompensarMC.Form.Requery
..........
...........
.........
DoCmd.SetWarnings True
Valora esta pregunta


0