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 é decontinuar o desenvolvimento do sistema simples de venda para lancheria, iremosneste tutorial criar o banco de dados ecodificar o formulário cadastro de clientes.
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, Parte1,Parte2 e Parte 3 deste tutorial”.
Vamos começar a criar o banco dedados para armazenar os registros inseridos através do formulário de cadastrode clientes. Abra o nosso projeto, vamos utilizar a plan1 para a criação destebanco com os seguintes campos:
Codigo, Nome, Endereço, Cidade,Estado, Telefone.
Tela 001
Agora você deve fazer algumas formatações neste campos, como: centraliza-los, colocar em negrito e inseriruma cor cinza em toda linha, os mesmo devem ficar igual a tela abaixo:
Tela 002
Agora iremos formatar estescampos quanto a sua categoria para entrada de dados, ou seja, nos campos“codigo”, e “endereço” vamos deixar a categoria geral, nos campos “nome”,“cidade” e “estado” vamos selecionar a categoria texto, tendo em vista que osmesmo devem receber apenas texto em sua entrada, isso, não quer dizer que nãopodemos inserir números, mas o controle de configuração é melhor desta maneirae por último o campo “telefone” iremos selecionar a opção “especial –telefone”, veja estes procedimentos nas telas baixos:
Tela 003 (Estes campos iremosdeixar com entrada geral)
Tela 004 (Formatando os camposnome , cidade e estado com entrada paratexto)
Tela 005
Pronto esta concluido o nossobanco de dados, agora iremos começar a codificar o formulário cadastro declientes, de um duplo clique sobre o mesmo para ativar a janela de código,dentro da mesma no evento “initialize” inseri o código abaixo que vai fazer acontagem de quantos registros estão armazenados no banco de dados.
Label9 = Application.WorksheetFunction.CountA(Plan1.Columns(1))– 1
Tela 006
Agora iremos inserir o codigoabaixo dentro do botão cadastrar, clique duas vezes sobre o mesmo para abrir ajanela de codigo, mas antes de inserir o código iremos ativar uma bibliotecachamada Microsoft Dao 3.6, a versão podevariar de excel para excel, para isso clique em referencias e será aberta uma janela,na mesma você deve ativar a biblioteca.
Tela 007
Agora copie e cole o código no botão cadastrar.
Dim bd As Database
Dim rs As Recordset
Set bd = OpenDatabase("C:\Documents andSettings\infohelp\Meus
documentos\APLICATIVO\Controle Venda\vendas.xls",False, False, "excel 8.0")
Set rs =bd.OpenRecordset("Plan1$", dbOpenDynaset)
If Me.Text_codigo >Me.Label9 Then
If Me.Text_codigo = "" Then
Me.Text_codigo.Text ="-"
End If
If Me.Text_nome.Text = ""Then
Me.Text_nome.Text ="-"
End If
If Me.Text_endereco = ""Then
Me.Text_codigo.Text ="-"
End If
If Me.ComboBox_cidade ="" Then
Me.ComboBox_cidade.Text ="-"
End If
If Me.Text_estado = ""Then
Me.Text_estado = "-"
End If
If Me.Text_telefone = ""Then
Me.Text_nome.Text ="-"
End If
Dim CADASTRO(1 To 7)
CADASTRO(1) = UCase(Me.Text_codigo)
CADASTRO(2) = UCase(Me.Text_nome)
CADASTRO(3) = LCase(Me.Text_endereco)
CADASTRO(4) = UCase(Me.ComboBox_cidade)
CADASTRO(5) = UCase(Me.Text_estado)
CADASTRO(6) = UCase(Me.Text_telefone)
CADASTRO(7) =UCase(Me.Text_codigo.Value)
Dim CLIENTE AsObject
Dim L, I
Set CLIENTE = Plan1.Cells(1, 1).CurrentRegion
L = CLIENTE.Rows.Count + 1
If Len(Me.Text_codigo) = 0 Then
MsgBox "VOCÊ NÃODIGITOU NENHUM NOME PARA INCLUSÃO", vbCritical,
"CADASTRO DECLIENTES"
Else
For I = 1 To 7
Plan1.Cells(L, I).Value = Trim(CADASTRO(I))
Next I
MsgBox"CADASTRADO", vbInformation, "EFETUADO COM SUCESSO"
ThisWorkbook.Save
End If
Exit Sub
Else
MsgBox "No campo REGISTRO digite um número maior doque há no campo QTD
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 008
Faça o mesmo processo para inserir os codigos nos demaisbotões, abaixo o código de cada um.
BotãoPesquisar:
Dim bd As Database
Dim rs As Recordset
Set bd = OpenDatabase("C:\Documents andSettings\infohelp\Meus
documentos\APLICATIVO\Controle Venda\vendas.xls",False, False, "excel 8.0")
Set rs =bd.OpenRecordset("Plan1$", dbOpenDynaset)
rs.FindFirst "NOMELIKE'" & Me.Text_nome & "'"
If rs.NoMatch = True Then MsgBox"Nome não cadastrado", vbInformation,
"Banco de dados":Exit Sub
Me.Text_codigo = rs.Fields("CODIGO")
Me.Text_nome= rs.Fields("NOME")
Me.Text_endereco =rs.Fields("ENDERECO")
Me.ComboBox_cidade = rs.Fields("CIDADE")
Me.Text_estado = rs.Fields("ESTADO")
Me.Text_telefone = rs.Fields("TELEFONE")
BotãoEditar:
Dim CADASTRO(1 To 7)
CADASTRO(1)= UCase(Me.Text_codigo)
CADASTRO(2) = UCase(Me.Text_nome)
CADASTRO(3) = LCase(Me.Text_endereco)
CADASTRO(4) = UCase(Me.ComboBox_cidade)
CADASTRO(5) = UCase(Me.Text_estado)
CADASTRO(6) = UCase(Me.Text_telefone)
CADASTRO(7) = UCase(Me.Text_codigo.Value)
For I = 1 To 7
Plan1.Cells(Val(Me.Text_codigo) + 1,I).Value = Trim(CADASTRO(I))
Next I
MsgBox"ALTERAÇÃO EFETUADA", vbInformation, "CADASTRO DEENDEREÇOS"
ThisWorkbook.Save
BotãoApagar:
Dim CLIENTE
CLIENTE =MsgBox("DESEJA REALMENTE EXCLUIR O REGISTRO", vbYesNo +
vbQuestion,"CADASTRO DE CLIENTES")
If CLIENTE = vbYes Then
Plan1.Cells(Val(Me.Text_codigo) + 1,1).EntireRow.Delete
ThisWorkbook.Save
End If
BotãoFechar:
Me.Hide
OBS: Maisadiante, nos próximos tutoriais iremos voltar a mexer em dos objetos desteformulário para fazer uma interligação.
Ensinei a criar o banco de dados, ativar a biblioteca microsotDao e a codificar o formulário cadastrode clientes,tudo de forma simples e objetiva, na próxima parte do tutorialdaremos continuidade a criação do sistema. 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