Saber como programar no Microsoft Office Access 2007 você pode economizar tempo quando você precisa para executar tarefas de rotina, como a criação de tabelas e adicionar dados manualmente. Access é um sistema de gerenciamento de banco de dados relacional , muitas vezes usado para bancos de dados locais menores. Ele fornece as ferramentas para escrever Visual Basic for Applications (VBA ) para automatizar processos manuais . VBA é uma linguagem de programação de computadores oferecidos pela Microsoft. Em poucos passos, você pode escrever código VBA para criar uma tabela , adicionar dados a ele e exibir seu conteúdo através de um controle de caixa de lista. Instruções
1
Abra o Microsoft Office Access 2007 e , em seguida, selecione " Banco de Dados em Branco. " Clique em " Criar".
2
Clique na aba " Criar " e selecione " Form Design" para criar um novo formulário. Selecione o controle de "Button" sob o painel " Controles " . Clique no formulário e criar o novo botão enquanto mantém o botão esquerdo do mouse. Adicione um controle de " caixa de lista " para a forma da mesma maneira que você adicionou o botão.
3
direito do mouse no controle de caixa de listagem e selecione " Propriedades". Na " Folha de Propriedades ", clique na guia "Dados " e selecione a caixa drop -down em " Row Source Type " e selecione " Lista de Valores ".
4
botão direito do mouse no novo botão e selecione " Propriedades". Na " Folha de Propriedades ", clique na aba " Evento " e selecione a caixa drop -down ao lado de " On Click " e selecione " [Procedimento de evento]. " Clique nas reticências (... ); . Uma nova janela Microsoft Visual Basic será aberta onde você vai escrever o seu código VBA
5
Copie e cole o seguinte código dentro do seu " Private Sub Command1_Click () " sub-rotina para criar uma tabela, adicionar dois registros de dados, percorrer os registros e exibir os resultados em um controle de caixa de listagem em sua nova forma .
Dim DBase as Database
Dim recordSt Como Recordset
Dim X As Integer Dim
stringSQL As String Dim
strgVar As String
Definir DBase = CurrentDb
stringSQL = "CREATE TABELA NovaTabela (nome TEXT ( 25) , sobrenome TEXT ( 25) ); "
DoCmd.RunSQL ( stringSQL )
stringSQL =" INSERT INTO NovaTabela ( [nome ], [ Sobrenome] ) "
stringSQL = stringSQL & " VALUES ( 'João' , 'Smith' ) ; "
DoCmd.SetWarnings Falso
DoCmd.RunSQL ( stringSQL )
stringSQL = " INSERT INTO NovaTabela ( [ nome] , [Sobrenome ]) "
stringSQL = stringSQL & " VALUES (' Jaime ', ' Avelar ') ;"
DoCmd.SetWarnings Falso
DoCmd.RunSQL ( stringSQL )
Definir recordSt = DBase.OpenRecordset ( " NovaTabela " )
recordSt.MoveFirst
Para X = 0 To recordSt.RecordCount - "( . Nome" ) Valor 1
strgVar = Trim ( . recordSt.Fields ( "Sobrenome" ) Value) & " recordSt.Fields () & Trim "
List0 . AddItem strgVar
recordSt.MoveNext
Próxima X
