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

BUENAS identificar idioma de teclado y región

Estoy haciendo cambiando español usa y latino y este teclado me dice que tiene ñ y aparte algunas ALT no funcionan en estos dos idiomas, por favor cual idioma es y la región es un mini teclado mecánico profesional JYR TGMJR-007 quiero saber si hay o...
6 respuestas

¿Dónde puedo conseguir en formato digital la revista de National Geographic Volumen 143, No. 1, Enero 1973, versión en español?

Busco la revista National Geographic con Fecha Enero 1973, En Español, Volumen 143, No. 1.
1 respuesta

Outlook ya no envía mis correos desde Access, no reconoce la contraseña

Desde access envío un correo electrónico al cliente con el PDF de una factura a través de outlook, pero recientemente con la seguridad actual (oAuth) ya no me deja, utilizo outlook 2016 ¿Alguien sabe como resolverlo?
1 respuesta

The Panda Master app is available on various platforms

The Panda Master app is available on various platforms, making it easy for users to play on the go, whether they are commuting, taking a break, or relaxing at home. Its intuitive design and user-friendly interface mean that even those who are not...
2 respuestas

Por que mi monitor se ve distinto a una Tv?

Estoy intentando comprar un Smart Tv que pueda usar como segunda pantalla para jugar con mi PC cuando quiera recostarme en el sillón. Pero no se cual comprar, ya que con distintos televisores que probe, la imagen se ve como con sombras en los...
5 respuestas

¿Cómo arreglo la pantalla de una calculadora solar?

En esta calculadora no salen los números completos. La he abierto pero no se nada del tema ni tengo soldador. Es solar y veo que dentro tiene una pila. No se si es que falla el almacenamiento, o alguna conexión ... La he tenido cargando al sol y el...
10 respuestas

¿Cómo usar un excel con macros desde varios ordenadores?

A tod@s! Tengo una aplicación en excel para introducir datos y visualizarlos con diferentes formularios creados. Lo que quiero hacer es: 1 Que ese libro este alojado en un sitio común y que lo puedan abrir desde varios ordenadores. 2º Que se pueda...
3 respuestas

En una tabla hacer una Suma acumulada

Tengo una tabla con 5 columnas id, código, fecha, cantidad, cantidadacumulada, donde la cantidad acumulada es el resultado de sumar acumulado todos los códigos iguales dado por los números de la casilla cantidad, el tema que en visual basic lo logro...
3 respuestas

Error en macro al ejecutar el botón aceptar

Necesitaría la colaboración para resolver el error que sucede al ejecutar el botón aceptar Set mifila = Hoja2.ListObjects(1).ListRows.Add Lo que yo agregue solamente a la base fue una columna al inicio ("A") anteriormente se llamaba Tabla6 y yo ahora...
1 respuesta

When is Hosted QuickBooks Enterprise Right for Me?

QuickBooks Desktop Enterprise is a powerful locally installed program with enhanced accounting features, such as advanced inventory, advanced pricing, and QuickBooks Payroll. While it contains great features not included in its online counterpart,...
12 respuestas