Saber como usar o Visual Basic no Access 2007 pode dar-lhe uma grande flexibilidade no desenvolvimento de aplicações de banco de dados . Access 2007 oferece a opção para aprimorar seu desenvolvimento , dando-lhe a capacidade de escrever código do Visual Basic para os formulários e controles que você criou. Visual Basic é uma linguagem de programação criada pela Microsoft e é fácil de usar. Você pode facilmente programar em Visual Basic Criar relatórios em um banco de dados ou executar tarefas manuais repetitivas . Instruções
1
Clique na aba "Criar" no Access e selecione " Form Design ". O programa irá criar uma nova forma . Selecione o controle de "Button" sob o painel " Controles " e mova o mouse sobre o novo formulário. Clique e criar o novo botão. Adicione um controle de " caixa de lista " para a forma da mesma maneira que você adicionou o botão.
2
clique com o botão direito na 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 ".
3
botão direito do mouse sobre o novo botão e selecione " Propriedades". Na " Folha de Propriedades ", clique na aba " Evento " e selecione a caixa suspensa em " On Click " e selecione " [Procedimento de evento]. " Clique no botão reticências ( ... ) e uma nova janela Microsoft Visual Basic abrirá
4
Digite o seguinte: .
Dim dbs As Database
Dim rst Como Recordset
Dim X As Integer Dim strSQL
As String Dim
LastFirst As String
para declarar variáveis que você vai usar .
5 Tipo
: .
set dbs = CurrentDb
para definir o banco de dados atual
Tipo
:
strSQL = " CREATE TABLE Table1 (nome TEXT ( 25) , sobrenome TEXT ( 25) ); ".
DoCmd.RunSQL ( strSQL )
para criar uma nova tabela no banco de dados com o nome" Tabela1 "
6 Tipo
:
strSQL = " INSERT INTO tabela 1 ( [nome ], [ Sobrenome] ) "
strSQL = strSQL & " VALUES (' John ', ' Smith ' ); ".
DoCmd.SetWarnings Falso
DoCmd.RunSQL ( strSQL )
para inserir a primeira linha de dados
7
Tipo :
strSQL = " INSERT INTO tabela 1 ( [nome ], [ Sobrenome] ) "
strSQL = strSQL & " VALUES (' Jaime ', ' Avelar ') ; "
< . p> DoCmd.SetWarnings Falso
DoCmd.RunSQL ( strSQL )
para inserir uma segunda linha de dados
8
Tipo:
definir rst = dbs.OpenRecordset ( " Tabela 1 " )
para definir o conjunto de registros
Tipo
: .
rst.MoveFirst
Para X = 0 para rst.RecordCount - 1
LastFirst = Trim ( . rst.Fields ( "sobrenome " ) Value) & "" & Trim ( rst.Fields (". Nome" ) Value)
List1.AddItem LastFirst
rst.MoveNext
Próxima X
para percorrer os registros que você acabou de criar e exibi-las na caixa de listagem no formulário.
9 Tipo
:
MsgBox " Você exibidos todos os registros na Tabela 1 caixa de listagem com sucesso!" , vbInformation
para exibir uma mensagem . Mudar janelas de volta para o Access 2007 e clique em " Ver " para executar o formulário. Clique no botão " Command0 " e você vai ver o controle de caixa de listagem exibindo os nomes.
