Aprender a programar no Microsoft Office Access pode dar-lhe a vantagem de explorar plenamente os benefícios do Access. Visual Basic for Applications (VBA) é uma linguagem de programação de computador utilizado para automatizar tarefas como criar, editar e atualizar tabelas . Você pode criar interfaces de usuário ( UI ) e funções do programa para dar ao usuário uma forma amigável para manipular informações de banco de dados . Usando programação no Access economiza tempo ao automatizar os processos de rotina. Instruções
1
Inicie Access, clique em "Banco de Dados em Branco " e clique no botão "Criar" para criar um novo banco de dados. Clique na aba " Banco de Dados Tools" e clique em " Visual Basic " para abrir a janela do Microsoft Visual Basic. Clique no menu "Inserir" e clique em " Módulo " para inserir um novo módulo de código
2
Digite o seguinte para criar um novo procedimento armazenado: .
Private Sub ProgramInAccess ()
Pressione " Enter".
3
Digite o seguinte para criar as suas variáveis :
Dim strSQL as String Dim
dataString Como corda
Dim myRst Como Recordset
Dim myDbs As Database
Dim rowCnt As Integer
Definir myDbs = CurrentDb
4
Digite o seguinte para criar uma nova tabela no banco de dados :
strSQL = " CREATE TABLE tableWithData (TEXT Cliente (25) , TEXT do produto ( 25) ); "
DoCmd.SetWarnings Falso
DoCmd.RunSQL ( strSQL )
5
Digite o seguinte para adicionar uma nova linha de dados usando o " DoCmd " objeto :
sqlstr = " INSERT INTO tableWithData ( [ Cliente ], [ do produto] ) "
sqlstr = sqlstr &" VALUES (' João ', ' desktop ') ; "
DoCmd.SetWarnings Falso
DoCmd.RunSQL ( sqlstr )
6
Digite o seguinte para adicionar uma segunda linha de dados para a tabela usando um objeto de conjunto de registros:
Definir myRst = myDbs.OpenRecordset ( " tableWithData " )
myRst.AddNew
myRst.Fields (" Cliente " ) Valor = . " Susan "
myRst.Fields (" Produto " ) . Value =" Laptop "
myRst.Update
myRst.Close
7
Digite a consulta a seguir a nova tabela :
strSQL =" SELECT * tableWithData . dE tableWithData ; "
8
Digite o seguinte para abrir a consulta usando um objeto Recordset e percorrer os conteúdos da tabela :
Definir myRst = myDbs.OpenRecordset ( strSQL )
myRst.MoveFirst
Para rowCnt = 0 To myRst.RecordCount
dataString = "Cliente : " . & myRst.Fields (0) Value & "
