Visual Basic for Applications (VBA ) é uma linguagem de programação usada em aplicações standalone , e também para estender a funcionalidade de programas do Microsoft Office , incluindo o programa de criação de banco de dados, Access. Algumas tarefas no Access se prestam naturalmente a automação com código VBA , como o cálculo de valores para controles adicionados pelo usuário em relatórios. Por outro lado , a consulta vista o projeto de Access não prontamente expor oportunidades de melhoria com VBA. No entanto , um exemplo aplicado de uma característica VBA especial vai mostrar como VBA pode ajudá-lo a trabalhar com vista de design da consulta . Instruções
1

Open Access e criar uma pequena mesa de endereços de email . Use a tabela a seguir , se você não tem um já existente. Digite a primeira linha os seguintes dados como o título de única coluna da tabela.

[email protected] @ Hollywood.comHarryBelafonte @ Caribbean.com
2

Salve a tabela por pressionando "Control- S, " e digite " EmailAddresses " para o nome da tabela. Salve o próprio banco de dados com a tecla " Alt- F ", em seguida, selecionando " Salvar Banco de Dados como. " Tipo " VBAFromAccessQuery " para o nome do banco de dados.
3

Comece criando um função personalizada para uso em uma consulta por primeira habilitação macros em seu banco de dados . Pressione " Alt- F" para expor a "Opções" item de menu, em seguida, clique nesse item.
4

Imprensa o item " Central de Confiabilidade " na caixa de diálogo " Opções de acesso " , em seguida, clique no botão "Configurações da Central de Confiabilidade " . Pressione o item " Configurações de Macro" na caixa de diálogo " Trust Center " , em seguida, clique na opção que diz " Activar todas as macros . " ( Não se esqueça de voltar a esta caixa de diálogo para desativar macros uma vez que você terminou a etapas neste artigo .)

Pressione " OK" em todas as caixas de diálogo abertas para retornar ao Access.
5

Pressione a barra de ferramentas item "Banco de Dados Tools" e clique em " , Visual Basic Insert ", seguido por " Módulo "no IDE " para entrar
6

Pressione o Visual Basic ambiente de desenvolvimento integrado (IDE), que é onde você criar funções personalizadas . " barra de ferramentas, para criar um novo espaço para inserir o código do programa dentro cole o seguinte código do programa em qualquer lugar em que o novo espaço :

getdomainname Função Pública ( emailAddress ) Dim mm = Len ( emailAddress ) - InStr ( emailAddress " " Function) getdomainname = Right ( emailAddress , m) Fim
7

Pressione" @ Control + S " para salvar o programa , eo nome do módulo" CustomFunctions " quando solicitado pelo Access. Retornar para acesso por um ou outro " Alt + F11 " press ou clicando no pequeno ícone de acesso na parte esquerda da barra de ferramentas do IDE.
8

Crie uma nova consulta para a tabela de endereço de e-mail clicando em primeiro lugar o o nome de tabela (" EmailAddresses ") na janela de navegação à esquerda da janela principal do Access . Em seguida, pressione "Create" , seguido de " design de consulta " na barra de ferramentas de Acesso. Se você estiver usando Access 2003, criar a consulta pressionando "Objetos ", depois " Consulta ", depois " New ".
9

Clique duas vezes no " EmailAddresses " , item na caixa de diálogo " Mostrar tabela " para criar uma pequena janela mostrando todos os campos da tabela de endereços de e-mail. . Pressione o botão " Fechar " na caixa de diálogo
10

clique com o botão direito do mouse sobre a linha " de campo: " em qualquer das colunas da grade da consulta. Selecione o item "Build" para exibir a caixa de diálogo " Expression Builder" , que permite criar consultas que usam fórmulas.
11

Clique duas vezes no " Funções " item no " elementos de expressão " painel para expandir esse nó , então um único clique no nome do seu banco de dados ( " VBAFromAccessQuery " ) para expor a função que você criou para essa base de dados .
12

Observe que o" Expression Valores " painel exibe a" função getdomainname " você colado no IDE Visual Basic antes. Clique duas vezes nesse item, em seguida, digite " [email ]" no lugar do texto " << emailAddress >>" no painel superior da caixa de diálogo .
13

Pressione " OK " para fechar " Expression Builder ", clique com o botão direito na guia da consulta e selecione " Folha de Dados " para executar a consulta . (Ou, clique em " Design" e ​​escolha " Run" na barra de ferramentas . )

Observe que os resultados da consulta mostrar apenas os nomes de domínio dos endereços de e-mail , o que é um resultado de sua aplicação com sucesso o código VBA para consulta de exibição de design da Access.