Quitar Mensaje de Access y ejecutar el código directamente

De esta gran comunidad bueno hoy tengo la esta pregunta. Resulta que tengo el siguiente código que utilizo para eliminar datos de varas tablas, el cual funciona correctamente.

Private Sub Seis_Click()
On Error GoTo Product_Err
DoCmd.RunSQL "delete * from [Entradas y Salidas]"
DoCmd.RunSQL "delete * from [Salidas Final]"
DoCmd.RunSQL "delete * from [Caducidades]"
DoCmd.RunSQL "delete * from [Cotizacion]"
DoCmd.RunSQL "delete * from [Cotizacion Final]"
DoCmd.RunSQL "delete * from [Facturas]"
DoCmd.RunSQL "delete * from [Guias Despacho]"
DoCmd.RunSQL "delete * from [Herramientas O Equipos]"
DoCmd.RunSQL "delete * from [Materiales]"
DoCmd.RunSQL "delete * from [Orden de Compra]"
DoCmd.RunSQL "delete * from [Orden de Compra Final]"
DoCmd.RunSQL "delete * from [Pedidos Final]"
DoCmd.RunSQL "delete * from [PersonalObra]"
DoCmd.RunSQL "delete * from [PreciosVariables]"
DoCmd.RunSQL "delete * from [Proveedores]"
DoCmd.RunSQL "delete * from [Recepcion Final]"
Product_Err:
End Sub

El tema es el siguiente que al ejecutarlo Access le pregunta al usuario que si desea o no realizar la acción y esto no lo deseo solo quiero que lo ejecute directamente el código para eliminar la información de las tablas.

1 respuesta

Respuesta
1

Después de la línea On error.. ingrese

DoCmd.SetWarnings False

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas