Como utilizar SetOption para desactivar mensagens de aviso de uma aplicação do Access

Traduções de Artigos Traduções de Artigos
Artigo: 229802 - Ver produtos para os quais este artigo se aplica.
Moderado: Requer básica macros, codificação e interoperabilidade competências.

Este artigo aplica-se apenas a uma base de dados do Microsoft Access (.mdb ou .accdb).
Expandir tudo | Reduzir tudo

Sumário

Este artigo mostra como utilizar o método Application.SetOption para desactivar mensagens de aviso numa aplicação do Access.

Mais Informação

A Microsoft fornece exemplos de programação apenas, para fins sem garantia expressa ou implícita. Isto inclui, mas não está limitado a, as garantias implícitas de comercialização ou adequação a um fim específico. Este artigo pressupõe que está familiarizado com a linguagem de programação apresentada e as ferramentas que são utilizadas para criar e depurar procedimentos. Os técnicos de suporte da Microsoft podem ajudar a explicar a funcionalidade de um determinado procedimento, mas não modificarão estes exemplos para proporcionarem funcionalidades adicionais nem criarão procedimentos adaptados às necessidades específicas do utilizador. Consultas de acção e outros processos que acrescentar, eliminar ou modificar dados normalmente apresentam ao utilizador com um aviso de que os dados estão prestes a ser modificado. Numa aplicação em run-time, no entanto, é frequentemente aconselhável desactivar os avisos porque precauções e verificações são normalmente para além de controlo do utilizador.

É possível efectuar este procedimento utilizando o método SetWarnings do objecto DoCmd , mas poderá optar por desactivar avisos para o aplicativo inteiro. Para isso, pode utilizar o método SetOption do objeto Application . No entanto, se o fizer, deverá também desactivar que os avisos efectuar segurança em como a aplicação é terminado.

Para efectuar este procedimento numa aplicação simples, um formulário, siga estes passos:
  1. Inicie o Access e, em seguida, criar uma base de dados em branco denominada TestRun.
  2. Importe a tabela clientes da dados de exemplo Adamastor.mdb.
  3. Crie um novo formulário na vista de estrutura e, em seguida, adicione uma caixa de combinação independente a secção de detalhes.
  4. Definir as seguintes propriedades da caixa de combinação:
       Name: cboCountry
       Row Source: SELECT DISTINCT Customers.Country FROM Customers ORDER BY Customers.Country; 
    					
  5. Adicionar um botão de comando à secção Detalhe do formulário e o nome cmdDelete.
  6. Defina a propriedade AoFazerClique do botão de comando para o seguinte procedimento de evento:
    DoCmd.OpenQuery "qryDeleteCustomers"
    					
  7. Feche o Editor do Visual Basic.
  8. Guarde o formulário como DeleteCustomers e, em seguida, fechá-lo.
  9. Criar uma nova consulta na vista de estrutura e, em seguida, adicione a tabela clientes.
  10. No Access 2002 ou no Access 2003, clique em Consulta eliminação no menu de consulta .

    No Access 2007, clique em Eliminar no grupo Tipo de consulta no separador estrutura .
  11. Arraste o asterisco ( * ) do campo lista para a primeira coluna da grelha de estrutura da consulta e, em seguida, arraste o campo País para a segunda coluna.
  12. Na linha critérios da coluna país, escreva o seguinte:
       Forms![DeleteCustomers]![cboCountry] 
    					
  13. Guarde a consulta como qryDeleteCustomers e, em seguida, fechá-lo.
  14. Abra o formulário DeleteCustomers na vista de formulário.
  15. Seleccione um país a partir da caixa de combinação, clique no botão de comando e, tenha em atenção o aviso que aparece. Clique em não na caixa de diálogo de aviso.
  16. Abra o formulário na vista de estrutura e, em seguida, na barra de ferramentas, clique no botão código .
  17. Na janela código, escreva ou cole os seguintes procedimentos:
    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
    					
  18. Feche o Editor do Visual Basic e, em seguida, guarde e feche o formulário.
  19. Abra o formulário DeleteCustomers, seleccione um país e, em seguida, clique no botão de comando.

    Repare que não diálogo de aviso é apresentada.
Neste exemplo, a aplicação confirmar opções estão desactivadas quando o formulário DeleteCustomers é carregado e reactivado quando é descarregado. Uma aplicação mais detalhada, pode executar as mesmas acções num formulário de arranque ou painel de navegação.

Propriedades

Artigo: 229802 - Última revisão: 6 de abril de 2007 - Revisão: 6.1
A informação contida neste artigo aplica-se a:
  • Microsoft Office Access 2007
  • Microsoft Office Access 2003
  • Microsoft Access 2002 Standard Edition
Palavras-chave: 
kbmt kbprogramming kbhowto KB229802 KbMtpt
Tradução automática
IMPORTANTE: Este artigo foi traduzido por um sistema de tradução automática (também designado por Machine translation ou MT), não tendo sido portanto revisto ou traduzido por humanos. A Microsoft tem artigos traduzidos por aplicações (MT) e artigos traduzidos por tradutores profissionais. O objectivo é simples: oferecer em Português a totalidade dos artigos existentes na base de dados do suporte. Sabemos no entanto que a tradução automática não é sempre perfeita. Esta pode conter erros de vocabulário, sintaxe ou gramática… erros semelhantes aos que um estrangeiro realiza ao falar em Português. A Microsoft não é responsável por incoerências, erros ou estragos realizados na sequência da utilização dos artigos MT por parte dos nossos clientes. A Microsoft realiza actualizações frequentes ao software de tradução automática (MT). Obrigado.
Clique aqui para ver a versão em Inglês deste artigo: 229802

Submeter comentários