bollywood actresses hair loss hair rehab london contact number cheap hair extensions brazilian curly hair with closure hair extension fails human hair wigs black ponytail hairstyles 2018 sunny hair extensions uk hair extensions remy hair extensions weft koko one piece hair extensions clip hair
Desabilitando a ribbon do Access

Desabilitando a faixa(ribbon) superior do Access

Nota importante: para ter acesso aos vídeos e arquivos exemplos deste site, adquira um dos planos apresentados abaixo. Você pode comprar em até 5x no Cartão de Crédito. 

Veja como comprar e saiba mais sobre o material oferecido,  clicando aqui.

Open v3

 

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!


 

 


119 comentário(s)

Jorge Nelson   08/09/2023 07:21:35

Bom dia.
Estou com uma dificuldade no access 2019, uso o monta ribbons, até o 2007 sem problema, mas ao migrar para o 2019 não consigo ocultar o menu arquivo no lado esquerdo o menu ENTRAR no lado direito onde abre uma janela para entrar com a conta microsoft. Alguém com esse problema e já encontrou uma solução? Os demais menus consegui ocultar sem problema. Obrigado e abraço a todos.

Avelino Sampaio   26/08/2023 03:58:13

Nilson

Veja este meu artigo:

https://www.usandoaccess.com.br/ribbons/esconder-a-guia-folha-de-dados-na-ribbon.asp#video

Sucesso!

Nilson   23/08/2023 14:33:01

Olá Avelino, boa noite!

Estou com um pequeno problema nas minhas ribbons que não consegui resolver.

Quando estou com um formulário com um subform em modo de folha de dados, mesmo com a ribbon personalizada abre a guia de folha de dados quando o usuário clica em qualquer linha da folha de dados, inclusive com o botão de mode de design.

É possível resolver isso?

José Geraldo da Trindade   28/12/2022 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

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

Prof. Avelino

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


EDMILSON   10/12/2022 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?

Avelino Sampaio   30/11/2022 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!

João Alexandre   29/11/2022 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.

Camilo Sousa   10/11/2022 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.

Avelino Sampaio   16/10/2022 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!

Tino   14/10/2022 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

Anderson Munhoz Madeira   28/09/2022 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

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

Ney,

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

No aguardo

ney Santos   26/09/2022 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   25/09/2022 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   25/09/2022 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

Leandro   23/09/2022 18:53:19

Sim, já a estou utilizando...criei a função publica abaixo:

Public Function fncDesabilitarRibbon()

DoCmd.ShowToolbar "ribbon", acToolbarNo

End Function

E chamo ela dentro da Autoexec, porém parece que a Autoexec nao executa ao abrir o sistema...mas se clico diretamente na macro o painel se esconde...

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

Leandro

utilize o comando:

DoCmd.ShowToolbar "ribbon", acToolbarNo

Sucesso!

Leandro   09/09/2022 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   06/08/2022 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!

Fábio César   06/08/2022 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   14/07/2022 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!

Gilberto Martins dos Santos   12/07/2022 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

Claudio   29/06/2022 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

Avelino Sampaio   22/06/2022 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

Edielson   22/06/2022 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

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

Bom dia Avelino

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

abraço

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

Marcio,

mantenha pressionada a tecla SHIFT na inicialização.


marcio sampaio   26/04/2022 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

Alan Rodrigo   06/03/2022 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?

Felipe   25/02/2022 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

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

Moura,

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

Moura Santoli   31/01/2022 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   10/01/2022 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   10/01/2022 04:28:09

Avelino,

Bom dia, tudo bem?

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

LUIZ ANDRÉ MOREAUX NUNES JUNIOR   18/12/2021 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?

Carlos Hygino Accurso   04/12/2021 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

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

Hebertt,

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

Sucesso!

Hebertt   29/11/2021 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

luis   27/11/2021 06:00:05

Muito bom!

Avelino Sampaio   03/11/2021 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!


Vanderlei   03/11/2021 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/2021 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!

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

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

Avelino Sampaio   25/10/2021 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!

Rodrigo Werneck   24/10/2021 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   05/10/2021 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!

Ronilson Jose da Silva   04/10/2021 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

Guilherme Schuck   27/09/2021 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.

Guilherme Schuck   27/09/2021 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?

Avelino Sampaio   27/09/2021 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   26/09/2021 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?

Fabiana   22/09/2021 01:52:11

Avelino,boa noite!

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

Obrigada

figueiredo   06/09/2021 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

Domingos Oliveira   20/08/2021 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

Avelino Sampaio   16/08/2021 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!

José Donizeth Rodrigues   15/08/2021 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.

Flávio   01/08/2021 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.

Leonardo Vellinho   29/07/2021 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.

Octavio   03/07/2021 11:40:51

Obrigado Avelino. o artigo me foi util

Avelino Sampaio   02/07/2021 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!

Erika Perez   01/07/2021 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???

Celeste   14/06/2021 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

Oldri   09/06/2021 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

Avelino Sampaio   28/05/2021 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!

Luiz Kang   28/05/2021 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   23/05/2021 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!

Ricardo Ravelli   22/05/2021 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   22/05/2021 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!

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

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

Alessandro   14/05/2021 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.

Weder   07/05/2021 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!

Avelino Sampaio   21/03/2021 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!

Jean Gerard   20/03/2021 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?

TICO   27/02/2021 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?

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

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

Avelino Sampaio   28/01/2021 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!

Anderson   26/01/2021 13:40:12

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

Avelino Sampaio   20/01/2021 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!

Rodrigo   19/01/2021 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   18/01/2021 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!

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

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

help   08/01/2021 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 !!!

help   08/01/2021 21:23:06

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


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

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

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

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

Avelino Sampaio   29/10/2020 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!

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

Meu email : semear2@hotmail.com

ANDERSON MUNHOZ MADEIRA   26/10/2020 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.

Marcos Elder   11/10/2020 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.

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

Reinanldo,

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

No aguardo

reinaldo   08/09/2020 11:21:13

preciso criar um aplicativo de impressao no access 2003

Avelino Sampaio   19/07/2020 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

Lauro   18/07/2020 23:34:27

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

Lauro   18/07/2020 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.

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

Valeu pela dica, muito bom.
Obrigado.

Avelino Sampaio   14/07/2020 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.

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

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

Avelino Sampaio   06/07/2020 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!

Rodolfo Lemos   05/07/2020 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!

Eduardo   30/06/2020 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.

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

Eduardo,

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

Sucesso!

Eduardo   29/06/2020 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   29/06/2020 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/2020 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.

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

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

Avelino Sampaio   27/06/2020 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

rogerio   25/06/2020 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.

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

Obg pela dica , ajudou bastante!

sandro   20/06/2020 18:49:37

valeu amigo, ótimo site!

Avelino Sampaio   14/06/2020 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!

Kátia Fernandes   14/06/2020 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.

Valdeir   10/03/2020 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!

Cláudio   24/02/2020 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!

Avelino Sampaio   19/02/2020 00:25:17

Paulo

É possível apenas montar uma pacote de distribuição. Neste pacote de distribuição (exe) você embala o seu projeto e mais o runtime do Access, se necessário.

Veja neste meu artigo:

https://www.usandoaccess.com.br/tutoriais/montar-pacote-distribuicao-usando-istool.asp?id=1#inicio



paulo gesse da costa   18/02/2020 15:35:39

como fazer um executavel no access.?

paulo gesse da costa   18/02/2020 15:34:40

como usar o open no RUN TIME do access?
esta ferramenta é show mas é necessário ter a instalação do access na maquina do usuário (o que não é possivel ter quando temos um ambiente multiusuário (meu caso na empresa)
responder para .... paulo.gesse@usiminas.com

paulo gesse da costa   18/02/2020 15:31:56

utilizo banco de dados accdb em ambiente multi usuário. como fazer para "quebrar conexões" quando precisar fazer alterações no bd? ha sugestões.?

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

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

Muito Obrigado Avelino


Envie seu comentário: