... Assinatura do site por 3 anos + Kit MontaRibbons + 3 Livros em PDF + Diversas Revistas (pdf) de brinde, por apenas R$182,00
(
podendo parcelar em até 10 vezes no cartão de crédito)...

Clique aqui e obtenha mais detalhes do nosso kit completo e de como comprar.


Desabilitando a faixa(ribbon) superior do Access

Muitos aplicativos são desenvolvidos sem o programador fazer uso de menus ou ribbons e na maioria dos projetos é necessário bloquear parcial ou completamente o acesso às ferramentas de desenvolvimento do Access para o usuário final. 

No caso do Access 2007/2010 , desabilitar toda ou parcialmente a faixa superior é uma tarefa simples, acredite! 

A faixa superior do Access 2007/2010 é composta dos seguintes elementos: Barra de título, Botão do Office(Arquivo no 2010), Barra de Ferramentas de Acesso Rápido e  Guias

Veja, os elementos que compõem a faixa superior do Access 2007:

Usando Access

 

Uma forma radical de desabilitar

Podemos desabilitar de uma única vez, toda a parte superior do Access 2007/2010, chamando por uma função na macro AutoExec.

1. Crie a função abaixo num módulo global.

Public Function fncDesabilitarRibbon()
   DoCmd.ShowToolbar "ribbon", acToolbarNo
End Function

2. Crie a macro AutoExec chamando pela função.

Usando Access

 

O aplicativo ao ser carregado passa pela macro Autoexec que executa a função de desabilitar toda a faixa superior do Access 2007/2010.

Veja como a parte superior fica totalmente limpa após o carregamento da função:

Usando Access

 

Isto é muito útil para quem possui aplicações nas versões anteriores do Access (2003, 2002 e 2000) e deseja que estas, quando rodarem nas versões do Access 2007/2010, sejam capazes de desabilitar a Ribbon.  No entanto é preciso fazer uma pequena modificação na função, para que não acarrete em erro quando o aplicativo rodar nas versões originais ( 2003, 2002 e 2000).  

Public Function fncDesabilitarRibbon()
on error resume next
   'Desativa a ribbon do Access 2007 e 2010
   If Val(Application.Version) > 11 Then
      DoCmd.ShowToolbar "ribbon", acToolbarNo
   End If
End Function

Vale lembrar que, com esta opção radical, não será permitido qualquer tipo de menu

Desabilitando parcialmente

Observe na primeira figura deste  artigo, as guias disponíveis do Access 2007/2010: início, criar, dados externos, ...  É possível desabilitar todas essas guias , deixando apenas a guia Início que é útil para muitos tipos de aplicativos.

Para desabilitar estas guias vá em: Botão do Office (Arquivo no Access 2010) > Opções do Access > Banco de dados atual.    Desabilite a opção "Permitir menus completos", conforme figura abaixo:

Usando Access

 

Como resultado temos apenas a guia Início e o Botão do Office fica só com a opção "Fechar"

Usando Access

 

Como carregar apenas o menu, criado no Access 2003/2002/2000 , no Access 2007/2010

Tem um artigo completo aqui, que ensina como configurar o Access 2003/2002/2000 para carregar apenas o menu no Access 2007/2010.

Desabiltando a faixa superior através da extensão ACCDR

Uma outra forma de desabilitar a faixa superior é trocando a extensão de ACCDB para ACCDR.  Veja aqui um artigo completo sobre ACCDR

O ACCDR permite que você carregue uma faixa superior personalizada, que você programa em XML. 

Desabilitando a faixa superior com programação XML

Primeiro crie um tabela de nome UsysRibbons com os campos:

RibbonName - texto

RibbonXml - memorando

Abra a tabela UsysRibbons e preencha os campos:

RibbonName com :  rbPrincipal

RibbonXml com :

<customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui">
  <commands>
    <command idMso="ApplicationOptionsDialog" enabled = "false"/>
    <command idMso="FileExit" enabled = "false"/>
    <command idMso="Help" enabled = "false"/>
  </commands>
<ribbon startFromScratch="true">
  <officeMenu>
    <button idMso="FileNewDatabase" visible = "false"/>
    <button idMso="FileOpenDatabase" visible = "false"/>
    <splitButton idMso="FileSaveAsMenuAccess" visible = "false"/>
    <button idMso="FileCloseDatabase" visible = "false"/>
  </officeMenu>
</ribbon>
</customUI>

Veja na figura, a tabela preenchida:

Usando Access

 

Agora vá em: Botão do Office > Opções do Access > Banco de Dados Atual e entre com o nome da ribbon na combo Nome da Faixa de Opções.

Usando Access

 

Sempre que seu aplicativo for carregado, a ribbom rbprincipal será acionada, configurando a faixa superior, conforme a programação elaborada na XML.

Bom estudo!


 

 


111 comentário(s)

Elias Santos   12/01/2010 16:58:33

Dica excelente e muito bem explicada. Já estou pensando em migrar do 2003 para o 2007/2010.

Muito Obrigado Avelino

Cláudio   24/02/2010 09:55:24

Caro Avelino
Bom dia
Parabéns pela dica. O bloqueio radical da ribbon funcionou perfeitamente, porém ainda existe um pequeno problema para mim: gostaria de desabilitar também o botão grande no canto superior direito e a seta pequena para baixo que dá acesso as funções "inicializar" no banco de dados. isso é possível de alguma forma?
Um grande abraço!

joão   13/07/2010 10:33:38

idem mensagem do claudio. seria possível?
muito bom mesmo essa dica. parabens

Avelino Sampaio   14/07/2010 07:15:12

João,

desabilitar o botão grande, só da forma radical. Tem como desabiltar todo o conteúdo do botão grande através da programção XML da ribbon.

André Luis   14/07/2010 08:14:09

Valeu pela dica, muito bom.
Obrigado.

Glauco Henrique   10/11/2010 11:13:51

Valeu pela dica!!!!!!!!!!!!!
pefeita a expilcação e não restou nenhuma dúvida.

Valdeir   10/03/2011 16:06:52

A dica foi muito útil. Estava querendo desabilitar tudo no Access 2010 e não estava conseguindo. Assim sendo, seguindo suas orientações, "Ao abrir" do formulário principal, inseri o código:
If Application.Version > 11# Then
DoCmd.ShowToolbar "ribbon", acToolbarNo
End If
E ficou ótimo!

Kátia Fernandes   14/06/2011 07:53:47

Avelino

Gosto muito das suas aulas. Gostaria de saber como faço para desabilitar a tecla shift no access 2007, pois fiz o controle de acesso que você disponibilizou no maestro, mas se alguém colocar a tecla shift abre tudo.

Desde já agradeço.

Avelino Sampaio   14/06/2011 10:03:28

Katia,

mesmo assim ainda não é uma forma minimamente segura. Procure no Google com a seguinte frase:

AllowBypassKey Access 2007

Você irá encontrar soluções tanto para habilitar como para desabilitar a tecla shift .

Minha sugestão é que vc altere a extensão de ACCDB para ACCDR e então utilize o OPEN, que eu ofereço aqui no site gratuitamente.

Sucesso!

sandro   20/06/2011 18:49:37

valeu amigo, ótimo site!

mayara fernanda    20/06/2011 19:59:09

Obg pela dica , ajudou bastante!

rogerio   25/06/2011 07:13:10

Amigo por favor me ajude! fiz tudo certinho Inclusive Copiando e Colando do seu site, criei a tabela com o nome UsysRibbons e o código xml, porém nada acontece.

Avelino Sampaio   27/06/2011 17:20:35

Rogerio,

O nome da ribbon aparece na combox "Nome da faixa de opções" em Banco de Dados Atual ?

Criou os campos exatamente com o nomes RibbonName e RibbonXml ?

no aguardo

Pedro Sena   29/06/2011 09:46:48

Estou precisando de um comando para imprir através de um formulário no access um documento no word.

Eduardo   29/06/2011 12:22:57

If Application.Version > 11# Then
DoCmd.ShowToolbar "ribbon", acToolbarNo
End If
O código acima funiconou no Office 2010, porém, os relatórios abrem sem a guia e assim, sem a possibilidade de impressão.

Avelino Sampaio   29/06/2011 12:32:45

Pedro Sena,

Acesse o endereço abaixo e tente o código proposto:

http://accessvbafaq.mvps.org/item.asp?pagina=78

Eduardo,

Nesta situação vc realmente fica sem qualquer opção de ribbon. Use o CTRL + P ou parta para uma personalização das ribbons. Tem aqui no site, artigos e vídeos para vc aprender. baixe também o aplicativo exemplo MAESTRO, para ter uma idéia de como fica a personalização.

Sucesso!

Eduardo   29/06/2011 12:40:40

Para habilitar a guia de impressão no relatório eu inseri no seu evento Ao Abrir:
If Application.Version > 11# Then
DoCmd.ShowToolbar "ribbon", acToolbarYes
End If

e no evento Ao Sair:
If Application.Version > 11# Then
DoCmd.ShowToolbar "ribbon", acToolbarNo
End If

Pois, caso deixe somente o segundo, a Guia de impressão não apareceria no Relatório.

Avelino Sampaio   30/06/2011 08:15:31

Eduardo,

huumm, não me agradou muito esta técnica mas se atender ao seu projeto está valendo!

Sucesso!

Eduardo   30/06/2011 10:23:13

Avelino, fiz isso porque caso eu deixasse sem nenum código, a faixa para impressão, zoom ou salvar em PDf não seria mostrada. Se eu colocasse com o final acToolbarYes, ao sair do relatório, a aba Arquivo seria mostrada no restante do projeto. Então, inseri o acToolbarNo no evento ao sair do relatório e agora, a aba Arquivo e Relatório só aparecem no relatório. Fiz mil testes e ainda não apresentou nenhum erro.
Não sou expert em Access e por isso, realmente não sei se pode ocorrer algum dno ao projeto.

Rodolfo Lemos   05/07/2011 12:02:35

Avelino,

fiz a desabilitação radical e não funcionou, coloquei o comando
If Application.Version > 11# Then
DoCmd.ShowToolbar "ribbon", acToolbarNo
End If
no 'Ao Abrir' e nada acontece. Pela macro autoexec dá erro. Lembrando que toda vez q abro o BD aparece aquele aviso de habilitação de macros. Não sei se está ai o problema!

Avelino Sampaio   06/07/2011 08:30:49

Rodolfo,

Você deve desabilitar a macro de segurança, para que funcione o código. Vá no tutorial "macro de segurança" aqui do site e veja o procedimento.

Sucesso!

Lauro   18/07/2011 23:25:06

No autoexec coloquei a instrução cfe., descrita, para esconder os menus, so que na linha abaixo coloquei abrir formulário de login, so que ao abrir da erro, poderia me ajudar, erro 2930. ou seja coloquei os dois comandos na macro autoexec.

Lauro   18/07/2011 23:34:27

O código do erro correto é 2950 e não 2930 abraços

Avelino Sampaio   19/07/2011 05:21:56

Lauro

Experimente, passando o código para o evento "Ao abrir" do seu formulário login:

Private Sub Form_Open(Cancel As Integer)
'Desativa a ribbon do Access 2007 e 2010
If val(Application.Version) > 11 Then
DoCmd.ShowToolbar "ribbon", acToolbarNo
End If
End Sub

No aguardo

reinaldo   08/09/2011 11:21:13

preciso criar um aplicativo de impressao no access 2003

Avelino Sampaio   10/09/2011 05:36:30

Reinanldo,

entre em contato, aqui pela seção "contato" do site e explique melhor o que deseja.

No aguardo

Marcos Elder   11/10/2011 00:20:18

Avelino, sou iniciante em access e essas 2 dicas para mim foram excelentes (todas 2 funcionaram). Gostaria de saber porque não visualizo a tabela UsysRibbons no painel de navegação e se é possível redimensionar o tamanho da janela quando o aplicativo for aberto? Se for possível poderia passar a função ou xml? Muito obrigado e parabéns por compatilhar e divulgar seu conhecimentos.

ANDERSON MUNHOZ MADEIRA   26/10/2011 22:41:16

Não canso de admirar seu trabalho, tudo que melhor aprendi foi através de você, logo estarei adquirindo seu material para me aperfeiçoar. Bem, quero dizer que usei por algum tempo a função fncDesabilitarRibbon() com muito sucesso, mas de um tempo pra cá quando alterava meu BD para ACCDE passei a ser surpreendido por uma mensagem de erro: "A expressão que você inseriu possui um nome de função que o SEU BANCO DE DADOS não pode localizar" . Após ENTER aparecia:Ação falhou: Nome da Macro: AutoExec - Condição: Verdadeiro - Nome da Ação: ExecutarCódigo - Argumentos:fncDesabilitarRibbon() - Número do Erro:2950.

Pode me dar uma dica do que poderia estar acontecendo?

Grande abraço.

ANDERSON MUNHOZ MADEIRA   26/10/2011 22:42:25

Meu email : semear2@hotmail.com

Avelino Sampaio   29/10/2011 06:44:42

Anderson,

Passar simplesmente para ACCDE e parar de funcionar a função não faz muito sentido.

Se vc usa um formulário de abertura, passe a usar a função no evento "Ao abrir".

Verifique também seus códigos: Abra o VBA, clique no menu DEPURAR e mande COMPILAR. Se acusar erro, corrija.

Quanto a MACRO DE SEGURANÇA: Esta desabilitada ou configurado como local seguro.

Sucesso!

Rodrigo   19/01/2012 21:52:37

Só mais uma questão relacionada a rich text: na textbox, quando eu seleciono parte do texto e movimento o ponteiro do mouse um pouco para cima, aparece uma barra flutuante (que descobri se chamar Mini Barra de Ferramentas) com as principais formatações (negrito, itálico, sublinhado...)

Tem como desativá-la?

Avelino Sampaio   20/01/2012 06:14:57

Rodrigo,

terás que criar uma chave do tipo REG_DWORD, no registro do Windows, de nome "AllowSelectionFloaties" e no seguinte endereço:

HKEY_CURRENT_USER\Software\Microsoft\office\12.0\Common\Toolbars\Access\AllowSelectionFloaties

0 - Desativa a Mini Barra
1 - Ativa a Mini Barra

Sucesso!

Jean Gerard   20/03/2012 20:36:49

Avelino, aprecio muito sua disposição para abrir seus conhecimentos para nos demais.
Quando eu descobri seu site, já tinha gasto um tempão para achar uma saída para este Ribbon - no meu ver, pela qtde de dúvidas que gerou, um tiro no pé da MS para o ACCESS. Site excelente e explicações contundentes, todavia para o que gostaria de fazer, e outros tb - vide http://www.mrexcel.com/forum/showthread.php?t=563975, ainda não achei uma solução, bem possível que não existe mesmo.
A barra de ferramentas de acesso rápido (QAT) pode ser configurado para conter todos os botões que um usuário pode precisar. Então por que no sumir com o UI ribbon e manter a QAT? Tentei
DoCmd.ShowToolbar "Ribbon", acToolbarNo
DoCmd.ShowToolbar "QuickAccessToolbar", acToolbarYes
e outras coisas mas nada que funciona. Este QAT tem um controle autônomo?

Avelino Sampaio   21/03/2012 06:18:02

Jean,

sim, é possivel! Só não teras como ocultar o botão do Office (access 2007) ou uia ARQUIVO (access 2010). Veja no link abaixo uma imagem aonde eu demostro o uso somente da QAT

http://www.expertaccess.com.br/forumnew/forum_posts.asp?TID=24615&PN=1

Terá que aprender a personalizar a ribbon. Assista minhas aulas sobre ribbons.

Sucesso!

Wilmar Vigilato   18/05/2012 15:19:23

Acidentalmente ocultei o botão Office do excel 2010 e não consigo reexibi-lo.Tem como me socorrer

Avelino Sampaio   22/05/2012 06:38:54

Wilmar,

vá na setinha preta que tem na barra de ferramentas de acesso rápido, depois clicar em mais comandos, na opção barra de ferramentas de acesso rápido, na combobox de "Escolher Comandos em:", ver se aparece o nome "Guia Arquivo" e ver se aparece algo, ou então ali embaixo tem a opção "redefinir todas as personalizações" pra ver se dá certo.

Sucesso!

Ricardo Ravelli   22/05/2012 15:26:35

Boa tarde a todos.

Eu fiz o procedimento acima, porém o ribbon personalizado não aparece. Eu até consegui ocultar o ribbon padrão do Access, mas o personalizado não aparece no sistema.

Alguém sabe o que pode estar acontecendo?

Obrigado.

Avelino Sampaio   23/05/2012 04:53:56

Ricardo,

se vc utilizou o comando "DoCmd.ShowToolbar "ribbon", acToolbarNo" para ocultar a faixa superior, não terá como personalisar.

Vá no tutorial "Ribbons - Frutos do Suporte" aqui do site e ative a opção do Access, que informa erros nas ribbons. Questão de número 9

O site tem várias vídeos-aulas sobre personalização de ribbons.

Sucesso!

Octavio   03/07/2012 11:40:51

Obrigado Avelino. o artigo me foi util

Flávio   01/08/2012 10:00:04

Olá Avelino, tenho a mesma dúvida do amigo Rodrigo, "Só mais uma questão relacionada a rich text: na textbox, quando eu seleciono parte do texto e movimento o ponteiro do mouse um pouco para cima, aparece uma barra flutuante (que descobri se chamar Mini Barra de Ferramentas) com as principais formatações (negrito, itálico, sublinhado...)

Tem como desativá-la?" contudo não encontrei o caminho por você especificado. Utilizo o windows 7 com o office 2010, existe alguma diferença no procedimento?

Grato pela atenção.

José Donizeth Rodrigues   15/08/2012 08:34:51

Avelino,

Montaribbons porém no access 2010 não consigo desabilitar a guia arquivo em meus aplicativos, mesmo criando uma nova ribbon a guia arquivo continua aparecendo.

Avelino Sampaio   16/08/2012 07:43:22

José

A guia Arquivo não tem como desabilitar, porem todo o seu conteúdo pode ser personalizado ou limpo. No MontaRibbons tem um ribbon exemplo, chamada de rbLimpar2010. Carregue esta ribbon e logo após clique no botão “Atualizar Backstage..” e veja então como fica o interior da guia Arquivo.

Qualquer outra dúvida não hesite em perguntar.

Sucesso!

Fabiana   22/09/2012 01:52:11

Avelino,boa noite!

Eu gostaria de saber como habilito dentro de suplemento :comando de menu,barra de Ferramentas personalizada.

Obrigada

Guilherme Schuck   26/09/2012 23:25:55

Boa noite, eu uso o Access 2007, tenho um projeto, executei as ações que foram passadas no tutorial, mas quando abro o banco de dados, ele oculta a ribbon, mas da o erro numero 2950, dai eu clico em parar as macros e ele volta ao normal, tem algo que eu possa fazer para concertar isso? ou talvez fiz algum passo errado?

Avelino Sampaio   27/09/2012 07:37:55

Guilherme,

Para se evitar o erro 2950 na macro Autoexec vc deve utilizar a coluna CONDIÇÃO da macro.

1) altere a função , para que ela retorne um volor Boolean (false/true). Acrescente TRUE no final da função.

Public Function fncDesabilitarRibbon() as boolean
On Error Resume Next
DoCmd.ShowToolbar "ribbon", acToolbarNo
fncDesabilitarRibbon = true
End Function

2) chame a função pela coluna CONDIÇÃO da macro

fncDesabilitarRibbon() = false
e na coluna AÇÃO coloque "sair"

Sucesso!

Guilherme Schuck   27/09/2012 12:46:13

Boa tarde, sou leigo no access ainda, fiz oque você falou, seguem nas imagens:
http://i45.tinypic.com/14t3hc5.jpg e http://i50.tinypic.com/2m7c7pz.jpg
mas não ocultou a ribbon.

oque pode ter de errado?

Guilherme Schuck   27/09/2012 19:22:39

Boa noite, primeira mente gostaria de agradecer Avelino, graças suas dicas consegui arrumar meu projeto..
Consegui reparar o erro que estava tendo, ativei todas macros, com segurança.

GILBERTO TEIXEIRA   01/11/2012 16:16:50

seria possivel desabilitar uma opção gerada no montaribbons conforme o usuario logado?

Avelino Sampaio   03/11/2012 06:17:02

Gilberto Teixeira,

não entendi muito bem sua pergunta. Baixe o aplicativo exemplo Maestro, aqui da seção Downloads, que terás um exemplo de como configurar a ribbon, conforme usuário logado.

Sucesso!

luis   27/11/2012 06:00:05

Muito bom!

Hebertt   29/11/2012 11:53:03

Amigos, montei um pequeno controle em Access 200, em alguns computadores funciona normal e em outros ele trava todas as macros e botões .. o que tenho que fazer para que estes micros habilite as macros/botões?

Desde já agradeço

Avelino Sampaio   29/11/2012 13:32:35

Hebertt,

vá na seção Tutorias aqui do site e veja o artigo sobre "Macro de segurança"

Sucesso!

LUIZ ANDRÉ MOREAUX NUNES JUNIOR   18/12/2012 09:49:37

Avelino, montei uma ribbon, via XML, e queria habilitar/desabilitar alguns itens dinâmicamente (em função do acesso de cada usuário). Como posso fazer isso?

help   08/01/2013 21:23:06

onde fica esse módulo global ?
onde coloco a função ?
sou iniciante !!!
help !!


help   08/01/2013 21:57:54

Preciso criar um usuário e um administrador no access 2007. Para o usuário no máximo digita os dados.
help !!!

Anderson   26/01/2013 13:40:12

Como dividir o banco de dados em back-end e front-end no access 2007 ?

Avelino Sampaio   28/01/2013 05:10:52

Anderson,

O Access possui um assistente (acesso pela ribbon "Ferramentas de Banco de Dados") que auxilia na divisão do aplicativo.

Assista o inicio do vídeo do tutorial "Segurança Máxima usando o OPEN" que eu demonstro como usar o assistente.

Sucesso!

Lupércio    15/02/2013 23:31:25

Funcionou perfeitamente Avelino, vc é um genio! Meus respeitos!

Weder   07/05/2013 15:27:12

Procedimento seguido conforme orientações. Deu tudo certo! Agora o projeto está mais limpo para ser executado pelo usuário final. Obrigado!

Alessandro   14/05/2013 13:44:44



Boa Tarde!!

Pessoal, preciso muito urgente de uma solução para o meu banc de dados access 2003.
criei 5 tabelas com as mesmas informações a ser cadastradas, mas setores diferentes…..por exemplo…

IP 192.168.80.50 setor de compras

IP 192.168.70.50 setor de RH

ip 192.168.90.50 setor administrativo

IP 192.168.100.50 setor logistica

gostaria de saber se tem como fazer uma consulta no access para consultar os IPs das 5 tabelas…………..e mostrar qual setor esta o IP.

Celeste   14/06/2013 08:08:30

Ola pessoal
gostei do código para desabilitar a faixa superior do access.
usei o codigo VBA que contem a função fncDesabilitarRibbon()
mas preciso de uma ajuda como fosso para voltar a habilitar o painel de navegação e a barra de menus do access novamente porque pode se dar o caso em que eu precise de fazer backup dos dados, para isso tenho que ter acesso ao painel de navegação para pagar os dados das tabelas e a barra de menus para ter acesso ao codigo VBA.
Agradecia que me ajudassem

Leonardo Vellinho   29/07/2013 11:32:23

Muito bom o conteúdo e muito útil também, mas eu tive um problema ao colocar em atividade essa macro, tive um erro que diz que a ação falhou e dá o número do erro 2950, e não consigo fazer funcionar. Fiz umas pesquisas e me falaram para mexer na parte de confiabilidade, gostaria de, se possível, uma ajuda ou uma luz de como posso arrumar isso.

figueiredo   06/09/2013 13:11:32

bom dia
parabéns pelas dicas, fiz o teste usando a criação da tabela, porém não consigo acessar a tabela para efetuar alteração no código.
Obrigado pela atenção

Ronilson Jose da Silva   04/10/2013 08:52:02

Bom dia
Estou com pequeno problema na ribbon impressão tenho o botão na ribbon gerar PDF.
No meu pc com Windows 7 funciona perfeitamente mas no pc com Windows XP ela aparece mas fica desabilitada alguém poderia me ajudar.

< button idMso = "PublishToPdfOrEdoc" enabled="true" size="large" label="PDF" visible="true" / >

esta é minha linha da XML.

Grato

Avelino Sampaio   05/10/2013 08:22:38

Ronilson,

faltou vc informar qual é a versão do Access usado com o Windows Xp. Se for a versão 2007 vc tem que baixar o pacote Sp3 no site Microsoft e atulizar o seu Office. Com esta atualização o PDF costuma funcionar bem.

Sucesso!

Rodrigo Werneck   24/10/2013 10:40:33

Avelino Bom dia

Não sei se você já falou ou mencionou em algum lugar . Preciso ativar uma guia ou um grupo personalizado (O que for mais fácil, somente quando um formulário ou relatório estiver aberto. Pois assim evito erros de usuarios. Como faço isso? Já sei criar Ribbon Personalizado mais ainda não sei fazer isso.

Avelino Sampaio   25/10/2013 07:02:37

Rodrigo,

Se você tem a ribbon salva na tabela USysRibbons ou na tabela tblRibbons, basta abrir a lista de propriedades do objeto (formulário ou relatório) e indicar o nome da ribbon na propriedade "Nome da Faixa de Opções"

Sucesso!

Carlos Hygino Accurso   04/12/2013 09:22:03

Avelino
Desenvolvi um aplicativo Web Access que está hospedado no AccessHosting. Ao acessar o site fica disponível um botão de opções dentre as quais a opção de OPEN IN ACCESS. Qualquer usuário pode baixar a aplicação para a sua máquina o que é indesejável. Não existe maneira de sumir com essa opção. A MS disponibiliza um vídeo em ( http://blog.accesshosting.com/preventing-web-users-from-opening-your-database-in-access-2010.html) mostrando como configurar um usuário sem acesso a essa opção, o inconveniente é que os relatorios param de funcionar.
O livro Access 2010 Inside Out informa que isso aconteceria mas no vídeo da MS o relatorio aparece.
Resolvi recorrer a voce porque apesar de ser um entusiata do Access o aparecimento dessa opção inviabiliza totalmente qualquer desenvolvimento comercial
Atenciosamente

Ivelton Soares   08/01/2014 14:22:15

Parabéns!!! A dica me ajudou bastante, já havia perdido uma manhã procurando na internet e nada

daniel mantovani   18/01/2014 01:08:26

não sei como usar o sistema , ele é novo pra mim.

Avelino Sampaio   18/01/2014 04:27:40

Daniel,

está no site certo para aprender sobre as versões 2007, 2010 e 2013.

Aqui na seção DICAS tem um vídeo da Microsoft que faz uma apresentação da versão 2007. É o último artigo da lista.

Bom estudo!

TICO   27/02/2014 11:51:58

Tico 25/02/2014 15:45:39

Boa Tarde!!! Caro Avelino tenho a seguinte necessidade:

no Excel tenho a tabela;

linha 1: coluna A coluna B
linha 2: carro 1
linha 3: carro 2
linha 4: moto 2

se a linha posterior repetir na coluna A e Coluna B = 2 para ter uma resposta basta eu colocara a seguinte fórmula: =SE(E(A3=A2;B2=2);1;"") com base em uma tabela do mesmo tipo é possível fazer uma consulta no ACCESS 2007 com esta expressão?

Luiz Kang   28/05/2014 08:06:11

Bom dia Avelino... Não consigo configurar meu relatório para imprimir numa impressora bematech. Sera que vc poderia me ajudar??

Avelino Sampaio   28/05/2014 08:18:24

Luiz,

copie ecole o link abaixo no seu navegador e dê uma garimpada.

http://comunidade.itlab.com.br/eve/forums?a=search&reqWords=Bematech

Sucesso!

Oldri   09/06/2014 10:27:19

Prezado Avelino, ao usar a função abaixo

Public Function fncDesabilitarRibbon()
on error resume next
'Desativa a ribbon do Access 2007 e 2010
If Val(Application.Version) > 11 Then
DoCmd.ShowToolbar "ribbon", acToolbarNo
End If
End Function

no Office 2003, retorna o erro "o conjunto de eventos não é suportado pelo objeto ou classe".

Há como solucionar este problema?
Obrigado
Oldri

Erika Perez   01/07/2014 15:23:23

Avelino,

Gostaria que me ajudasse na seguintes questão: meus botoes da ferramentas de design de formulário não estão solicitando o comando para ser inserida, quando clico na ferramenta que preciso ela entra no formulário direto sem dar opções de escolha. exemplo: um simples botão para fechar formulário, cliclo em botao e ele aparece dureto no formulário e não abre a caixa para selecionar o tipo de botao ou se é para por nome ou texto. o que fazer neste caso???

Avelino Sampaio   02/07/2014 04:54:38

Erika,

você tem que ativar o assistente, que fica no conjunto das ferramentas. Se não encontrar, procure no help sobre "assistente"

Sucesso!

Domingos Oliveira   20/08/2014 17:52:54

Prezado Avelino,
Após adquirir sua Coletânea (já recebi a atualização de Julho), melhorei meus BDs em vários aspectos, tornando-os mais seguros e de fácil manutenção.
No entanto, tem um detalhe que não tem jeito e não consigo fazer a rotina cumprir sua finalidade que é esconder TOTALMENTE a barra de ribbons (com toda certeza alguma coisa estou fazendo errado).
O que vc recomenda nesse artigo acima está implantado, mas a aba INICIO teima em não quer ficar oculta....as outras desaparecem....
Onde errei ?
Abraço
Domingos

Vanderlei   03/11/2014 19:32:50

Olá Avelino

Não estou conseguindo carregar a ribbon rbimpressão com os icones ativos, somente o IMPRIMIR e PDF ficam ativos. Onde estou pecando ?, não consigo enxergar nada de errado.

Avelino Sampaio   03/11/2014 19:39:23

Vanderlei,

as ribbons só funcionam para relatórios no modo "Visualização de impressão". Portanto no modo "relatório" não funciona.

Sucesso!


Moura Santoli   31/01/2015 18:49:52

Não consigo ocultar a aba INÍCIO na barra de ribbons do OFFICE 2010.
Onde estou errando?

Abraços!

Avelino Sampaio   02/02/2015 08:09:30

Moura,

como está configurando ? Usou a linha: DoCmd.ShowToolbar "ribbon", acToolbarNo ?

Felipe   25/02/2015 10:27:33

Gostaria de saber como desativar a opção impressão no access runtime 2010. No acesss 2007 defini na macro autokeyss o comando ^p, no entanto no 2010 esse comando não desativa a opção de impressão

Edielson   22/06/2015 10:54:32

Bom dia!
Pessoal, preciso de uma ajuda, gostaria de saber como posso criar um relatório que gere o mês, tipo assim, eu digito o mês em campo data e ele me aparece os campos dos meses todo em todos registro do relatorio

Avelino Sampaio   22/06/2015 11:41:45

Edielson,

vc pode usar a filtragem na chamada do relatório. Exemplo:

docmd.OpenReport "NomeRelatório",acViewPreview ,,"Format([dataLancamento],'mm') = " & me!NomeCampoMês

Traga a sua dúvida para o nosso fórum e ofereça mais detalhes:

http://www.redeaccess.com.br

Gilberto Martins dos Santos   12/07/2015 19:21:29

Estava desenhando e de repente a Ribbon sumiu e eu não estou conseguindo faze-la voltar poderia me ajudar? AutoCad 2014

Avelino Sampaio   14/07/2015 05:39:57

Gilberto,

Habilite a detecção de erros do Access que você irá descobrir a causa.

Botão Arquivo > Opções > Configurações do cliente > Marque "Mostrar erros da interface de usuários em suplementos"

Sucesso!

Fábio César   06/08/2015 11:05:56

Avelino, inicialmente, quero te parabenizar pelos ótimos exemplos e ajuda que você disponibiliza no seu sítio.

Sempre acesso este espaço para resolver alguns problemas que surgem e você sempre com seus exemplos me ajuda bastante.

Por isso, hoje, trago uma dúvida relacionada aos ícones da faixa de menu (ribbons), por exemplo:

< tab id="Principal" label="Principal" >
< group id="grpPool" label="Principal" >
< button id="cmdPendenciaList" size="large" label="Pendência Consulta" imageMso="RecordsAddFromOutlook" onAction="Ribbon.Pendencias" />

< separator id="Pendencia" />
< button id="cmdPendenciaIncl" size="large" visible = "true" label="Controle de Pendentes" imageMso="AddToolGallery" onAction="Ribbon.PendenciaInclusao" />
< /group >
< /tab >

É possível inserir no ítem imageMso novos ícones diferentes daqueles que já estão na “biblioteca” do access 2010?

Baixei vários ícones da web formato .ico e .png, como inseri-los nas minhas ribbons?

Mais uma vez agradeço e parabenizo pelo brilhante trabalho.

Abraços,
Fábio

Avelino Sampaio   06/08/2015 13:29:04

Fábio,

vá na seção 'Tutorias" aqui do site e veja o artigo " Vídeo - Criando Ribbons parte 4 - Imagens Externas"

Bom estudo!

Anderson Munhoz Madeira   28/09/2015 08:53:51

Bom dia Avelino,
Enviei um projeto dividido e front e back end, com a função fncDesabilitarRibbon(), também com a função fncchecavinculo(). Fiz o projeto em Access 2010 e lá no destino o Access é 2013.
Estou tendo o seguinte problema: "Erro ao compilar esta função. O módulo Visual Basic contém um erro de sintaxe. Verifique o código e recompile-o." Em seguida entra na tela de Macro Passo a Passo: Macro AutoExec, Argumento: fncDesabilitarRibbon() e Erro:7960.
Na verdade não sei se é devido a fncDesabilitarRibbon() ou a fncchecavinculo(). Pois não tinha este problema antes da fncchecavinculo(), apesar de que também não estava dividido em front e back end.
Meu caro professor, será que possível dar-me uma dica de como resolver este problema?

Abraços

Tino   14/10/2015 23:55:31

Boa noite Ms. Avelino,
Gostaria de saber se tem como converter uma variavel string em um operador matemático ou lógico no Access ou VB 2010
Ex: Dim strOperador as String
Dim num1, num2 vTotal as Double
num1=10
num2=5
vTotal=num1 strOperador num2
então vTotal seria 10+5 = 15
obs: não queria usar o split ou Instr para encontrar o operador

Muito obrigado

Avelino Sampaio   16/10/2015 05:04:10

Tino,

utilize a função Eval() para analisar a expressão. Exemplo:

Dim strOperador as String
Dim num1, num2 vTotal as Double
num1=10
num2=5
strOperador = "+"
vTota l= eval(num1 & strOperador & num2)

Sucesso!

João Alexandre   29/11/2015 12:16:22

Eu queria desabilitar somente a seta da barra de ferramentas de acesso rápido. Isto é possível?

Agradeço antecipadamente a quem me responder.

Avelino Sampaio   30/11/2015 11:49:23

João,

creio que só seja possível através de um ribbons personalizada, conforme mostrado no artigo acima. A linha abaixo, contida na XML, desabilita o conteúdo do Access rápido.

< ribbon startFromScratch="true" >

Eu vendo um kit completo aqui pelo site, que vai te ensinar passo a passo a montagem de ribbons personalizadas.

Sucesso!

EDMILSON   10/12/2015 14:35:24

Prof. Avelino boa tarde!
Sou iniciante em access, e gostaria de tirar uma dúvida:
Em um formulário criei uma caixa de combinação para escolher um valor em uma lista de valores.
Mas antes, este valor deve assumir um valor igual ao valor existente em outra caixa de combinação, se o valor de outro campo não for vazio. A expressão inserida no valor padrão ficou a seguinte: =SeImed([FIM 2]<>0;[Combinação333];0). Até ai tudo bem.
O problema é que preciso que este valor seja atualizado seja atualizado a medida que essas condições mudem quando estou inserindo os dados no formulário e isso só ocorre depois que saio do formulário e entro novamente. Como faço pra resolver isso...o que estou deixando de fazer para isso acontecer?

João Alexandre   10/12/2015 22:04:43

Prof. Avelino

Valeu a dica. Funcionou melhor do que eu esperava. Era tudo que eu precisava, por enquanto. Obrigado!


Claudio   29/06/2016 16:49:14

função para converter utf-8 para iso-8859-1 no ACCESS?

tenho algo parecido no excel, mas no access não funciona 100%

Public Function fnConverterUTF8(ByVal Texto_para_converter As String)
Dim l As Long, sUTF8 As String
Dim iChar As Integer
Dim iChar2 As Integer

For l = 1 To Len(Texto_para_converter)
iChar = Asc(Mid(Texto_para_converter, l, 1))
If iChar > 127 Then
If Not iChar And 32 Then
iChar2 = Asc(Mid(Texto_para_converter, l + 1, 1))
sUTF8 = sUTF8 & ChrW$(((31 And iChar) * 64 + (63 And iChar2)))
l = l + 1
Else
Dim iChar3 As Integer
iChar2 = Asc(Mid(Texto_para_converter, l + 1, 1))
iChar3 = Asc(Mid(Texto_para_converter, l + 2, 1))
sUTF8 = sUTF8 & ChrW$(((iChar And 15) * 16 * 256) + ((iChar2 And 63) * 64) + (iChar3 And 63))
l = l + 2
End If
Else
sUTF8 = sUTF8 & Chr$(iChar)
End If
Next l
fnConverterUTF8 = sUTF8
End Function

ney Santos   25/09/2016 05:22:09

Avelino segui sua dica de como desablitar o conteudo da guia arquivo
Pore agora meu menu personalizado que foi criado no 2003 nao esta aparecendo

Avelino Sampaio   25/09/2016 05:36:30

Ney,

se o seu Access for o 2007 ou o 2010, utilize este meu outro artigo:

http://www.usandoaccess.com.br/dicas/carregar-menu-guia-suplementos-ribbon.asp?id=1&idlista=10#inicio.

Nota 1: Volta a habiltar a guia arquivo.

Nota 2: Se o seu Access for o 2013 ou o 2016 o seu estará aprisionado na guia suplemento da ribbon. Sugiro a aquisição do meu MontaRibbons

Te convido a participar do meu fórum:

http://www.redeaccess.com.br

Sucesso!

ney Santos   26/09/2016 02:54:11

prezado Avelino a muito ja tinha lido esse tutorial, ai acabei vendo esse outro pois me incomodava a aba arquivo ficar aberta.
Agora não consigo reverter paar que meu menu volte.
Eu uso o 2010

Avelino Sampaio   26/09/2016 04:50:42

Ney,

abra um tópico no meu fórum sobre o assunto.

No aguardo

Camilo Sousa   10/11/2016 21:44:29

Parabéns pelo site e pela ajuda estou aprendendo bastante com suas dicas hoje me ajudou bastante na interface do meu projeto.

José Geraldo da Trindade   28/12/2016 18:02:04

Boa tarde!
Prezado Avelino sou seu aluno em um dos seus cursos e gostei muito...
Estou precisando de uma ajuda, criei um formulário de ficha de produtos, nesse formulário tenho a opção de três campos para cores, caso eu só tenha uma cor eu gostaria de ocultas ou outros dois campos, caso tenha duas cores oculta só o terceiro campo.
Obs: Já criei as funções visível True e false, más só está funcionando quando saio e entro novamente no formulário, quando coloco para atualizar ele não está ocultando.
Espero ter me feito entender...
Antecipadamente agradeço atenção,
José Geraldo

Alan Rodrigo   10/01/2017 04:28:09

Avelino,

Bom dia, tudo bem?

Por favor, saberia informar se é possível colocar um navegador de web na ribbon?

Avelino Sampaio   10/01/2017 04:38:29

Alan,

não entendi muito bem a sua questão. Vc quer um botão na ribbon que acesse uma página web específica ? Se for isso, sim é perfeitamente possível! Como exemplo, baixe o aplicativo MAESTRO da seção download aqui do site. A ribbon tem um botão que aponta para o meu site.

Ofereça mais detalhes pelo nosso fórum: http://www.redeaccess.com.br

No aguardo

Alan Rodrigo   06/03/2017 17:51:27

Avelino,

Boa noite.

Por favor, gostaria de saber se é possível ao selecionar uma ribbon automaticamente é aberto um formulário, mas seria só de selecionar uma ribbon para ser exibida?

marcio sampaio   26/04/2017 17:30:54

Ola pessoal
gostei do código para desabilitar a faixa superior do access.
usei o codigo XML que contem na descricao exemplo aqui
como faço para reverter esta operacao, pois sumiu tudo mas agora nao consigo acesso para alterar um formulario ou tabela.
Nao aparece o item Opcoes
No aguardo e obrigado

Avelino Sampaio   27/04/2017 02:09:43

Marcio,

mantenha pressionada a tecla SHIFT na inicialização.


marcio sampaio   27/04/2017 06:08:59

Bom dia Avelino

Parabéns pelo site,
deu certo, agora sim já tava doido aqui sem conseguir acesso.

abraço

Leandro   09/09/2017 13:39:19

Funciona na versão 2016? coloquei a função na AutoExec e nao roda nada ao abrir...porém se executar a macro diretamente (clicando sobre ela) funciona...

Abs!

Avelino Sampaio   12/09/2017 04:07:29

Leandro

utilize o comando:

DoCmd.ShowToolbar "ribbon", acToolbarNo

Sucesso!


Envie seu comentário: