[Resolvido]Configurações personalizadas

Como faço para ao abrir um sistema ele marque alguns opções automáticamente. Tais como:

- Desmarcar a opção CONSULTAS AÇÃO (que está em ferramentas/opções/Edidar/Localizar....)
- Marcar a opção nivel de segurança como BAIXO (que está em ferramentas/macro/segurança....)
- Desmarcar o opção SUBISTITUIR TEXTO AO DIGITAR (que está em ferramentas/opções de autorreções....)

Só mais uma questão quando vou usar o sistema no acces 2007 ou 2010 preciso ir na opção [HABILITAR TODAS AS MACROS] seria possivel fazer automáticamente também quando estivese usado o 2007 ou 2010?

Desde já agradeço a todos.

Amigo

o tópico foi movido para o local certo. Sempre que postar escolha a opção certa para isso, na Sala Tabelas, Formulários, etc, mas não aonde postou.

OK. obrigado pela correção.

Boa Tarde e desculpe pois acabei de mudar-lhe o tópico e fiquei momentaneamente sem internet.

Não tenho aqui o 2007, mas eis algumas configurações que uso no 2003 e que servem:

Application.SetOption "Confirm Action Queries", False
Application.SetOption "Confirm Record changes", False
Application.SetOption "Confirm Document deletions", False

Relativamente às Macro você tem aqui no fórum uma app que permite abrir uma aplicação sem avisos

http://dl.dropbox.com/u/8157744/tirarmensagem.exe

Relativamente à auto correcção de nomes desabilite manualmente.

Está quase lá decobri essa que desmarca o nível de segurança.

Dim epsReg As Object
Set epsReg = CreateObject("Wscript.Shell")
epsReg.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Office\11.0\Access\Security\Level", 1, "REG_DWORD"

DoCmd.SetWarnings False


SÓ ESTA FALTANDO Desmarcar o opção SUBISTITUIR TEXTO AO DIGITAR

Não afirmo, mas estou convicto que essa opção terá que ser efectuado manualmente. De qualquer forma dou-lhe de conselho utilizar a aplicação que retira as mensagens de aviso do windows pois é mais seguro.

OK. OBRIGADO PELA DICA.

gilberlanio

Essa aplicação deve ser usada da seguinte forma:

Instale a sua aplicação no pc e antes de abrir a sua aplicação clique no exe para abrir. Aparece um form de boas vindas. Feche o form. Agora pode abrir a sua aplicação sem os inconvenientes avisos de segurança do windows.

Se não pretende mais nada, dou o tópico por finalizado.

Desculpe, aqui tem:

Application.AutoCorrect.DisplayAutoCorrectOptions = False

Abraço

OK. Todas as Dúvidas foram respondidas. Sucesso.

Valeu. Sempre que inicio uma nova BD uma das primeiras coisas que faço é dasabilitar a opção de correcção. Nunca o faço por código. Daí que pensei com os dedos e não com a cabeça quanto a essa questão e só depois de fechar o tópico é que raciocinei direito (rsrsrs).

Feliz e santo natal

Abs

Vieira,

Não está funcionando (2003)
Application.AutoCorrect.DisplayAutoCorrectOptions = False

Dei uma pesquisada no Help e me parece que está correto, só que não faz a alteração (pelo menos no meu BD) para False

Utilizo a função abaixo, pode ser que ajude mais alguem

Function Opcoes()
'DEFINE [OPÇÕES]
'Define sim/não - Opções: compactar para fechar)
If (DLookup("[OpcCompact]", "[FE_CFG]", "[NS] = SerialNumber ()") = True) Then
Application.SetOption "Auto Compact", True
Else
Application.SetOption "Auto Compact", False
End If
'Barra Status definida como False no mód.Inicialização

'Define - Opções: Alterações de registro)
Application.SetOption "Confirm Record Changes", True
'Define - Opções: Confirmar, Exclusões de documentos)
Application.SetOption "Confirm Document Deletions", True
'Define - Opções: Confirmar, Action queries)
Application.SetOption "Confirm Action Queries", True
'Define - Abrir bancos de dados com bloqueio de registro
Application.SetOption "Use Row Level Locking", True
'Define (2:Editado)- proteção de registros padrão
Application.SetOption "Default Record Locking", 2
'Define (0: compartilhado) - Modo de abertura padrão
Application.SetOption "Default Open Mode for Databases", 0
'Define - Usar Control com Tema do Windows no Form.
Application.SetOption "Themed Form Controls", True
'Define - Habilitar verificação de erros
Application.SetOption "Enable Error Checking", False
'Define - Auto correções
Application.AutoCorrect.DisplayAutoCorrectOptions = False
'Define Pasta padrão - Opções
'Application.SetOption "Default Database Directory", DLookup("[pstDstBkpA]", "[CFG]", "[NS] = SerialNumber ()")

End Function

Como lhe disse essa opção por defeito eu faço-a manualmente ao iniciar uma nova BD. O código, esse efectivamente está correcto.