[Resolvido]opçao confirmar

ola colegas , e a minha primeira vez no forum,so tenho uma pergunta .

na opçao do access tem as 3 opçao de confirmar na guia editar/localizar , a gente dasativa elas mas quando muda o sistema pra outro computador elas volta a ficar sinalizada , tem algum jeito por exemplo de seu mandar meu sistema por email pra outra pessoa e ao abrir la essas opçoes continuar desativada para nao aparecer as mensagens de confirmaçao .

Bem vindo ao MaximoAccess,
Voce gostaria de desabilitar toda a parte superior do Access?
Fale-nos qual versão é a sua.

entao colega , eu usoo office XP , formato de arquivo 2002

Tente ao acarregar do seu form a seguinte função:
DoCmd.ShowToolbar "ribbon", acToolbarNo

colega como eunao entendo nada codigo , ao carregar eu colo assim mesmo.

DoCmd.ShowToolbar "ribbon", acToolbarNo

o q ira fazer

Amigos, ribbon é apenas no Ms Access 2007

Faça para teste;

No evento VBA ao Carregar do seu formulario principal;


Private Sub Form_Load()
DoCmd.ShowToolbar "Menu Bar", acToolbarNo
DoCmd.ShowToolbar "Database", acToolbarNo
DoCmd.ShowToolbar "Toolbox", acToolbarNo
End Sub

Assim a barra de menus por defeito do Access, não aparecerá mais.

Veja o código Desabilita ou Habilita tudo, entre outros.

http://maximoaccess.forumeiros.com/t11-102-codigos-vba-para-access

Perfeito JPaulo, assim é o correto, obrigado pela dica

Marcelo, corriga o seu poste sff.

O mais habitual é primeiro chekar a versão do Access, no evento ao Carregar do seu formulario principal, deste jeito.

Private Sub Form_Load()
If Val(Application.Version) > 11 Then
'Access 2007-2010
DoCmd.ShowToolbar "ribbon", acToolbarNo
Else
'Access 2000-2002-2003
DoCmd.ShowToolbar "Menu Bar", acToolbarNo
End If
End Sub

Davi Amigo, veja as considerações do nosso mestre JPaulo, caso ainda reste dúvidas, por favor, poste aqui seu aplicativo, ou parte dele.

amigos ja testei os codigos , muito mas muito intereçante ,e os 102 codigos e extremamente importante , vou fazer um outro teste , vou desabilitar Alteraçoes de registros , Exclusoes de documentos , Consulta açao , essas trez opçoes que estao na guia Editar/Localizar da opçao do access , vou mandar o sistema por email na outra fabrica , se o office la for 2003 por exemplo , quero ver se ao abrir la essas opçoes vai continuar desabilitada , darei um retorno aos colegas , desde ja agradesso aos dois.

colegas como faço isso

Ative a referencia:
Microsoft Scripting Runtime

Amigão, abra um modulo qualquer, vá a Referencias e marque.

legal achei , colega os 102 codigos eu peguei este de esconder as tabelas , colei em um modulo .

Function EscondeTabelas()
Dim Tb As TableDef
For Each Tb In CurrentDb.TableDefs
If Not Tb.Attributes And dbHiddenObject Then
Tb.Attributes = Tb.Attributes Or dbHiddenObject
End If
Next
End Function

mas nao escondeu , o que esta errado

esta e uma outra dica que recebi de um colega sobre o assunto das mensagens e que da certinho.agradesso a todos


Boa tarde!

Eu crio macro e nas duas primeiras linha eu coloco assim

Ação | Argumento
Eco | Não
DefinirAvisos | Não

O resto é chamar a consulta ou form.