Excel planilha vba access salvar dados atraves formulario

Tempo de leitura: 2 minutos

SabereExcel – o site de quem precisa Aprender Macros Microsoft Excel VBA.

Esses procedimentos do Aplicativo Microsoft Excel VBA(Visual Basic Application), por meio de objetos (Userform eTextBox), poderemos fazer uma conexão com o Banco de Dados do Access e Salvar determinados dados. Nesta Tabela do Banco de Access contém cinco(5) Campos, porém fiz três Objetos Textbox ligando a somente Três campos do Banco de Dados Access. Deixei os campos para que voce possa treinar e ver como fazer esse tipo de conexão com banco de dados Access. Baixe o Arquivo no final da página e bons estudos.! Fique com Deus, Expedito Marcondes

Não esqueça de adicionar a referência do VBAProject –
Microsoft DAO 3.6 Object Library (clique na imagem abaixo para localizar a caixa de diálogo)

Na tabela do Access ‘Cliente’ contém os Campos:

– 1 campo – Nome_Cliente …….: -Existe uma TextoBox – Nome_cliente ( Form_VBA)
– 1 campo – Cidade ………………: -Existe uma TextoBox – txtCIDADE (Form_VBA)
– 1 campo – Salario ……………..: -Existe uma TextoBox – txtSALARIO (Form_VBA)
(clique na imagem para ampliar e visualizar os objetos textobxes)

T R E I N A M E N T O P R O P O S T O —
você fazer mais duas textbox referente aos dois campos existentes na tabela access “Cliente”.
sugiro que siga os prefixos das textox como acima. txtDATADENASCIMENTO, txtCODIGOPOSTAL

– 1 campo – DataNascimento…: -Crie uma TextBox no Form(VBA) para esse campo e adicione no código(Procedimento)
– 1 campo – CodigoPostal…….: -Crie uma TextBox no Form(VBA) para esse campo e adicione no código(Procedimento)

Observe que o Banco de Dados do Access e o Arquivo Excel devem estar no mesmo diretório veja o caminho do Path:
– ActiveWorkbook.Path & “\access2000.mdb – ( Livro Ativo)

Private Sub cmb_Ok_Click()
‘Selecione a referencia do vba Microsoft DAO 3.6 Object Library dans ferramentas Referencia
Dim bd As Database
Dim dt As Recordset

Set bd = OpenDatabase(ActiveWorkbook.Path & “\access2000.mdb”)
Set rs = bd.OpenRecordset(“cliente”)

If Me.nome_cliente = “” Then
MsgBox “Insira um nome!”
Me.nome_cliente.SetFocus
Exit Sub
End If

‘ os campos na tabela já estão criados, DataNascimento e CodigoPostal
‘ falta somente os textboxes rerentes a eles e adicionar abaixo no código (rs.DastaNscimento e rs.CodigoPostal)

rs.AddNew ‘adicione os ítens a ser criados aqui!!!!!!!
rs!nome_cliente = Me.nome_cliente
rs!Cidade = Me.txtCidade
rs!Salario = CDbl(Me.txtSalario)
rs.Update
rs.Close
bd.Close

MsgBox (“Dados inseridos no Banco de Dados Access com Sucesso!”), vbInformation, “Saberexcel – site das macros”
Me.nome_cliente = Null
Me.txtCidade = Null
Me.txtSalario = Null
Me.nome_cliente.SetFocus

End Sub

Private Sub Sair_Click()
Unload Me
End Sub


Aprenda tudo sobre planilhas do Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Saberexcel
Excel vba treinamentos

 Baixe o exemplo de planiha contendo os procedimentos acima.
icon  Excel_planilha_vba_access_salvar_dados_atraves_formulario

Deixe uma resposta

O seu endereço de e-mail não será publicado. Campos obrigatórios são marcados com *

This site uses Akismet to reduce spam. Learn how your comment data is processed.