Macros para a aplicação de banco de dados Access são programas que automatizam tarefas como encontrar registros ou fechar janelas. Usuários de acesso podem desenvolver esses programas usando o Visual Basic for Applications, ou VBA, ambiente de desenvolvimento. Um passo fundamental para escrever macros para acesso é especificar a finalidade que você quer realizar, como a exclusão de registros que satisfaçam determinados critérios. Criar macros do Access permite que você execute tarefas de gerenciamento de dados de sua equipe de trabalho mais rapidamente e com menos erros do que com os métodos manuais . Instruções
1
Open Access e criar um novo banco de dados com a tecla " Ctrl" "N. " + Clique em " Banco de Dados em Branco ", em seguida, pressione "Alt" + " F11 " para entrar no ambiente de desenvolvimento integrado Visual Basic for Applications , ou IDE. Aqui você vai criar macros que demonstram as operações de banco de dados comum de criar uma tabela e inserir e buscar dados de uma tabela.
2
Clique comando "Module" do menu Inserir para criar uma nova janela para introduzir código de sua macro. Cole o seguinte sub-rotina na janela. Esta sub-rotina cria uma definição de consulta com o " CreateQueryDef " chamada de função. A consulta " criar a tabela ", o código define usa a mesma sintaxe SQL disponível na grade de design da consulta do Access. Os " dbase.QueryDefs (1). Executar" Declaração executa a consulta de criação de tabela .
Public Sub CreateTable ()
Dim qdef Como DAO.QueryDef
Dim dbase como DAO.Database
Dim s As String
Definir dbase = CurrentDb
s = " criar Kidsbooks tabela (texto bookname (50) , autor do texto (50) ) "
Definir qdef = dbase.CreateQueryDef ( " qCreateTable " , s)
dbase.QueryDefs (1). Executar
End Sub
3
Clique em um comunicado na sub-rotina , em seguida, pressione "F5" para executar " CreateTable . " Pressione " Alt " + " F11 " para retornar à interface do usuário do Access padrão.
4
Feche e reabra o painel de navegação , clicando ícones de seta da sua barra de título . O painel vai exibir a tabela Kidsbooks sua sub-rotina criado.
5
Pressione " Alt " + " F11 " para voltar à sua rotina no IDE. Cole o seguinte nova sub-rotina sob a sub-rotina CreateTable . O sub addTableRow insere uma linha de dados na tabela o seu programa CreateTable feita. Este novo programa funciona através da abertura de um objeto RecordSet e chamar o método AddNew do objeto.
Public Sub addTableRow ()
Dim dbase Como DAO.Database
Dim rst Como DAO.Recordset
Definir dbase = CurrentDb
Set rst = dbase.OpenRecordset (" Kidsbooks ")
rst.AddNew
rst ! bookname = " o Mágico de Oz " Author =
rst ! " Frank Baum "
rst.Update
End Sub
6
Execute o novo programa como fez o anterior. Retornar para Access, em seguida, feche a tabela Kidsbooks pelo botão direito do mouse na sua guia e clicando em " Fechar". Clique duas vezes em " Kidsbooks " no painel de navegação para reabrir a tabela e ver a nova entrada do catálogo de seu programa acrescentou.
7
Cole , no IDE, o seguinte novo programa abaixo as duas anteriores. Este programa irá mostrar todos os dados contidos na tabela de Kidsbooks . Este programa abre um objeto RecordSet , assim como o programa anterior. Desta vez, porém , a função MoveNext é chamado. Esta função move um índice interno através de cada uma das linhas da tabela Kidsbooks .
Public Sub showdata ()
Dim dbase Como DAO.Database
Dim rst Como DAO . Recordset
Definir dbase = CurrentDb
Set rst = dbase.OpenRecordset (" Kidsbooks ")
Dim s As String
Do While Not rst.EOF
s = " Título do livro :" & rst [ bookname ] & " Autor: ". ! & rst [Autor ]
MsgBox ( s)
rst.MoveNext !
loop
rst.Close
dbase.Close
End Sub
8
Execute o programa como você executou o outros dois . O programa irá exibir uma caixa de mensagem mostrando o " Mágico de Oz" de entrada.
