Júlio Battisti Livros e Cursosa sua sala de aula na internet

Até este ponto criamos vários menus e o leitor deve ter percebido que se o volume de menus e botões for elevado teremos um grande problema, pois o código ficará muito longo.

Esta parte é dedicada à automação deste processo. Embora os métodos anteriores sejam considerados “automações”, aqui automação quer dizer separar o código dos itens que compõem a barra de comando e menus.

Vamos supor que desejamos inserir um menu antes do menu Arquivo no Access. Este novo menu, conterá 8 diferentes botões e dois popups. O primeiro popup conterá 5 botões e o segundo popup conterá 6 botões. Coloque agora no contexto dos códigos anteriores.

É desnecessário dizer que o código para a construção de tal menu será enorme. Sem contar que se houver necessidade de acrescentar ou retirar menus e botões temos que editar diretamente no código. Você esqueceu um acento e tem que correr para o código. Um menu foi inserido na ordem errada e lá vamos nós para o código novamente.

Com certeza deve haver uma forma mais fácil para fazer isso, certo? Correto. Contudo, formas mais fáceis de fazer algo estão sempre evoluindo. Antes, viajar a cavalo era eficiente, depois foi carro e hoje é avião. Em breve, serão foguetes e quem sabe um dia nós viajaremos por tele transportação como no filme Jornada nas Estrelas.

Os métodos apresentados funcionam assim. Hoje, eles são eficientes. Amanhã alguém inventa uma idéia melhor. Portanto, ao desenvolver os métodos apresentados pense em como você pode melhorará-los.

Deixando o papo furado de lado, vamos ao que interessa: como melhorar o procedimento de criação de menus.

Primeiramente, precisamos estar claros do que desejamos fazer. Por exemplo, queremos acrescentar um FaceID? Queremos acrescentar um atalho? Qual a ação a ser executada? O que está sendo adicionado é uma barra de comando, menu ou botão? Em que ordem eles entram? Onde eles estarão posicionados? Flutuando ou anexado ao menu principal do Access? Ou será uma barra de comando para substituir a barra do Access?

Estas são perguntas que precisamos fazer antes de construirmos qualquer coisa. Observe que quando perguntamos algo, efetivamente já temos as respostas do que procuramos. Pense nisso. Você sabe as respostas, porém, não sabe como implementá-las. Esta é a diferença. Portanto, se há uma pergunta tem que haver uma resposta, caso contrário a pergunta é inválida.

Com isto em mente estamos prontos para iniciar a construção de nossa folha de solução. Aqui, passarei o meu raciocínio por trás da solução por mim apresentada.

O Access é um banco de dados e utilizaremos isso em nosso favor. Por exemplo, imagine uma tabela como sendo a nossa barra de comando. Tudo que está dentro da tabela é, portanto, um item de nossa barra de comando, por analogia.

Agora imagine o nome de cada campo em nossa tabela e uma série de itens em cada campo. Se cada campo é um menu (popup), então, cada item abaixo é um botão deste popup. Para ter uma idéia do que estou dizendo veja a figura abaixo:

Figura 10-1

Este exemplo nós veremos no próximo tópico quando faremos uma lista das barras de comando, menus e itens de menu. Veja que a forma como listo os itens é a forma natural dos menus.

Como podemos ver, com um pouco de imaginação contemplamos formas diferentes de solucionar o mesmo problema. Como cada objeto tem suas propriedades, precisamos definir quais propriedades nos interessam. Para o primeiro exemplo estaremos utilizando as seguintes propriedades:

• Name/Caption
• FaceId (para botões somente)
• OnAction (para botões somente)
• BeginGroup
• Width

Como a barra de comando é composta por três objetos, manipularemos os seguintes:

• MENU (os menus tipo popup)
• BOTAO (os botões que executarão os comandos)

Para evitar erro na digitação (o que nos causaria dores de cabeça no código) os dois itens acima serão numéricos, o primeiro será 1 e o segundo 2.

Uma vez construída a sua tabela no Access, o formato geral deve ter a seguinte cara:

Figura 10-2

Como cada propriedade está escrita em inglês no VBA, os cabeçalhos também foram inseridos em inglês para facilitar a referência, leitura e compreensão.

Tanto no Excel quanto no Word o método será um pouco mais óbvio, já no Access a coisa muda um pouco de figura. Contudo, além de aprender como automatizar o processo você também aprenderá a utilizar o banco de dados, recordset (conjunto de registros), etc, em tempo de execução. Visto por este ângulo a criação de menus no Access oferece muito mais em termos de aprendizado.

Para completar este exercício você precisará de:

• 1 Tabela
• 1 Módulo

Ao criar sua tabela, você deverá inserir os seguintes itens:

Figura 10-3

Não estarei utilizando todas as propriedades no código que apresentarei, mas a tabela conterá tais propriedades caso seja necessário acrescentar algo no futuro.

Salve sua tabela como ItensMenu  e feche-a. Crie um módulo onde iremos inserir nosso código. Não esqueça de instalar as referências aos objetos do Office.

Terminado os passos acima, podemos partir para o nosso código. Logo no topo do módulo defina a variável pública constante NOMEMENU. As explicações estão contidas no código:

Rodando o código uma pequena barra de comando flutuante é adicionada ao Access:

Figura 10-4