Microsoft Access é o programa de banco de dados na suíte Microsoft Office. Desenvolvedores personalizar este conjunto por escrever programas em sua linguagem de programação , Visual Basic for Applications (VBA). Programação Acesso envolve o uso de VBA para criar e manipular objetos de banco de dados , incluindo relatórios , tabelas, consultas e formulários de entrada de dados. Por exemplo , o VBA pode preencher automaticamente o campo " sexo " de uma forma para a entrada de informações do assinante de revista, quando a pessoa utilizando o formulário entra nomes comuns no campo " Nome " . Programação acesso dá-lhe a capacidade de fazer as tarefas de entrada de dados e recuperação mais fácil para os usuários da sua equipe. Coisas que você precisa
Microsoft Access
Mostrar Mais instruções
um

acesso aberto e pressione " Alt- F11 " para entrar no ambiente de codificação (chamado de " IDE " para " ambiente de desenvolvimento integrado ") para Access.
2

Clique no botão " Insert " item " Module" do menu para criar uma nova janela para inserir o código .
3

Colar na janela de código o seguinte código do programa , o que cria uma tabela com VBA:

Sub makeATable ()

Dim db as Database , td Como TableDef , f Como campo

Set db = CurrentDb

Set tbl = dbs.CreateTableDef ( " Userinfo " )

Set fld = tbl.CreateField ( " Nome" , dbText )

tbl . Fields.Append f

dbs.TableDefs.Append tb

' dbs.TableDefs.Refresh

End Sub
4

Execute o programa clicar em qualquer declaração nele e pressionando " F5 ".
5

Pressione " Alt- F11 " para voltar à interface de acesso principal, em seguida, clique em " <<" botão do painel de navegação, em seguida, seu botão ">>" . Você verá uma nova tabela criada pelo seu programa. Leia mais informações sobre a criação de tabelas com VBA na página MSDN "Criar e excluir tabelas " página .
6

Digite algumas primeiros nomes da amostra na nova tabela para fornecer dados para a consulta VBA você vai criar próximo
7

Pressione " Alt- F11 " para voltar ao ambiente de codificação e cole essa nova sub- rotina abaixo o primeiro que escreveu: .

Public Sub makeQuery ()

Dim db As DAO.Database

Dim qd Como DAO.QueryDef

Dim str As String

Set db = CurrentDb

On Error GoTo DontDelete

db.QueryDefs.Delete " QUSER "

DontDelete :

str = "SELECT * FROM Userinfo ; "

Set qd = DB.CreateQueryDef ( " QUSER " , str )

End Sub
8

Execute o novo sub- rotina como você fez o primeiro, em seguida, retornar para o Access e olhar para o novo consultar o seu código criado. É chamado de " QUSER ".
9

duplo clique em " QUSER " para executar a consulta . Access exibirá todos os nomes que você digitou na tabela " Userinfo " .
10

Criar um relatório clicando no item " Userinfo " no painel de navegação , em seguida, clicando em " Report" na barra de ferramentas . Você vai escrever um programa VBA que filtra o relatório para um valor específico que você inseriu na etapa 6.
11

botão direito do mouse guia do novo relatório e selecione " modo de design. " Clique na seta apontando para baixo no evento " No Load" da guia do relatório do "Evento" à direita da tela . Esta ação irá voltar para o VBA IDE.
12

Cole o seguinte código no IDE. Substitua o texto " " com qualquer valor particular inserido na etapa 6.

Private Sub Report_Load ()

Me.Filter = " nome = " " PARTICULAR "" "

Me.FilterOn = true

End Sub
13

Execute o relatório com a tecla" Alt- F11 "para retornar ao Access, clicar com o botão direito do relatório guia e selecionando" relatório View " . Access irá exibir o relatório , que irá mostrar apenas o registro que você digitou para o filtro na etapa 12 . Leia mais sobre o uso de VBA com relatórios da página Relatórios de acesso .