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

 

Kontaktieren Sie uns, um weitere Hilfe zu erhalten

Kontaktieren Sie uns, um weitere Hilfe zu erhalten
Wenden Sie sich an den Answer Desk, um professionelle Hilfe zu erhalten.