Home Excel - Downloads / Areas Restritas Excel VBA - Access x Excel

Excel VBA - Access x Excel

  • - Acesso Livre
  • Documentos

    Ordenar por : Nome | Data | Acessos [ Ascendente ]

    Excel planilha vba access salvar dados atraves formulario Excel planilha vba access salvar dados atraves formulario

    popular!
    Adicionado em: 31/05/2011
    Modificado em: 31/05/2011
    Tamanho: Vazio
    Downloads: 3730

    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
    Eletrônicos - Submarino.com.br

    PROMOÇÃO DIDÁTICOS SABEREXCEL



    Adquira já o Acesso Imediato
    à Area de Membros

    Compra Grantida --- Entrega Imediata

    Aprenda Excel VBA com Simplicidade de 
    códigos e Eficácia, Escrevendo Menos e
    Fazendo Mais.

    '-------------------------------------'
    Entrega Imediata:
    +  500 Video Aulas MS Excel VBA
    +  35.000 Planilhas Excel e VBA
    +  Coleção 25.000 Macros MS Excel VBA
    +  141 Planilhas Instruções Loops
    +  341 Planilhas WorksheetFunctions(VBA)
    +    04 Módulos Como Fazer Excel VBA
    +  Curso Completo MS Excel VBA
    +  Planilhas Inteligentes


    Pesquisa Google SaberExcel

    Publicidade Google

    <script type="text/javascript"><!--

    google_ad_client = "ca-pub-2317234650173689";

    /* retangulo 336 x 280 */

    google_ad_slot = "0315083363";

    google_ad_width = 336;

    google_ad_height = 280;

    //-->

    </script>

    <script type="text/javascript"

    src="http://pagead2.googlesyndication.com/pagead/show_ads.js">

    </script>

    Publicidade

    RSFirewallProtected


    Google Associados

    Depoimentos

    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