Usando Access

Ribbons - Frutos do Suporte

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, através do Paypal. 

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

Fiz um apanhado das principais dúvidas que o pessoal costuma tirar comigo no suporte que ofereço para quem compra o MontaRibbons.

1) É possível usar ribbons em projetos MDB ou ADP ?

Sim, a única exigência para isso é que estejam rodando no Access 2007 ou no Access 2010.

2) Posso utilizar macros para ativar os botões de uma ribbon ?

Sim, perfeitamente! Crie uma macro global e dentro desta as sub macros de comando.

Exemplo de um botão:

<button id = "btClientes"

imageMso = "CreateTableTemplatesGallery"

label = "Clientes"

onAction = "mcr_ribbon.mAbreFormClientes"/>

mcr_ribbon > macro global
mAbreFormClientes > sub macro com a ação "Abrir formulário"

3) Avelino, a ribbon que montei para o meu BD estava funcionando direitinho.   Só que resolvi dividir o BD (back-end e front-end) e a ribbon parou de funcionar.   Não entendi a razão.   Pode me ajudar?

O assistente do Access, que realiza a separação do BD, carrega a tabela UsysRibbons para o back-end.   Retorne com a tabela UsysRibbons para o front-end que irá funcionar.

4) Tenho vários formulários, relatórios e consultas que acesso pela ribbon e o meu SELECT CASE, na função fncOnAction, está ficando enorme. Não teria uma outra maneira de simplificar essa programação ?

Sim, tem. Podemos utilizar, no atributo onAction dos botões, função com passagem de parâmetros.

Copie a função abaixo para um módulo global qualquer:

Public Function fncAbrirObjeto(nomeObjeto As String, tipoObjeto As Byte)
Select Case tipoObjeto
   Case 1 'formulário
      Docmd.OpenForm nomeObjeto
   Case 2 'relatório
      Docmd.OpenReport nomeObjeto , acViewPreview 
   Case 3 'Consulta
      Docmd.OpenQuery nomeObjeto
End Select
End Function

Agora utilize a função direto na XML, conforme exemplo abaixo:

<button id = "btBackup"
imageMso = "FileBackUpSqlDatabase"
label = "Backup"
onAction = "=fncAbrirObjeto('frmBackup',1)" />

5) Avelino, eu estava tentando elaborar uma ribbon para usar junto a gráficos dinâmicos. Usando o MontaRibbons, encontrei o botão com idMso "FieldList" que mostra todos os campos que podem ser utilizados num gráfico dinâmico. À priori quando coloquei para rodar no modo .accdb ele funcionou perfeitamente, porém quando coloquei para o modo .accdr , ele simplesmente sumiu do meu menu. Creio que o Access o considera  como um aplicativo do modo design e por isto não habilita no modo de tempo de execução. Gostaria de saber se é possível liberar este botão para funcionar no modo .accdr?

Force a visualização com o atributo visible.

<toggleButton idMso="FieldList" label="Lista" visible="true"/>

6) Avelino, eu não estou conseguindo localizar a tabela USysRibbons.

Trata-se de uma tabela de sistema.  Para visualizar as tabelas de sistema faça o seguinte:

Botão do Office > Opções do Access > Banco de dados Atual > Clique no botão "Opções de navegação" > Marque "Mostrar objetos do sistema"

7) Como manter o foco numa determinada guia da ribbon ?

No Access 2010 resolveram esta questão! Veja:

objRibbon.ActivateTab "NomeDaSuaTab"

Já no Access 2007, você terá que fazer uso do SendKeys.

1) Acrescente tecla de atalho (keytip) para cada uma das tabs.

<tab id="TabPrincipal" label="Principal" keytip="H1">

2) Código:

Public Function fncSetFocusTab()
Dim ws As Object
#If VBA7 Then

    'Access 2010
    objRibbon.ActivateTab "NomeDaTab"
#Else

    'Access 2007
    Set ws = CreateObject("WScript.shell")
    ws.SendKeys "%H1%"
    Set ws = Nothing
#End If
End Function

Não use o SendKeys do Access porque ocorre aquele famoso problema de desabilitar o teclado numérico.

8) Avelino, comprei sua coletânea do site e instalei o aplicativo UsandoAcces e lá percebi que você conseguiu ocultar toda a faixa superior do Access, inclusive o botão do Office.  Como é que você fez isso ?

Veja aqui neste artigo como se faz!

9) Estava construindo minha ribbon no MontaRibbons e eis que não está mais aparecendo.  O que fiz de errado ?  Estou usando o Access 2010.

Habilite a detecção de erros 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"

10) Como faço para minimizar a ribbon na inicialização do meu aplicativo?

No Access 2007 não tem um comando específico para isso. A combinação de teclas CTRL + F1 é a responsável em maximizar e minimizar a ribbon.

Use a função abaixo no seu formulário de abertura ou na macro AutoExec :
 

Public Function fncMinimizaRibbon() As Boolean
Dim ws As Object
Set ws = CreateObject("WScript.shell")
If Application.CommandBars("ribbon").height > 140 Then
   ws.SendKeys "^{f1}"
End If
Set ws = Nothing
End Function

Uso o sendkeys do Windows Script porque o do Access desliga o NumLock do teclado.

Já no Access 2010 tem um comando, conforme linha abaixo. Eu não testei ainda. A função acima também deve funcionar no Access 2010.

CommandBars.ExecuteMso "MinimizeRibbon"

11) Como eu tiro a mensagem "pressione F1 para obter mais ajuda" do painel informativo?

A parte inferior do painel informativo, que lhe instrui para pressionar o F1, não tem como ser desabilitada, porém é possível desabilitar o painel informativo, através do caminho abaixo:

Botão do Office > Opções do Access > Mais Usados > Abra a Combo "Estilo de dica de tela" e selecione "Não mostrar dicas de tela" .

12) Estou desenvolvendo um aplicativo, utilizando o MontaRinbons e também o Maestro, mas estou passando por um probleminha: criei uma ribbon principal e também uma outra ribbon que é acionada por um formulário.   Acontece que quando faço a chamada deste formulário, este abre com a ribbon, porém ela desaparece rapidamente e volta para a ribbon principal. Já verifiquei as referências e a mesma está habilitada.

As ribbons não funcionam em formulários e em relatórios que estiverem no modo POP-UP. Altere a propriedade POP-UP do seu formulário para não.

13) "A MICROSOFT Access não pode executar a macro ou a função de retorno de chamada 'fncOnAction'", sendo que já copiei os módulos MOD_RIBBONS para o meu sistema e dentro desse módulo consta a função fncOnAction. Também já coloquei a referência do Object Library 12.0.

Peço para que torne a verificar, com o máximo de atenção, a referência! Selecione a referência MICROSOFT OFFICE 12.0 OBJECT LIBRARY. Não a confunda com a referência MICROSOFT ACCESS 12.0 OBJECT LIBRARY

14) No meu sistema, versão 2003, eu tinha ícones de atalhos para os formulários mais usados.  Há possibilidade de fazer isso no Access 2007, de maneira que estes atalhos fiquem sempre visíveis?

Nos Access 2007 e 2010 têm o que chamamos de “Barra de ferramentas de acesso rápido” . Ela fica na parte superior esquerda, da faixa do Access e pode ser também posicionada na parte inferior, se assim o desejar.  A personalização desta Barra, com os seus botões, é feita pela XML da sua Ribbon Principal.

Exemplo de configuração de um botão na "Barra de ferramentas de acesso rápido", conhecida também como qat.

15) Quando aciono o meu aplicativo, assim que a tela de login aparece, a ribbon já é carregada.  Na realidade, ela só teria que ser carregada quando eu efetuasse o login.   A tela de login é a mesma do Maestro.  Então, como faço  para manter a ribbon desabilitada na inicialização, da mesma forma que é feito no Maestro? 

A guia principal da sua ribbon, tem que estar com o atributo getVisible.   Exemplo:

<!-- *** GUIA PRINCIPAL ***-->
<tab id = "guiaPrincipal" label = "Principal" getVisible="fncGetVisible">

Para controlar a abertura da ribbon, na inicialização do Maestro, é usada uma variável de nome nlogoff, que se encontra no módulo mod_login

Public nlogoff As Boolean

No início da função fncGetVisible, esta variável é usada, encerrando a função e impedindo, com isto, qualquer alteração no valor padrão dos Gets.  O valor padrão é false para o getVisible e o getEnabled.  Assim, a guia principal é iniciada com seu getVisible = false, ocultando a ribbon.

Public Sub fncGetVisible(control As IRibbonControl, ByRef visible)
On Error GoTo trataerro
If nlogoff = False Then Exit Sub
Select Case control.id
...
...

Esta variável também é alterada no formulário frmLogin , logo após a autenticação do usuário.

...
...
    '----------------------------------------
    'reconfigura ribbon rbPrincipal no logoff
    '----------------------------------------
    If nlogoff = False Then nlogoff = True
       
    '------------------------------------------------------------------
    'revalida todos os controles da ribbons que tiverem usando os gets
    '------------------------------------------------------------------
    objRibbon.Invalidate
...
...

16) No Access 2003, usava o seguinte comando para compactar e reparar o banco de dados:

CommandBars("Menu Bar"). _
Controls("Ferramentas"). _
Controls("Utilitários de banco de dados"). _
Controls("Compactar e reparar banco de dados..."). _
accDoDefaultAction

Mas no Access 2007, o referido comando não funciona.  Tem como ajustá-lo para chamar o comando do Office Menu?

Insira o botão abaixo:

17) Dentro do botão do Office há o botão "Opções do Access"  que se encontra na estrutura <commands> da XML.

<command idMso="ApplicationOptionsDialog" enabled=”false"/>

Como faço para habilitar este botão pelo id do usuário?

Clique no botão HELP CONTROLES do MontaRibbons. Selecione o controle “commands” da lista. Desta forma será fornecido o código que manipula este botão, do modo que você deseja.

18) Estou montando um Sistema para controle de minha empresa! Criei uma ribbon especial com quatro guias: Comercial, Estoque, Financeiro e Administrador.

Como faço para que, quando eu clicar na guia, o formulário correspondente seja aberto?

As guias não têm um comando de ação para a execução de uma tarefa.

Minha sugestão é que você crie uma ribbon para cada formulário.  Crie também uma ribbon PRINCIPAL, que tenha os botões de chamada destes formulários. Ao acionar o formulário desejado, pela ribbon principal, a ribbon, associada ao formulário será automaticamente carregada. 

Como alternativa, veja o exemplo que desenvolvi para um Americano, a fim de atender a mesma necessidade que a sua! A questão é que, neste caso, exigirá de você, um maior conhecimento na programação.

Baixe aqui o exemplo

19) Como consigo ocultar o botão btregistro, conforme linha abaixo, quando o usuário registra o programa?

<button id = "btRegistro" imageMso = "HappyFace" label = "Registrar o Sistema" size="large" getVisible="fncGetVisible" onAction = "fncOnAction"/>

Você guarda a informação de que foi registrado em uma tabela? Se assim o for, use a função Dlookup() para resgatar esta informação da tabela e aplicar como condição para ocultar o botão. 

Exemplo do código usado na função fncGetVisible():

Public Sub fncGetVisible(control As IRibbonControl, ByRef visible)

...
Case “btRegistro”
   If Dlookup(“campoRegistrado”,”tblRegistro”)= -1 then
      visible = false
   Else
      visible = true
   End if
...
...

Lembre-se de que para disparar os gets, você precisa usar o Invalidate.  Se quiser alterar somente o botão registro, dispare o getVisible com o InvalidateControl.  Exemplo:

objRibbon.invalidateControl ("btRegistro")

Muito cuidado com o uso do InvalidateControl, que é case sensitive, ou seja, btRegistro é diferente de BtRegistro.

20) Criei uma ribbon no MontaRibbons e exportei para o aplicativo Maestro, versão 2.  Realizei todos os passos informados no MontaRibbons, só que, quando aciono o formulário, este não me traz a ribbon que criei.   Já olhei na tabela tblRibbons e a nova ribbon está lá, só que ela não aparece quando eu aciono o formulário.

Neste quesito, o Maestro versão 2, difere bastante, do Maestro versão 1. O objetivo foi que quis mostrar como proceder para o aplicativo rodar ribbons com estruturas diferentes, de acordo com a versão do Access.

Você tem dois caminhos:

1º - Escolha no MontaRibbons, exportar para tabela USysRibbons.  A tabela USysRibbons será criada no Maestro e você poderá utilizá-la de forma mais simples.   Detalhe: poderá trabalhar com as duas tabelas (tblRibbons e USysRibbons) no seu aplicativo, sem problema algum, desde que não utilize nome de ribbons iguais.

2º - Exportando para a tabela tblRibbons, você deverá abri-la, identificar a sua ribbon e marcar o campo ribbon para o Maestro identificar que se trata de uma ribbon. 

21) Tem como modificar a imagem do botão Office ?

Segue um arquivo exemplo, com os códigos para isso. Nunca usei, nem sequer experimentei! Portanto, não sei do grau de eficiência do código utilizado.

Baixe aqui o exemplo

22) Personalizei a área Backstage e quando clico na guia "Arquivo" apresenta erros de "falha de localização", conforme você pode verificar na imagem.   Detalhe: no MontaRibbons funciona direitinho, somente no meu aplicativo que isto está acontecendo!

Vá em: Opções do Access > Banco de Dados Atual > Marque "Permitir Menus Completos".

23) Qual é o comando da XML para eu desativar a lista de Documentos Recentes ?

Veja todos os detalhes neste tutorial.

24) Enfrentei um problema com as Ribbons montadas no Access 2010 e que funcionam com o RunTime em alguns computadores que rodam XP. Elas simplesmente não apareciam! O mais estranho é que em outros computadores, também com o XP, funcionavam, perfeitamente, com o Runtime. Já, em computadores que possuíam o Access completo, não houve problema algum.  Depois de muito penar e não querendo importuná-lo, descobri que as Ribbons feitas no Access 2010, para funcionarem em ambiente RunTime, no XP, deverão, obrigatoriamente, ter o SP3. Constatei que todas as máquinas que as Ribbons não funcionaram ou eram XP com SP1 ou XP com SP2. Daí, eu mesmo instalei a atualização do XP e as minhas magníficas Ribbons funcionaram "perfect"!! Talvez, outras pessoas enfrentem essa mesma situação, por  isso, deixo aqui a minha dica!

Interessante, porque se não tiver o SP3 , o Office completo rejeita a instalação. Parece um caso particular para o “runtime”.  Valeu pela sua preciosa dica!

25) Tenho uma ribbon associada a um determinado formulário.  Como faço para habilitar um botão dessa ribbon, quando selecionar um item de uma ListBox ?

Baixe aqui o exemplo

Artigos Relacionadoss

MontaRibbons v.4.0 - Assistente completo para criar ribbons no Access

Vídeo - Criando ribbons (parte 1)

| Home | Vídeos | Tutoriais | Dicas | Ribbons | Suporte | Downloads | Contato | Artigo |