Descricao: |
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

Publicidade Compre com segurança, garantia e ótimos preços
 |