sábado, 30 de agosto de 2014
assinantes
   Assinatura Ativo Access


Não Assinantes
ConteÚdo
DOWNLOADS
Interação
dicas aleatórias
Dica #60
Controle Calendário
Publicado: 17/04/2007

Dicas

Criando ADD-INS (SUPLEMENTOS) no Access 97
Autor:  Ribamar FS (ribafs@yahoo.com)
Publicado:  24/03/2000
Visitas: 7252
 
Criando e registrando um "Hello, World" Menu Add-In:

Os suplementos do Access dependem de uma tabela de sistema chamada USysRegInfo, que contém as entradas de registro requeridas por um suplemento. Isso pode ser feito diretamente no registro do windows mas não é tão eficiente
nem tão prático e esta tabela torna a coisa portável.

O Capítulo 17 do Building Applications with Microsoft Access 97, que pode ser encontrado no site da Microsoft:

http://msdn.microsoft.com/isapi/msdnlib.idc

Traz mais detalhes sobre o assunto.

Os suplementos do Access são arquivos com a extensão MDA.

PASSO 1: CRIANDO O ADD-IN

1- A pasta default dos Suplementos (Add-Ins) do Access é: c:\Arquivos de Programas\Microsoft Office\Office
Vamos criar uma nova pasta dentro desta para não misturar, chamada MeusAddIns.
Caso queira mudar o nome lembre de fazer as alterações no path.

2- Abra o Access e clique em Banco de dados vazio e OK

3- Escolha o diretório:
c:\Arquivos de Programas\Microsoft Office\Office\MeusAddIns e o nome: MnuAdn.mdb
Em Salvar como tipo, selecione o Suplemento (*.mda) e clique em Criar.

4- Na aba Módulos clique em Novo e cole o seguinte código nele:

Function KickOff()
MsgBox Date
End Function

5- Salve e pode aceitar Módulo1 como nome.

PASSO 2: Adicionando a Tabela de sistema USysRegInfo

1- Para poder exibir as tabelas de sistema: Ferramentas - Opções - Exibir.
Em Mostrar deixe marcado Objetos do sistema e clique em OK.

2- Na aba Tabelas agora aparecerão várias tabelas de sistema, mas ainda falta
a tabela USysRegInfo necessária ao nosso Add-Ins. Vejamos como exibi-la:

3- No menu Arquivo - Obter dados externos - Importar. Acesse a pasta \Office
e selecione Wztool80.mde e clique em Importar.

4- Selecione na lista a tabela USysRegInfo e clique em OK. A tabela está
vazia. Veja o Passo seguinte para preenchê-la.

PASSO 3: Adicionando registros para a tabela USysRegInfo

1- Abra a tabela USysRegInfo no modo folha de dados para cadastrar

2- Preencha o campo Subkey com o seguinte diretório nos 3 registros:

HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Office\8.0\Access\Menu Add-Ins\Today's &Date

Veja que isto fica apenas numa linha.

- O campo Type tem os seguintes registros:

0
1
1
Nesta ordem

- O Campo ValName tem o primeiro registro nulo, ou seja:

'Nada no primeiro
Expression 'segundo
Library 'terceiro

- O Campo Value tem também o primeiro registro nulo:

'Nada no primeiro
=KickOff() 'segundo
|ACCDIR\MeusAddIns\MnuAdn.mda 'terceiro

Lembre de fazer o ajuste da pasta (se necessário)

Obs.: Veja que a tabela deve ter a seguinte estrutura:


Subkey Type ValName Value

HKEY_LOCAL_MACH... 0
HKEY_LOCAL_MACH... 1 Expression =KickOff()
HKEY_LOCAL_MACH... 1 Library |ACCDIR\MeusAddIns\MnuAdn.mda

3- Salve e feche o Access (obrigatório para prosseguir).

PASSO 4: Instalar o suplemento

1- Abra o Access novamente e abra um banco de dados qualquer
2- Ferramentas - Suplementos - Gerenciador de suplementos
3- Clique em Adicionar, selecione MnuAdn.mda na pasta MeusAddIns e Abrir.
4- Feche o Gerenciador de suplementos
5- Para executar o nosso suplemento vá em Ferramentas - Suplementos e clique
em Today's Date

Adaptado do artigo da Microsoft:

Creating and Registering a Simple Access Menu Add-In
John Clarkson
Microsoft Corporation January 1999

  « Voltar

 

Assine AtivoAccess
  Tenha acesso completo ao site.
     CD + 1 ano de acesso = R$ 74,70
     12 meses de acesso = R$ 44,00
     CD Ativo Access = R$ 36,00

 

   Copyright © Ativo Access 2003 - 2014- Todos os direitos reservados   Política de Privacidade | Fale conosco