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 é continuar o desenvolvimento do sistema, vamos desenvolver um banco de dados para armazenar os registros dos clientes e também codificar a interface gráfica que criamos no tutorial anterior, tudo de forma simples e objetiva.
Pré-requisito:
Para você poder acompanhar o desenvolvimento deste tutorial, será necessário ter conhecimento no mínimo do “Curso Básico de Excel e os Tutoriais Utilizando Editor do Visual Basic do Excel Parte 1 e Parte2” Parte 1, Parte 2, Parte 3, Parte 4, Parte 5 e Parte 6 deste tutorial.
NOTA: A partir deste sistema, irei oferecer serviços de acessoria em desenvolvimento de sistemas em Excel, portanto, se você quiser adaptar ou criar um sistema conforme sua necessidade, entre em contato comigo através do e-mail: erico_2223@yahoo.com.br.
Vamos começar com a criação de banco de dados, este você deve utilizar a planilha 3 na qual deve ser renomeada para “CLIENTES” , os nomes dos campos serão os seguintes:
COD, NOME, ENDERECO, BAIRRO, CIDADE,ESTADO, CEP,TELEFONE.
Insira estes campos na planilha, conforme a tela abaixo.
Tela 001
Você deve inserir uma cor cinza escura em toda a linha que contém o nome dos campos, colocar negrito e centralizado.
Tela 002
Vamos fazer formatações nos campos da seguinte maneira:
COD para a categoria números com casa decimais zero.
Tela 003
NOME, ENDERECO,BAIRRO, CIDADE E ESTADO para a categoria texto.
Tela 004
CEP para Especial CEP:
Tela 005
Telefone para categoria especial Telefone.
Tela 006
Terminado a criação do banco de dados, começaremos a fazer a codificar a interface gráfica do sistema, primeiro o formulário, dentro do mesmo e no evento initialize insira o código:
Label_N = Application.WorksheetFunction.CountA(Plan3.Columns(1)) – 1
Tela 007
Vamos inserir os códigos nos botões, este deve ser inserido no evento c l i c:
Botão Cadastrar:
Dim bd As Database
Dim Rs As Recordset
Set bd = OpenDatabase(ThisWorkbook.Path & "\" &ThisWorkbook.Name, False, False, "excel 8.0")
Set Rs = bd.OpenRecordset("CLIENTES$", dbOpenDynaset)
If Me.TextBox_cod > Me.Label_N Then
If Me.TextBox_nome = "" Then
Me.TextBox_nome.Text = "-"
End If
If Me.TextBox_endereco.Text = "" Then
Me.TextBox_endereco.Text = "-"
End If
If Me.TextBox_bairro.Text = "" Then
Me.TextBox_bairro.Text = "-"
End If
If Me.ComboBox_cidade.Text = "" Then
Me.ComboBox_cidade.Text = "-"
End If
If Me.ComboBox_estado.Text = "" Then
Me.ComboBox_estado.Text = "-"
End If
If Me.TextBox_cep.Text = "" Then
Me.TextBox_cep.Text = "-"
End If
If Me.TextBox_telefone.Text = "" Then
Me.TextBox_telefone.Text = "-"
End If
Dim CADASTRO(1 To 9)
CADASTRO(1) = UCase(Me.TextBox_cod)
CADASTRO(2) = UCase(Me.TextBox_nome)
CADASTRO(3) = UCase(Me.TextBox_endereco)
CADASTRO(4) = UCase(Me.TextBox_bairro)
CADASTRO(5) = UCase(Me.ComboBox_cidade)
CADASTRO(6) = UCase(Me.ComboBox_estado)
CADASTRO(7) = UCase(Me.TextBox_cep)
CADASTRO(8) = UCase(Me.TextBox_telefone)
CADASTRO(9) = UCase(Me.TextBox_cod.Value)
Dim OFICINA As Object
Dim L, i
Set OFICINA = Plan3.Cells(1, 1).CurrentRegion
L = OFICINA.Rows.Count + 1
If Len(Me.TextBox_cod) = 0 Then
MsgBox "VOCÊ NÃO DIGITOU NENHUM NOME PARA INCLUSÃO", vbCritical, "CADASTRO DE CIDADES E ESTADOS"
Else
For i = 1 To 9
Plan3.Cells(L, i).Value = Trim(CADASTRO(i))
Next i
Me.TextBox_cod = ""
Me.TextBox_nome = ""
Me.TextBox_endereco.Text = ""
Me.TextBox_bairro.Text =""
Me.ComboBox_cidade.Text = ""
Me.ComboBox_estado.Text = ""
Me.TextBox_cep.Text = ""
Me.TextBox_telefone.Text = ""
MsgBox"CADASTRO", vbInformation, "EFETUADO COM SUCESSO"
ThisWorkbook.Save
End If
Exit Sub
Else
MsgBox "No campo CODIGO digite um número maior do que há no campo Total Registro No Banco para casdastrar."
End If
Botão Pesquisar:
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("CLIENTES$", dbOpenDynaset)
LIN = 2
Do Until Rs.EOF
If Rs("NOME") = Me.TextBox_nome.Text Then
Me.TextBox_cod = Rs.Fields("COD")
Me.TextBox_endereco = Rs.Fields("ENDERECO")
Me.TextBox_bairro = Rs.Fields("BAIRRO")
Me.ComboBox_cidade = Rs.Fields("CIDADE")
Me.ComboBox_estado = Rs.Fields("ESTADO")
Me.TextBox_cep = Rs.Fields("CEP")
Me.TextBox_telefone = Rs.Fields("TELEFONE")
Me.TextBox_codf.Text = LIN
End If
LIN = LIN + 1
Rs.MoveNext
LoopDim 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("PECAS$", dbOpenDynaset)
LIN = 2
Do Until Rs.EOF
If Rs("PECA") = Me.Text_peça.Text Then
Me.cod = Rs.Fields("COD")
Me.ComboBox_veiculo = Rs.Fields("VEICULO")
Me.Text_ano = Rs.Fields("ANO")
Me.ComboBox_fornecedor = Rs.Fields("FORNECEDOR")
Me.Text_qtd = Rs.Fields("QTD")
Me.Text_valor = Rs.Fields("VALOR")
Me.Text_codf.Text = LIN
End If
LIN = LIN + 1
Rs.MoveNext
Loop
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("CLIENTES$", dbOpenDynaset)
Rs.EDIT
Rs("NOME") = Me.TextBox_nome
Rs("ENDERECO") = Me.TextBox_endereco
Rs("BAIRRO") = Me.TextBox_bairro
Rs("CIDADE") = Me.ComboBox_cidade
Rs("ESTADO") = Me.ComboBox_estado
Rs("CEP") = Me.TextBox_cep
Rs("TELEFONE") = Me.TextBox_telefone
Rs.Update
MsgBox "DADO ALTERADOS COM SUCESSO", vbInformation, "BANCO DE DADOS"
ThisWorkbook.Save
Botão Apagar:
Dim OFICINA
OFICINA = MsgBox("DESEJA REALMENTE EXCLUIR OS DADOS?", vbYesNo + vbQuestion, "BANCO DE DADOS")
If OFICINA = vbYes Then
Plan3.Cells(Me.TextBox_codf, 1).EntireRow.Delete
Me.TextBox_cod = ""
Me.TextBox_nome = ""
Me.TextBox_endereco.Text = ""
Me.TextBox_bairro.Text = ""
Me.ComboBox_cidade.Text = ""
Me.ComboBox_estado.Text = ""
Me.TextBox_cep.Text = ""
Me.TextBox_telefone.Text = ""
MsgBox "DADOS EXCLUÍDO COM SUCESSO."
ThisWorkbook.Save
End If
Fechar:
Me.hide
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:
Neste tutorial ensinei para você a desenvolver o banco de dados para armazenar os dados dos clientes, definir os nomes dos campos, fazer as formatações necessárias, também a codificar a interface gráfica de clientes que tinhamos desenvolvido no tutorial anterior a este, inserindo os códigos nos botões e no formulário, tudo de forma simples e objetiva, na próxima parte do tutorial daremos continuidade no desenvolvimento do aplicativo. 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-2024 ®
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