[Resolvido]Criando menus por meio de VBA

Caros,

Com as ferramentas usuais para criação de formulários, foi criada uma barra de menus. Ela contém a guia "início" e também a guia "Suplementos". A estrutura não é adequada seja porque não quero a guia "início", seja porque não consigo criar guias personalizadas às quais se possa subordinar opções. Hoje, tudo o que se cria está subordinado à guia "suplementos".
Pode-se desocultar uma tabela de configurações, criar um XML personalizado e assim definir outra estrutura de menus. na verdade, não me pareceu complicado. Tendo repetido os mesmos passos por diversas vezes, não consegui exibir os novos menus, não obtive mensagens de erro, então, abandonei esta alternativa.
Observei que o objeto DoCmd possui um método AddMenu. Pela descrição, parece que é possível criar um menu personalizado por código, isto é, poderia ver-me desobrigado do tal XML que não funcionou.
Alguém teria algum código de exemplo sobre como criar barras de menu por meio de VBA?
Luciano

você usa o access 2000/2003/2007 ou 2010 ?

o 2000 e 2003 existe um jeito de criar menus personalizados mais facíl, mas o 2007/2010 é via xml e é via ribbon que deixa um visual bonito.

Se for no caso de 2007/2010 basta criar um menu ribbon com xml e escrevendo na tabela USysRibbons e ativar na opções do access, ir a aba Banco de Dados Atuais, e na combo box de Nome da faixa de Opções, coloque a nome da Ribbon que você criou na tabela, vou postar um exemplo para você entender: (Existem 2 ribbins: HomeA e HomeNA (Administrador e Não Administrador)) **Lembrando que estou usando links para imagens com formato png então se for testar o xml da escrita basta adicionar imagens .png e indicar o local dos arquivos, ou se não aplicar imagens da própria imagem do Access:

se ainda tiver dúvidas só perguntar, estou disposto a responder

Bom dia

O código html já estudo ele a bastante tempo, mais o xeml para ser mais complicado.
Eu já tenho muita dúvida em relação a ribbons e xml, já peguei os exemplos do Avelino mais não consegui adaptar no meu banco de dados.

se existe alguma dúvida só perguntar...

Utilizo o Access 2007. A bem dizer, tinha ideia de não utilizar os ribons porque não consegui localizar o erro. Criei o XML, incluí-o como registro da tabela que mencionou e realizei os demais procedimentos. Não tenho dúvidas quanto à estrutura do XML, os passos parecem ter sido corretamente seguidos. Se me pergunta: "Você tem alguma dúvida?" Não. Não tenho. Simplesmente não funcionou e nenhuma mensagem de erro foi exibida. Então, resta-me somente repetir tudo de novo na esperança de que tenha mesmo escorregado em alguma coisa. A ausência de uma mensagem de erro é que complica porque nem tenho como lhe dizer o que deu errado.

Pelo que você está a dizer os ribons passaram a ser a única estrutura disponível, isto é, seja pela interface gráfica ou por VBA, é-me inteiramente impossível criar menus no estilo antigo. Note que não tenho preferência por um ou por outro, quero apenas que funcione.

dhtm15

Também utilizo o Access 2007 e encontro o mesmo problema. Segui o passo a passo indicado neste link "http://office.microsoft.com/pt-br/access-help/personalize-a-faixa-de-opcoes-HA010211415.aspx", e substituí o código xml sugerido por eles pelo que você enviou ao luchyanus.

Entretanto, no momento em que vou ativar a faixa de menu, que no caso seria o "HomeA", não aparece como uma opção dentro da caixa "Nome da Faixa de Opções". Na verdade não aparece nome nenhum, como se não houvesse sido criada nenhuma faixa personalizada. Testei digitar nessa caixa o nome "HomeA", fechei e abri o banco novamente, e nenhuma alteração foi feita.

Você saberia me dizer o que pode estar acontecendo ?? O Access não indica nenhum erro, simplesmente ignora a faixa de menu criada. Caso deseje visualizar o banco, envio anexo. Desde já, muito obrigada !

Olá

Acesse o meu "frutos do suporte" abaixo - questão de número 9

http://www.usandoaccess.com.br/tutoriais/tuto34.asp?id=1#inicio

Sucesso!

Professor Avelino,

A interface de erros já está ativa... e mesmo assim o Access não acuso erro nenhum.

É eu novamente
Bom estou postando aqui um exemplo de como usar as ribbons, esqueci de mencionar que é necessário existir 3 Módulos para que as Ribbons funcione, então abra o exemplo e analise como é que funciona...

Exemplo do Ribbons:
http://www.mediafire.com/?gclcz3i2doz5kk2

se precisar posso postar um programa que gera as ribbons para você, mas não é 100% recomendado...

dhtm15,

Ao abrir o arquivo que você enviou aparece um aviso de incompatibilidade. Eu uso o Access 2007, você por acaso fez no Access 2010?

opa desculpe, falta de atenção minha, sim eu uso sempre o mais atualizado, no momento uso o office 2010...

então vamos fazer um seguinte, Abra a tabela UsysRibbons e alterar o seguinte commando:

De:

Código:

<customUI xmlns="http://schemas.microsoft.com/office/2009/07/customui" onLoad="OnRibbonLoad" loadImage="LoadImages">

Para:

Código:

<customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui" onLoad="OnRibbonLoad" loadImage="LoadImages">

só mudar esta descrição no inicio da escrita do código xml, então vai converter para 2007, os módulos está funcionando tanto para 2007 quanto para 2010 x86 ou x64


Observação:
caso ainda haver algum erro tente somente isso:

Código:

<customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui">

Recapitulemos um pouco para ver se consegui entender.

Para criar menus personalizados, crio a tabela USysRibbons. Ela é utilizada para configuração e possui três campos: Identificação, nomedafaixadeopções e xmldafaixadeopções.

Não mexo na identificação. Ela é atribuída automaticamente pelo sistema. No campo, nomedafaixadeopções, coloco uma identificação para o controle que me para ativá-lo nos menus. Finalmente, no campo xmldafaixadeopções, coloco o XML que serve para configurar os menus.

Assim, observem qual é o conteúdo que, no momento, tenho em USysRibbons:

identificação: 1
nomedafaixadeopções: HomeA
xmldafaixadeopções:

<!-- Created with IDBE RibbonCreator 2010 (Version: 1.1012a) -->
<!-- http://www.RibbonCreator2010.com -->
<!-- http://www.RibbonCreator2010.de -->
<customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui" onLoad="OnRibbonLoad" loadImage="LoadImages">
<commands>
<command idMso="Help" enabled="true"/>
<command idMso="WindowClose" enabled="true"/>
<command idMso="WindowRestore" enabled="true"/>
<command idMso="WindowMinimize" enabled="true"/>
</commands>
<ribbon startFromScratch="true">
<tabs>
<tab id="tabInício" label="Início">
<group idMso="GroupViews" >
</group>
<group idMso="GroupClipboard" >
</group>
<group idMso="GroupTextFormatting" >
</group>
<group idMso="GroupRichText" >
</group>
<group idMso="GroupRecords" >
</group>
<group idMso="GroupSortAndFilter" >
</group>
<group idMso="GroupFindAccess" >
</group>
<group id="grpOutros" label="Outros">
<buttonGroup id="gbt_6" getVisible="GetVisible">
<button id="btnDesfazer" label="Desfazer" screentip="Desfazer" supertip="Desfazer a ultima alteração" imageMso="Undo" tag="RibbonName:=;inMenu:=;CustomPicture:=;CustomPicturePath:=" onAction="Atalhos.Desfazer" getVisible="GetVisible" getEnabled="GetEnabled" />
<button id="btnRefazer" label="Refazer" screentip="Refazer" supertip="Refazer a ultima alteração" imageMso="Redo" tag="RibbonName:=;inMenu:=;CustomPicture:=;CustomPicturePath:=" onAction="Atalhos.Refazer" getVisible="GetVisible" getEnabled="GetEnabled" />
<button idMso="FileCompactAndRepairDatabase" label="Compactar Banco De Dados" screentip="Compactar Banco De Dados" supertip="Compactar Banco De Dados E Reparação de Erros" tag="RibbonName:=;inMenu:=;CustomPicture:=;CustomPicturePath:=" />
</buttonGroup>
<!--End buttonGroup NOT delete this remark-->
<buttonGroup id="gbt_11" getVisible="GetVisible">
<button idMso="PublishToPdfOrEdoc" label="Salvar em PDF" screentip="Salvar em PDF" supertip="Salvar em pdf a janela atual" tag="RibbonName:=;inMenu:=;CustomPicture:=;CustomPicturePath:=" />
<button idMso="FileBackupDatabase" label="Backup" screentip="Backup" supertip="Fazer Back'up do sistema" tag="RibbonName:=;inMenu:=;CustomPicture:=;CustomPicturePath:=" />
<button idMso="DatabaseDocumenter" label="Documentação" screentip="Documentar o Software" supertip="Documentar todo o software" tag="RibbonName:=;inMenu:=;CustomPicture:=;CustomPicturePath:=" />
</buttonGroup>
<!--End buttonGroup NOT delete this remark-->
</group>
</tab>
<tab id="tabFormulários" label="Formulários">
<group id="grpHome" label="Home">
<menu id="mnuCadastroDeEquipamento" size="large" itemSize="normal" label="Cadastro de Equipamento" getImage="GetImages" tag="RibbonName:=;inMenu:=;CustomPicture:=Wordpad-icon.png;CustomPicturePath:=C:\Laudos\Icons\" getVisible="GetVisible" getEnabled="GetEnabled" >
<button id="btnNRBC" label="NRBC" screentip="Cadastro de Equipamento NRBC" supertip="Cadastramento de Equipamentos que são do tipo NRBC" getImage="GetImages" tag="RibbonName:=IDBERibbonCreator;inMenu:=mnuCadastroDeEquipamento;CustomPicture:=Add.png;CustomPicturePath:=C:\Laudos\Icons\" onAction="Atalhos.CadEquipNRBC2" getVisible="GetVisible" getEnabled="GetEnabled" />
<button id="btnListaNRBC" label="Lista NRBC" screentip="Lista de Equipamentos NRBC" supertip=" Listagem de equipamento NRBC cadastrado no sistema interno" getImage="GetImages" tag="RibbonName:=IDBERibbonCreator;inMenu:=mnuCadastroDeEquipamento;CustomPicture:=tag_blue.png;CustomPicturePath:=C:\Laudos\Icons\" onAction="Atalhos.CadEquipListaNRBC" getVisible="GetVisible" getEnabled="GetEnabled" />

Este foi exemplo postado pelo colega dhtm.

Depois de ter atualizado a tabela fiz o seguinte:

1. Salvei a tabela;
2. Fechei e abri o banco de dados;
3. Fui em Opções do Access > Banco de Dados Atual > entrentado em "Opções da Barra de Ferramentas e Faixa de Opções" > Faixa de Opções > o "HomeA" que criei não aparecia entre as opções;
4. Digitei o nome HomeA;
5. Fechei e abri o banco de dados;


Realizados tais procedimentos, ainda assim, a guia não aparece, e o Access não acusa nenhum erro, apesar da opção de mostrar erros estar ativa.

Alguém teria alguma idéia do que poderia fazer para resolver o meu problema?

Amigão "iniciante",

sua ribbon está tão incompleta que o Access nem consegue analisar. Entenda primeiro a estrutura e depois parta para algo maior. Já quer fazer algo grande sem pelo menos entender a estrutura.

No meu primeiro artigo já mostro uma imagem da estrurura para ir memorizando. As vídeos-aulas são gratuitas.

http://www.usandoaccess.com.br/tutoriais/tuto6.asp?id=1#inicio

Bom estudo!

Olá Iniciante, Experimenta esse banco de dados: https://skydrive.live.com/redir?resid=8C0A8D01B183BA74!357


Login Dennis
Senha 0790

Caso queira ver a estrutura segura o shift no login e aperta enter

Olhe bem, este banco de dados tem muita coisa interessante, principalmente as ribbons,

Para instalar este banco deixa ele no C:/ com a pasta Laudos Cliente

Use os atalhos que contém dentro da pasta para poder abrir, pois está vinculada ao acesso avançado do access.

Qualquer dúvida só pergutar, e eis aqui uma foto das ribbos no anexo...

Professor Avelino,

Infelizmente, apesar de reconhecer que a solução descrita na vídeo aula facilitaria a minha vida, não poderei utilizá-la. Utilizo as ferramentas que a empresa coloca à minha disposição e não seria fácil adquirir qualquer solução que implicasse licenciamento. Se eu insistir nessa idéia, a resposta será a de que devo abandonar o Access, fazer uma solicitação de desenvolvimento de sistema e esperar para que a TI o encontre em seu extenso log. Contudo, deixar o Access significa esperar muito tempo.
Pensei que este XML não deveria falhar porque, a bem dizer, foi a cópia de algo postado aqui. Gostaria apenas de conseguir executar um XML. Observando o que ele produziu e o código do XML é possível fazer alterações e chegar àquilo que desejo. O problema é que não há nem mesmo mensagem de erro, então, a coisa fica mesmo complicada.
Fica a parecer que estou tentando algo que está acima de minhas possibilidades, mas é preciso considerar que já consegui fazer os menus usuais do Access, então, o próximo passo é mesmo personalizá-los. Não me importo de ler longos manuais para aprender a utilizar a solução configurada com XML, no entanto, como não encontrei material detalhado sobre o assunto, a única alternativa parece mesmo ser a de testar um código que existe, verificar como ele funciona e, assim, aprender a alterá-lo para os meus fins.
Nos fóruns, por vezes, encontramos gente que pergunta tanto e se esforça tão pouco que fica a parecer que não se esforçam o suficiente. Não é este o meu caso. É que não consegui um material didático que me guiasse nessa tarefa.

DHTM,
No link do Skydriver que você me indicou, devo baixar o "Laudos Cliente", correto?
Salvei no a pasta resultante da descompactação no C:. Ao clicar no arquivo Calibração.mdb, obtive um erro, pois não sou administrador do sistema e, por isso, não posso executar determinadas operações. Como posso acessar o arquivo para visualizar o exemplo?
Observe que não sou do departamento da informática. Sou de uma área usuária e, seguindo a filosofia do Access, a de que é um bcanco de dados acessível a usuários mais ou menos comuns, tento criar algo que melhore a produtividade de meu setor.

Muito obrigada aos dois pela ajuda !

se não me engano quando você tenta utilizar o programa aparece uma mensagem do windows falando que você está tentando executar um programa que necessita da conta administrador, mas neste caso não necessita exatamente, você pode abrir-lo mas não editalo sem a conta administrador...

para poder acessar existe uma caixa escrito para proteger este arquivo de ser acessado ou algo do tipo, é uma botão de ticagem, só tirar a tirinha dela e abrir normalmente que vai, lembrando que é somente leitura...

uma dúvida que tenho é, qual deles você pegou?? tem 2 no skydrive, basta pegar o que está compactado .rar não tente pegar o .exe que você não vai conseguir visualizar mesmo, e mesmo que consiga o Ribbons vai ficar sem os icones pois eu corrigi um erro neste novo que anexei...

Olá "Iniciante"

Vc não precisa comprar o meu produto. Basta acompanhar os meus dois primeiros artigos com atenção que verá luz no aprendizado.

Por exemplo, observe a última linha do seu código apresentado:

tag="RibbonName:=IDBERibbonCreator;inMenu:=mnuCadastroDeEquipamento;CustomPicture:=tag_blue.png;CustomPicturePath:=C:\Laudos\Icons\" onAction="Atalhos.CadEquipListaNRBC" getVisible="GetVisible" getEnabled="GetEnabled" />

Se vc de fato tivesse prestado atenção no meu primeiro artigo, veria que está faltando algo. Quando trabalhamos com XML e HTML, tudo que se abre deve ser fechado.

< tabs> .... < /tabs>

< group> ... < /group>


Então te pergunto, cadê as tags de fechamento < /group>, < /tab> , < /tabs> , < /ribbon> e < /custonUI> ?

Quando enteder a estrutura não vai depender de programa algum, nem meu nem de ninguém.

Bom estudo!

ótimo olhos avelino, realmente está faltando os fechamentos de tags, ou talvez ele não postou completo vamos aguardar...

DHTM,

Baixei o laudos cliente.rar mesmo. Ao clicar sobre calibração.mdb aparece a mensagem de erro que está na imagem anexada. Ao clicar em Ok, ele fecha o Banco de dados e aparece aquela tela inicial do Access, sem nenhum banco aberto.
O que estou fazendo de errado?

como disse ali em cima, é necessário colocar o banco na unidade C: * Disco local C * que fica em meu computador, a pasta tem que estar assim C:/Laudos cliente/ ** Aqui os arquivos onde se encontra o banco **

então depois não tente abrir o calibração.mdb por que está protegido, você tem que usar os atalhos que existem dentro da pasta, como estes 4:

Laudos 2012 X64bits-Office2007
Laudos 2012 X64bits-Office2010
Laudos 2012 X86bits-Office2007
Laudos 2012 X86bits-Office2010

Veja qual é o office que você usa então selecione o office que realmente tem, depois veja se ele é de 32bits ou 64bits pois existem diferenças no caminho onde se encontra o office2010(Office14) e office2007(Office12) e 32bits C:/Arquivos de Programas e 64bits C:/Arquivos de Programas(x86)

tenta ai e qualquer coisa da um toque

Foram tantos os dissabores com os ribbons que, deixei-os de lado por enquanto. Se o problema é de sintaxe do XML, não sei. Por vezes, é assim. Temos de nos afastar um pouco do problema e, então, mais tarde, com a cabeça fria, voltamos e as coisas acabam por funcionar. Tenho certeza de que a dica foi boa e correta. Se ainda não usufruí plenamente dela, sem dúvida, foi por limitação daquele que vos fala. De qualqeur modo, agradeço muito pelo apoio.

Olá luchyanus

Por isso desenvolvi o MontaRibbons, que torna a criação um prazer e de rápida solução.

Lembrando que pode baixar para testar.


Sucesso na próxima tentativa!

Caro dhtm15 baixei seu exemplo e atraves dele consegui montar minha ribbon, muito obrigado mesmo, agora posso dizer que iniciei no mundo das ribbons.

Creio que único motivo por estar com erro o seu arquivo xml de abertura das ribbons,é simplesmente falta da referencia Microsoft Office 14 Object Library do access 2010 e do access 2007 Office 12 Object Library.
Aparentemente,me parece que você optou por utilizar a ribbon de um colega.
Mas,para aprendizado por concerteza futuramente a ribbon fará parte de todo projeto,verifique e descubra se esse era realmente o erro que estava acontecendo.

Obrigado.

Boa sorte ai

De nada Macedo, bons estudos para ti, mais o melhor jeito e mais otimizado é o do grande Avelino, aprenda o XML com ele e use os seus exemplos são ótimos! O fórum agradece o seus retornos.