NUNCA MAIS PASSE RAIVA POR NÃO CONSEGUIR RESOLVER UM PROBLEMA COM O EXCEL - GARANTIDO!

UNIVERSIDADE DO VBA - Domine o VBA no Excel Criando Sistemas Completos - Passo a Passo - CLIQUE AQUI

Você está em: PrincipalArtigosCriando Aplicativos VBA com Excel : Sistemavaletransporte008
Quer receber novidades e e-books gratuitos?

Sistema de Controle Da Distribuição de Vale Transporte - Banco de Dados e Codificação -Parte 8

 

Objetivo:

 

Continuar o desenvolvimento dosistema, criaremos  neste tutorial  o banco de dados para armazenar registros  e codificação do formulário Dados_empresa, tudode forma simples e direta.

 

Pré-requisito:

 

Para você poder acompanhar odesenvolvimento deste tutorial, será necessário ter conhecimento no mínimo do “CursoBásico de Excel e os Tutoriais Utilizando Editor do Visual Basic do Excel Parte1 e Parte2” Parte 1,    Parte 2, Parte3, Parte 4, Parte 5, Parte 6 e Parte 7  destetutorial.

 

Iniciaremos o banco de dadosutilizando a quarta planilha do excel, modifique o nome Plan4 para a “VALE”, apósinsira os campos abaixo na primeira linha, conforme é  mostrado na tela abaixo:

 

COD, EMPRESA, FUNCIONARIO, QTDVALES, MÊS e DIA.

 

Criando Aplicativos VBA no Excel - Júlio Battisti

Tela 001

 

Vamos fazer alguns ajustes nos campos, coloque  cor cinza, negrito e centralizado.

 

Criando Aplicativos VBA no Excel - Júlio Battisti

Tela 002

 

Agora você deve fazer as seguintes formatações noscampos com      forme descrição abaixo.

 

COD, QTDVALES  e DIA colocar na categoria “número”.

 

Criando Aplicativos VBA no Excel - Júlio Battisti

Tela 003

 

EMPRESA, FUNCIONARIO e MES  inserir na categoria “texto”.

 

Criando Aplicativos VBA no Excel - Júlio Battisti

Tela 004

 

Concluído o desenvolvimento dobanco de dados, iniciaremos a codificar a interface, insira o código abaixo noformulário dentro do evento initialize.

 

Label_n = Application.WorksheetFunction.CountA(Plan4.Columns(1))– 1

 

Criando Aplicativos VBA no Excel - Júlio Battisti

Tela 005

 

Agora vamos  inseriros códigos  nos botões, no evento clic.

 

BotãoCadastrar:

 

Dim bd As Database

Dim Rs As Recordset

 

Set bd =OpenDatabase(ThisWorkbook.Path & "\" & ThisWorkbook.Name, False,False, "excel 8.0")

Set Rs =bd.OpenRecordset("VALE$", dbOpenDynaset)

 

If Me.text_cod >Me.Label_n Then

 

            If Me.Combo_empresa ="" Then

               Me.Combo_empresa = "-"

            End If

            If Me.Combo_funcionario ="" Then

                Me.Combo_funcionario.Text ="-"

            End If

            If Me.vales = "" Then

                Me.vales.Text = "-"

            End If

            If Me.mes = "" Then

                Me.mes.Text = "-"

            End If

            If Me.dia = "" Then

                Me.dia.Text = "-"

            End If

 

        Dim CADASTRO(1 To 7)

            CADASTRO(1) = UCase(Me.text_cod)

           CADASTRO(2) = UCase(Me.Combo_empresa)

           CADASTRO(3) = UCase(Me.Combo_funcionario)

           CADASTRO(4) = UCase(Me.vales)

           CADASTRO(5) = UCase(Me.mes)

           CADASTRO(6) = UCase(Me.dia)

 

           CADASTRO(7) = UCase(Me.text_cod.Value)

 

    Dim VT As Object

    Dim L, i

    Set VT = Plan4.Cells(1,1).CurrentRegion

    L = VT.Rows.Count + 1

                If Len(Me.text_cod) = 0 Then

                MsgBox "VOCÊ NÃODIGITOU NENHUM NOME PARA INCLUSÃO", vbCritical, "CADASTRO DECLIENTES"

                Else

 

                                 For i = 1 To 7

                                    Plan4.Cells(L, i).Value = Trim(CADASTRO(i))

                                     Next i

 

                Me.text_cod.Text = ""

                Me.Combo_empresa.Text =""

               Me.Combo_funcionario.Text = ""

                Me.vales.Text = ""

                Me.mes.Text = ""

                Me.dia.Text =""

 

            MsgBox"CADASTRADO", vbInformation, "EFETUADO COM SUCESSO"

 

                                   ThisWorkbook.Save

                                End If

 

       Exit Sub

 Else

MsgBox "No campo COD digite um número maior do que háno campo Total Registro para casdastrar."

 

End If

 


você conhece a universidade do vba?

Universidade do VBA - Curso Completo, com Certificado e com Atualizações Semanais

Domine, sem Dificuldades, a Programação VBA no Excel, Através da Criação de Sistemas Profissionais Completos - Com Exemplos Práticos e Explicações Detalhadas - Passo a Passo - Tela a Tela - Comando a Comando!

Aplica-se ao Excel 2019, 2016, 2013 e 2010!

Tudo Para Você Aprender, na Prática, VBA no Excel!

Para todos os detalhes, acesse:

https://juliobattisti.com.br/curso-vba-excel/


Criando Aplicativos VBA no Excel - Júlio Battisti

Tela 006

 

BotãoPesquisar:

 

Dim bd As Database

Dim Rs As Recordset

Dim LIN

 

Set bd =OpenDatabase(ThisWorkbook.Path & "\" & ThisWorkbook.Name,False, False, "excel 8.0")

Set Rs =bd.OpenRecordset("VALE$", dbOpenDynaset)

 

LIN = 2

 

Do Until Rs.EOF

IfRs("FUNCIONARIO") = Me.Combo_funcionario.Text Then

Me.text_cod = Rs.Fields("COD")

Me.Combo_empresa = Rs.Fields("EMPRESA")

Me.vales =Rs.Fields("QTDVALES")

Me.mes =Rs.Fields("MÊS")

Me.dia = Rs.Fields("DIA")

 

Me.TextBox_codf.Text = LIN

 

End If

LIN = LIN + 1

Rs.MoveNext

Loop

 

Criando Aplicativos VBA no Excel - Júlio Battisti

Tela 007

 

Botão Editar:

 

Dim bd As Database

Dim Rs As Recordset

 

Set bd =OpenDatabase(ThisWorkbook.Path & "\" & ThisWorkbook.Name,False, False, "excel 8.0")

Set Rs =bd.OpenRecordset("VALE$", dbOpenDynaset)

 

Rs.Edit

Rs("QTDVALES") =Me.vales

Rs("MÊS") = Me.mes

Rs("DIA") = Me.dia

 

Rs.Update

 

MsgBox"DADOS ALTERADOS COM SUCESSO", vbInformation, "BANCO DEDADOS"

ThisWorkbook.Save

 

Criando Aplicativos VBA no Excel - Júlio Battisti

Tela 008

 

Botão Apagar:

 

Dim VT

VT =MsgBox("DESEJA REALMENTE EXCLUIR O CLIENTE?", vbYesNo + vbQuestion,"BANCO DE DADOS")

If VT = vbYes Then

        Plan4.Cells(Me.TextBox_codf,1).EntireRow.Delete

 

                Me.text_cod.Text =""

               Me.Combo_empresa.Text = ""

               Me.Combo_funcionario.Text = ""

                Me.vales.Text = ""

                Me.mes.Text = ""

                Me.dia.Text =""

 

        MsgBox"REGISTROS EXCLUÍDO COM SUCESSO."

   ThisWorkbook.Save

End If

 

Criando Aplicativos VBA no Excel - Júlio Battisti

Tela 009

 

Botão Voltar:

 

Me.hide

 

Criando Aplicativos VBA no Excel - Júlio Battisti

Tela 010

 

Conclusão:

 

Criamos o banco de dados, fazendo as formatações noscampos, codificamos a interface “Cad_vale”, tudo de forma simples e objetiva  mostrado através de telas. Na próxima partedo tutorial daremos continuidade no desenlvovimento do sistema. Bons estudos eaté a próxima parte.

 


livros e cursos sugeridos sobre excel e vba:
Quer receber novidades e e-books gratuitos?

 
 

Contato: Telefone: (51) 3717-3796 | E-mail: webmaster@juliobattisti.com.br | Whatsapp: (51) 99627-3434

Júlio Battisti Livros e Cursos Ltda | CNPJ: 08.916.484/0001-25 | Rua Vereador Ivo Cláudio Weigel, 537 - Universitário, Santa Cruz do Sul/RS, CEP: 96816-208

Todos os direitos reservados, Júlio Battisti 2001-2025 ®

LIVRO: MACROS E PROGRAMAÇÃO VBA NO EXCEL 2016 - CURSO COMPLETO E PRÁTICO

DOMINE A PROGRAMAÇÃO VBA NO EXCEL - 878 PÁGINAS - CLIQUE AQUI