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
Objetivo:
O objetivo deste tutorial é continuar o desenvolvimento do sistema mototáxi, neste tutorial iremos criar obanco de dados para armazenar registros cadastros através da interface empresa,utilizaremos a segunda planilha do excel, também iremos codificar o formulárioempresa, 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 2, Parte 3 e Parte4 deste tutorial.
Utilizando a segunda planilha doexcel, modifque o nome plan2 para “EMPRESA”, depois vamos colocar os nomes doscampos relacionados abaixo na mesma, conforme é mostrado na tela a seguir.
COD, NOME, CNPJ, IE, ENDERECO, TELEFONE, EMAIL, CIDADE,ESTADO, CEP.
Tela 001
Vamos colocar umacor cinza, negrito e centralizado os campos.
Tela 002
Vamos formatar os campos da seguinte maneira,lembrando que esta formatção irei mostrar através de telas só a primeir, depois apenas irei dizer com quaisformatações deverão ficar os campos, issso porque são quase iguais.
COD, CNPJ e IE colocar na categoria “número”.
Tela 003
O restante dos campos devem serformatados da seguinte maneira:
NOME, ENDERECO, CIDADE e ESTADO inserir na categoria “texto”.
TELEFONE para categoria “ Especial,Telefone”.
CEP para categoria “Especial, Cep”.
EMAIL para categoria “Geral”.
Concluido o desenvolvimento do banco de dados com suas formatações,começaremos a codificar a interfaceempresa, insira o código abaixo noformulário, dentro do evento initialize.
Label_n =Application.WorksheetFunction.CountA(Plan2.Columns(1)) – 1
Tela 004
Começaremos a inserir os códigos nos botões, no evento clic dos mesmos.
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("EMPRESA$", dbOpenDynaset)
If Me.TextBox_cod >Me.Label_n Then
If Me.TextBox_nome = ""Then
Me.TextBox_nome.Text ="-"
End If
If Me.TextBox_cnpj = ""Then
Me.TextBox_cnpj.Text ="-"
End If
If Me.TextBox_ie = ""Then
Me.TextBox_ie.Text ="-"
End If
If Me.TextBox_endereco ="" Then
Me.TextBox_endereco.Text ="-"
End If
If Me.TextBox_telefone ="" Then
Me.TextBox_telefone.Text ="-"
End If
If Me.TextBox_email = ""Then
Me.TextBox_email.Text ="-"
End If
If Me.TextBox_cidade = ""Then
Me.TextBox_cidade.Text ="-"
End If
If Me.TextBox_estado = ""Then
Me.TextBox_estado.Text ="-"
End If
If Me.TextBox_cep = ""Then
Me.TextBox_cep.Text ="-"
End If
Dim CADASTRO(1 To 11)
CADASTRO(1) =UCase(Me.TextBox_cod)
CADASTRO(2) = UCase(Me.TextBox_nome)
CADASTRO(3) = UCase(Me.TextBox_cnpj)
CADASTRO(4)= UCase(Me.TextBox_ie)
CADASTRO(5) = UCase(Me.TextBox_endereco)
CADASTRO(6) = UCase(Me.TextBox_telefone)
CADASTRO(7) = UCase(Me.TextBox_email)
CADASTRO(8) = UCase(Me.TextBox_cidade)
CADASTRO(9)= UCase(Me.TextBox_estado)
CADASTRO(10) = UCase(Me.TextBox_cep)
CADASTRO(11) = UCase(Me.TextBox_cod.Value)
Dim MOTOTAX As Object
Dim L, i
Set MOTOTAX = Plan2.Cells(1, 1).CurrentRegion
L = MOTOTAX.Rows.Count + 1
If Len(Me.TextBox_cod) = 0 Then
MsgBox "VOCÊ NÃODIGITOU NENHUM NOME PARA INCLUSÃO", vbCritical, "CADASTRO DECLIENTES"
Else
For i = 1 To 11
Plan2.Cells(L, i).Value = Trim(CADASTRO(i))
Next i
Me.TextBox_cod.Text =""
Me.TextBox_nome.Text =""
Me.TextBox_cnpj.Text =""
Me.TextBox_ie.Text =""
Me.TextBox_endereco.Text =""
Me.TextBox_telefone.Text =""
Me.TextBox_email.Text =""
Me.TextBox_cidade.Text =""
Me.TextBox_estado.Text =""
Me.TextBox_cep.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
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!
Para todos os detalhes, acesse:
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("EMPRESA$",dbOpenDynaset)
LIN = 2
Do Until Rs.EOF
If Rs("NOME") =Me.TextBox_nome.Text Then
Me.TextBox_cod =Rs.Fields("COD")
Me.TextBox_nome = Rs.Fields("NOME")
Me.TextBox_cnpj = Rs.Fields("CNPJ")
Me.TextBox_ie =Rs.Fields("IE")
Me.TextBox_endereco = Rs.Fields("ENDERECO")
Me.TextBox_telefone = Rs.Fields("TELEFONE")
Me.TextBox_email =Rs.Fields("EMAIL")
Me.TextBox_cidade = Rs.Fields("CIDADE")
Me.TextBox_estado = Rs.Fields("ESTADO")
Me.TextBox_cep =Rs.Fields("CEP")
Me.TextBox_codf.Text = LIN
End If
LIN = LIN + 1
Rs.MoveNext
Loop
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("EMPRESA$", dbOpenDynaset)
Rs.Edit
Rs("NOME") = Me.TextBox_nome
Rs("CNPJ") = Me.TextBox_cnpj
Rs("IE") = Me.TextBox_ie
Rs("ENDERECO") = Me.TextBox_endereco
Rs("TELEFONE") = Me.TextBox_telefone
Rs("EMAIL") = Me.TextBox_email
Rs("CIDADE") = Me.TextBox_cidade
Rs("ESTADO") = Me.TextBox_estado
Rs("CEP") = Me.TextBox_cep
Rs.Update
MsgBox"DADOS DA EMPRESA ALTERADOS COM SUCESSO", vbInformation, "BANCODE DADOS"
ThisWorkbook.Save
Tela 007
Botão Apagar:
Dim MOTOTAX
MOTOTAX =MsgBox("DESEJA REALMENTE EXCLUIR O CLIENTE?", vbYesNo + vbQuestion,"BANCO DE DADOS")
If MOTOTAX = vbYes Then
Plan2.Cells(Me.TextBox_codf,1).EntireRow.Delete
Me.TextBox_cod.Text =""
Me.TextBox_nome.Text =""
Me.TextBox_cnpj.Text =""
Me.TextBox_ie.Text =""
Me.TextBox_endereco.Text =""
Me.TextBox_telefone.Text =""
Me.TextBox_email.Text =""
Me.TextBox_cidade.Text =""
Me.TextBox_estado.Text =""
Me.TextBox_cep.Text =""
MsgBox"REGISTROS EXCLUÍDO COM SUCESSO."
ThisWorkbook.Save
End If
Tela 008
Botão Voltar:
Me.hide
Neste tutorial ensinei a desenvolver o banco de dados para armazenar os dados daempresa, definindo as formataçõesnecessárias para cada campo, codificamos o formulário “empresa”, tudo de formasimples e objetiva mostrado através detelas. Na próxima parte do tutorial daremos continuidade no desenlvovimento doaplicativo. Bons estudos e até a próxima parte.
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