
Access: Integridad Referencial y gestion de mensajes de error
Publicado por Juan (9 intervenciones) el 17/07/2014 17:46:38
Buenas,
Tengo dos tablas (Clientes y Facturas) donde un cliente puede tener 0 o más facturas.
Integridad Referencial: Tengo relacionadas ambas tablas mediante el código de cliente.
He creado una consulta para extraer información de otras tablas para generar la información de las nuevas facturas y anexarlas en la tabla Facturas .
La consulta de inserción en Facturas funciona correctamente y las veces que la inserción genera un registro que no cumple la integridad referencial , access muestra el mensaje de error correspondiente. Todo esto ejecutándolo " a mano" desde el panel de navegación de access.
El problema es el siguiente:
He construido en VBA una función que utiliza esta misma consulta, pero cuando los registros que pretende insertar no verifican la integridad referencial, no me salta la excepción para la gestion de errores.
¿Sabéis a qué se puede deber?
nota: Para otro tipo de errores, la ejecución de este código SI salta a la etiqueta "Error_Alta_Facturas" para la gestión de errores.
Gracias de antemano.
Tengo dos tablas (Clientes y Facturas) donde un cliente puede tener 0 o más facturas.
Integridad Referencial: Tengo relacionadas ambas tablas mediante el código de cliente.
He creado una consulta para extraer información de otras tablas para generar la información de las nuevas facturas y anexarlas en la tabla Facturas .
La consulta de inserción en Facturas funciona correctamente y las veces que la inserción genera un registro que no cumple la integridad referencial , access muestra el mensaje de error correspondiente. Todo esto ejecutándolo " a mano" desde el panel de navegación de access.
El problema es el siguiente:
He construido en VBA una función que utiliza esta misma consulta, pero cuando los registros que pretende insertar no verifican la integridad referencial, no me salta la excepción para la gestion de errores.
¿Sabéis a qué se puede deber?
1
2
3
4
5
6
7
'Gestion de errores ON
On Error GoTo Error_Alta_Facturas
'Creación de nueva factura
Set q = CurrentDb.QueryDefs("01_AltaFactura")
q.Parameters("@fecha") = fechaVenta
q.Execute 'ejecutar la query de creación de cabecera de factura
nota: Para otro tipo de errores, la ejecución de este código SI salta a la etiqueta "Error_Alta_Facturas" para la gestión de errores.
Gracias de antemano.
Valora esta pregunta


0