Cadastro usando VBA no Access.
Atendendo
alguns pedidos, resolvi criar este mini-tutorial, para ajudar a você criar seu
próprio botão de cadastro no Access, sem depender do assistente.
Para isso
vamos partir do principio que temos uma tabela em nosso banco, com 4 campos com
o nome “tabProdutos”.
Campos:
-Código do
tipo “Numeração Automática”
-Produto do
tipo “Texto”
-Valor do
tipo “Unidade Monetária”
-Quantidade
do tipo “Número”
Exemplo:
Inicie um novo formulário em modo Designer.
Usando a guia com as ferramentas crie a seguinte interface.
Altere os nomes de cada componente, na caixa de
propriedades, conforme a imagem.
Clique sobre o botão Cadastrar e na caixa de propriedades
clique sobre a guia Eventos e clique sobre o evento “Ao Clicar” e escolha a
opção “Construtor de Código” como na imagem:
Neste ponto você já deve estar com o ambiente de
desenvolvimento do VBA, digite o seguinte código como na imagem.
Agora entendendo um pouco mais dos comandos:
Cria uma variável para o banco de dados:
Dim Banco As Database
Cria uma variável
para armazena a estrutura da tabela:
Dim Tabela As Recordset
Seta o banco atual
para a variável Banco:
Set Banco =
CurrentDb
Seta a tabela
desejada do banco atual a variável Tabela:
Set Tabela =
Banco.OpenRecordset("tabProdutos", dbOpenTable)
Comando usado para
adicionar um novo registro a tabela:
Tabela.AddNew
Comandos usados para
adicionar o valor das caixas de texto a cada campo da tabela:
Tabela("Produto").Value
= txtProduto.Value
Tabela("Valor").Value = txtValor.Value
Tabela("Quantidade").Value = txtQuantidade.Value
Comando usado para
atualizar a tabela:
Tabela.Update
Mensagem de
confirmação:
MsgBox
"Cadastrado com sucesso."
Comandos para limpar
o valor de cada caixa de texto:
txtProduto.Value =
Empty
txtValor.Value =
Empty
txtQuantidade.Value = Empty
Agora é só colocar o formulário em modo de apresentação e
usar o seu novo botão para cadastro.
Obrigado pela atenção! Espero ter ajudado ;)
