Home Excel - Dicas Microsoft Excel VBA Excel VBA - Access x Excel Excel planilha vba access salvar dados atraves formulario

Excel planilha vba access salvar dados atraves formulario

E-mail Imprimir PDF

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



 Baixe o exemplo de planiha contendo os procedimentos acima.
Excel planilha vba access salvar dados atraves formulario (137.04 KB)

Última atualização em Dom, 04 de Novembro de 2012 09:05  

Comentários  

 
# 21/01/2012 01:53
DESCULPE MAS NAO CONSEGUI FAZER ESSE CADASTRO VAI TUDO BEM ATE MANDAR SALVAR ELE PARECE QUE SALVA MAS O ACCESS FICA EM BRANCO
Responder | Responder com citação | Citação
 
 
# 22/02/2012 19:40
Prezado,
testei o arquivo esta funcionando corretamente, Ok.
não execute o arquivo (zipado), decompacte o arquivo primeiramente.
acredito que voce esta executando na visualização dentro da pasta zipada, descompate o arquivo. quando fizer o lançamento olhe no banco de dados ACCESS, pois estara lançando no Tabela Cliente.
Fique com Deus, Expedito Marcondes
Responder | Responder com citação | Citação
 
 
# 04/11/2012 09:03
Isto mesmo, eu também estava executando o arquivo de dentro do zip, ai ocorreu o que voce disse, dá um erro, porque nao encontra o arquivo do acess, tem que descompactar, esta funcionando muito bem, parabéns.
Joaquim Manoel Pereira- Lisboa - pt
Responder | Responder com citação | Citação
 
 
# MArcioBa 24/05/2013 17:18
Estou tendo dificuldades para importar os dados de um referido cliente em meu db, vou explicar, tenho uma consulta de clientes na qual tenho mais de 1000 clientes e nao quero ficar passando de um a um no botao proximo RG, então crie uma pesquisa ao qual eu ponho o nome do cliente e ao clicar no botao Buscar ele tem que procurar o cliente e importar os dados para meu formulario.
Poderiam me ajudar??
Dede já grato e no aguardo.
Responder | Responder com citação | Citação
 
 
# Expedito Marcondes x 05/06/2013 10:00
Prezado Marcio,
Seria melhor voce fazer um pequeno exemplo ou enviar seu projeto se nao for grande, para eu analisar fazer ou enviar um exemplo para voce continuar seu projeto. Ok..
Obrigado pelo seu contato -
Fique com Deus,
Expedito Marcondes.
Responder | Responder com citação | Citação
 
 
# Expedito Marcondes x 05/06/2013 09:30
Prezado Marcio,
Seria melhor voce fazer um pequeno exemplo ou enviar seu projeto se nao for grande, para eu analisar fazer ou enviar um exemplo para voce continuar seu projeto. Ok..
Obrigado pelo seu contato -
Fique com Deus,
Expedito Marcondes.
Responder | Responder com citação | Citação
 
 
# kleyton Rodrigues 09/06/2013 10:58

Agora o desafio é:
1º-fazer uma consulta parametrizada, Tipo pesquisar por Nome.
2º-fazer uma pesquisa parametrizada, Entre valores R$xxx,00 a R$yyy,00
Responder | Responder com citação | Citação
 

Adicionar comentário

"Jamais considere seus estudos como uma obrigação, mas como uma oportunidade invejável para aprender a conhecer a influência libertadora da beleza do reino do espírito, para seu próprio prazer pessoal e para proveito da comunidade." Albert Einstein


Código de segurança
Atualizar

Pesquisa Google SaberExcel

Publicidade Google

Publicidade

Rastreamento Correios

Digite o número do SEDEX conforme o exemplo:
Correios do Brasil

Assinatura SaberExcel

Google Associados

Depoimentos

Visitantes SaberExcel

Excel VBA Estudos®
mod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_counter
mod_vvisit_counterHoje3953
mod_vvisit_counterOntem4432
mod_vvisit_counterEsta Semana30476
mod_vvisit_counterSemana passada46212
mod_vvisit_counterEsse mês17682
mod_vvisit_counterMês passado153723
mod_vvisit_counterTodos10440511
Aprenda MS Excel VBA

Adicione Saberexcel Favoritos

 
 

Aprenda tudo sobre o Aplicativo Microsoft Excel VBA

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


   Sobre as WorksheetFunctions Funções de Planilhas que retornam valores do VBA