Cómo usar SetOption para deshabilitar los mensajes de advertencia en una aplicación de Access

Nota

Office 365 ProPlus pasa a llamarse Microsoft 365 Apps para empresas. Para obtener más información sobre este cambio, lea esta publicación de blog.

Moderado: requiere habilidades básicas de macros, codificación e interoperabilidad.

Este artículo solo se aplica a una base de datos de Microsoft Access (. mdb o. accdb).

Resumen

En este artículo se muestra cómo usar el método Application. SetOption para deshabilitar los mensajes de advertencia en una aplicación de Access.

Más información

Microsoft proporciona ejemplos de programación con fines ilustrativos únicamente, sin ninguna garantía, ya sea expresa o implícita. Esto incluye, entre otras, las garantías implícitas de comerciabilidad e idoneidad para un fin determinado. Se considera que está familiarizado con el lenguaje de programación que se muestra y con las herramientas para crear y depurar procedimientos. Los ingenieros de soporte técnico de Microsoft pueden explicarle la funcionalidad de un procedimiento en particular, pero no modificarán estos ejemplos para proporcionar una funcionalidad agregada ni crear procedimientos que se ajusten a sus necesidades específicas. Las consultas de acción y otros procesos que anexan, eliminan o modifican datos suelen presentar al usuario con una advertencia de que los datos se van a modificar. Sin embargo, en una aplicación en tiempo de ejecución, a menudo es conveniente deshabilitar las advertencias porque las comprobaciones y precauciones suelen estar más allá del control del usuario.

Para ello, puede usar el método SetWarnings del objeto DoCmd, pero es posible que prefiera deshabilitar las advertencias para toda la aplicación. Para ello, puede usar el método SetOption del objeto Application. Sin embargo, si lo hace, también debe volver a activar las advertencias cuando se cierre la aplicación.

Para hacer esto en una aplicación sencilla de un formulario, siga estos pasos:

  1. Inicie Access y, a continuación, cree una base de datos en blanco llamada TestRun.

  2. Importe la tabla Customers desde la base de datos de ejemplo Neptuno. mdb.

  3. Cree un nuevo formulario en la vista Diseño y, a continuación, agregue un cuadro combinado independiente a la sección de detalle.

  4. Establezca las siguientes propiedades para el cuadro combinado:

    Name: cboCountry
    Row Source: SELECT DISTINCT Customers.Country FROM Customers ORDER BY Customers.Country; 
    
  5. Agregue un botón de comando a la sección Detalles del formulario y asígnele el nombre cmdDelete.

  6. Establezca la propiedad OnClick del botón de comando en el siguiente procedimiento de evento:

    DoCmd. OpenQuery "qryDeleteCustomers"

  7. Cierre el editor de Visual Basic.

  8. Guarde el formulario como DeleteCustomers y, a continuación, ciérrelo.

  9. Cree una nueva consulta en la vista Diseño y, a continuación, agregue la tabla clientes.

  10. En Access 2002 o en Access 2003, haga clic en eliminar consulta en el menú consulta .

    En Access 2007, haga clic en eliminar en el grupo tipo de consulta en la ficha diseño .

  11. Arrastre el asterisco (*) desde la lista de campos a la primera columna de la cuadrícula de diseño de la consulta y, a continuación, arrastre el campo país a la segunda columna.

  12. En la fila Criterios de la columna país, escriba lo siguiente:

    Formularios! [DeleteCustomers]! [cboCountry]

  13. Guarde la consulta como qryDeleteCustomers y, a continuación, ciérrela.

  14. Abra el formulario DeleteCustomers en la vista formulario.

  15. Seleccione un país en el cuadro combinado, haga clic en el botón de comando y observe la advertencia que aparece. Haga clic en no en el cuadro de diálogo de advertencia.

  16. Abra el formulario en la vista Diseño y, a continuación, en la barra de herramientas, haga clic en el botón código.

  17. En la ventana código, escriba o pegue los procedimientos siguientes:

Private Sub Form_Load()

Application.SetOption "Confirm Action Queries", 0
   Application.SetOption "Confirm Document Deletions", 0
   Application.SetOption "Confirm Record Changes", 0

End Sub

Private Sub Form_Unload(Cancel As Integer)

Application.SetOption "Confirm Action Queries", 1
    Application.SetOption "Confirm Document Deletions", 1
    Application.SetOption "Confirm Record Changes", 1

End Sub

  1. Cierre el editor de Visual Basic y, a continuación, guarde y cierre el formulario.

  2. Abra el formulario DeleteCustomers, seleccione un país y, a continuación, haga clic en el botón de comando.

    Tenga en cuenta que no aparece ningún cuadro de diálogo de advertencia.

En este ejemplo, las opciones de confirmación de la aplicación se deshabilitan cuando se carga el formulario DeleteCustomers y se vuelven a habilitar cuando se descarga. En una aplicación más elaborada, puede llevar a cabo las mismas acciones en un formulario de inicio o un panel de rellenado.