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 : Sistemamototaxi004
Quer receber novidades e e-books gratuitos?

Sistema para Moto-Táxi - Banco de Dados - Parte 4

 

Objetivo:

 

O objetivo deste tutorial é  continuar o desenvolvimento do sistema mototáxi, neste tutorial iremos  criar obanco de dados para armazenar  registros,começaremos utilizando a primeira palnilha do excel, também iremos codificar oformulário cliente., tudo de 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 2e  Parte 3 deste tutorial.

 

Começaremos pelo desenvolvimento do banco de dados,utilizando a primeira planilha do excel , devemos modificar o seu nome de plan1para “CLIENTE”. Feito isso vamos inserir os seguintes campos abaixo na mesma daseguinte maneira:

 

COD, NOME, ENDERECO, BAIRRO, CIDADE, CEP, TELEFONE, PR

 

Criando Aplicativos VBA no Excel - Júlio Battisti

Tela 001

 

Vamos colocar  umacor cinza  e negrito nos campos.

 

Criando Aplicativos VBA no Excel - Júlio Battisti

Tela 002

 

Agora teremos que fazer a formatção dos campos  da seguinte maneira:

 

COD  colocarna categoria “número”.

 

Criando Aplicativos VBA no Excel - Júlio Battisti

Tela 003

 

A seguir irei apenas informar quais são asformatações que os campos deverão ficar.

 

NOME, ENDERECO, BAIRRO, CIDADEe PR  inserir na categoria “texto”.

 

TELEFONE para  categoria “ Especial,Telefone”.

 

CEP para categoria “Especial, Cep”.

 

Terminado o desenvolvimento do  banco de dados, vamos começar a codificar oformulário cliente, insira  o códigoabaixo no formulário, dentro do  eventoinitialize.

 

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

 

Criando Aplicativos VBA no Excel - Júlio Battisti

Tela 004

 

Agora começaremos a codificar os botões, o código abaixodeverá ser inserido  no evento clic dosmesmos.

 

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("CLIENTE$", dbOpenDynaset)

 

If Me.cod > Me.Label_nThen

 

            If Me.nome = "" Then

                Me.nome.Text = "-"

            End If

            If Me.endereco = "" Then

               Me.endereco.Text = "-"

            End If

            If Me.bairro = "" Then

                Me.nome.Text = "-"

            End If

            If Me.cidade = "" Then

                Me.cidade.Text = "-"

            End If

            If Me.cep = "" Then

                Me.cep.Text = "-"

            End If

            If Me.telefone = "" Then

                Me.telefone.Text ="-"

            End If

            If Me.pr = "" Then

                Me.pr.Text = "-"

            End If

 

        Dim CADASTRO(1 To 9)

            CADASTRO(1) = UCase(Me.cod)

           CADASTRO(2) = UCase(Me.nome)

           CADASTRO(3) = UCase(Me.endereco)

           CADASTRO(4) = UCase(Me.bairro)

           CADASTRO(5) = UCase(Me.cidade)

           CADASTRO(6) = UCase(Me.cep)

           CADASTRO(7) = UCase(Me.telefone)

           CADASTRO(8) = UCase(Me.pr)

 

           CADASTRO(9) = UCase(Me.cod.Value)

 

    DimMOTOTAX As Object

    Dim L, i

    Set MOTOTAX = Plan1.Cells(1,1).CurrentRegion

    L = MOTOTAX.Rows.Count + 1

                If Len(Me.cod) = 0 Then

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

                Else

 

                                 For i = 1 To 9

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

                                     Next i

 

                Me.cod.Text = ""

                Me.nome.Text = ""

                Me.endereco.Text = ""

                Me.bairro.Text = ""

                Me.nome.Text = ""

                Me.cidade.Text = ""

                Me.cep.Text = ""

                Me.telefone.Text =""

               Me.pr.Text = ""

 

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

 

                                   ThisWorkbook.Save

                                End If

 

       Exit Sub

 Else

MsgBox "No campo CODIGO digite um número maior do quehá 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 005

 

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("CLIENTE$", dbOpenDynaset)

 

LIN = 2

 

Do Until Rs.EOF

If Rs("NOME") =Me.nome.Text Then

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

Me.nome = Rs.Fields("NOME")

Me.endereco = Rs.Fields("ENDERECO")

Me.bairro = Rs.Fields("BAIRRO")

Me.cidade = Rs.Fields("CIDADE")

Me.cep =Rs.Fields("CEP")

Me.telefone = Rs.Fields("TELEFONE")

Me.pr =Rs.Fields("PR")

Me.TextBox_codf.Text = LIN

 

End If

LIN = LIN + 1

Rs.MoveNext

Loop

 

Criando Aplicativos VBA no Excel - Júlio Battisti

Tela 006

 

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("CLIENTE$", dbOpenDynaset)

 

Rs.Edit

Rs("NOME") = Me.nome

Rs("ENDERECO") = Me.endereco

Rs("BAIRRO") = Me.bairro

Rs("CIDADE") = Me.cidade

Rs("CEP") = Me.cep

Rs("TELEFONE") = Me.telefone

Rs("PR") = Me.pr

Rs.Update

 

        MsgBox"DADOS DO CLIENTE  ALTERADOS COMSUCESSO", vbInformation, "BANCO DE DADOS"

   ThisWorkbook.Save

 

Criando Aplicativos VBA no Excel - Júlio Battisti

Tela 007

 

Botão Apagar:

 

Dim MOTOTAX

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

 If MOTOTAX = vbYes Then

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

 

                Me.nome.Text = ""

                Me.endereco.Text = ""

                Me.bairro.Text = ""

                Me.nome.Text = ""

               Me.cidade.Text = ""

                Me.cep.Text = ""

                Me.telefone.Text =""

               Me.pr.Text = ""

 

        MsgBox"REGISTROS EXCLUÍDO COM SUCESSO."

    ThisWorkbook.Save

End If

 

Criando Aplicativos VBA no Excel - Júlio Battisti

Tela 008

 

Botão Voltar:

 

Me.hide

 

Para que os códigos funcione, você  deve ativar a biblioteca  “Microsoft DAO”, com o editor do visual basicativado, clique em ferramentas, referências. Depois encontre e selecione amesma, abaixo a representação deste procedimento através da tela.

 

Criando Aplicativos VBA no Excel - Júlio Battisti

Tela 009

 

Conclusão:

 

Neste tutorial ensinei a desenvolver o  banco de dados para armazenar os registros dosclientes,  definindo as formataçõesnecessárias para cada campo, também codificamos o formulário “cliente”, ativamos a biblioteca microsoft dao,  tudo de forma simples e objetiva  mostrado através de telas. Na próxima partedo tutorial daremos continuidade no desenlvovimento do aplicativo. Bons estudose até 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-2021 ®

[LIVRO]: MACROS E PROGRAMAÇÃO VBA NO EXCEL 2010 - PASSO-A-PASSO

APRENDA COM JULIO BATTISTI - 1124 PÁGINAS: CLIQUE AQUI