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:
Continuar o desenvolvimento dosistema aluguel, iremos desenvolver o banco de dados para armazenar registros e também iremos codificar a interfaceCadastro_produtos, 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 Parte 4 deste tutorial.
Vamos utilizar a planilha Plan2para desenvolver este banco, modifique o nome Plan2 para a “PRODUTOS”, depoisinsira os nomes dos campos na planilha conforme relação abaixo.
COD, DESCRICAO, PRECO e QTD.
Tela 001
A primeira formatação que iremos fazer vai inserir uma cor cinza, negrito na primeira linha daplanilha onde estão localizados os campos, assim será indentificada como cabeçalho.
Tela 002
Agora iremos fazer uma formatação nos campos daseguinte maneira:
COD colocar na categoria “número”.
Tela 003
O restante dos campos devem serformatados da seguinte maneira:
DESCRICAO inserir na categoria“texto”.
PRECO inserir na categoria “moeda”.
QTD inserir na categoria “número”.
Concluido o desenvolvimento dobanco, vamos codificar o sistema dentro do evento initialize no formulário insira ocódigo.
Label_n =Application.WorksheetFunction.CountA(Plan2.Columns(1)) – 1
Tela 004
Todo o processo dedesenvolvimento do sistema é bem simples, basta ir copiando e colando oscódigos no local indicado, insira os codigos sempre dentro do 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("PRODUTOS$",dbOpenDynaset)
If Me.cod > Me.Label_nThen
If Me.descricao = "" Then
Me.descricao.Text ="-"
End If
If Me.preco = "" Then
Me.preco.Text = "-"
End If
If Me.qtd = "" Then
Me.qtd.Text ="-"
End If
DimCADASTRO(1 To 5)
CADASTRO(1) = UCase(Me.cod)
CADASTRO(2)= UCase(Me.descricao)
CADASTRO(3) = UCase(Me.preco)
CADASTRO(4) = UCase(Me.qtd)
CADASTRO(5) = UCase(Me.cod.Value)
Dim ALUGUEL AsObject
Dim L, i
Set ALUGUEL = Plan2.Cells(1, 1).CurrentRegion
L = ALUGUEL.Rows.Count + 1
If Len(Me.cod) = 0 Then
MsgBox "VOCÊ NÃO DIGITOU NENHUM NOME PARA INCLUSÃO",vbCritical, "CADASTRO DE CLIENTES"
Else
For i = 1 To 5
Plan2.Cells(L, i).Value = Trim(CADASTRO(i))
Next i
Me.cod.Text = ""
Me.descricao.Text =""
Me.preco.Text = ""
Me.qtd.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("PRODUTOS$", dbOpenDynaset)
LIN = 2
Do Until Rs.EOF
IfRs("DESCRICAO") = Me.descricao.Text Then
Me.cod =Rs.Fields("COD")
Me.preco =Rs.Fields("PRECO")
Me.qtd =Rs.Fields("QTD")
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("PRODUTOS$", dbOpenDynaset)
Rs.edit
Rs("DESCRICAO") = Me.descricao
Rs("PRECO") = Me.preco
Rs("QTD") = Me.qtd
Rs.Update
MsgBox"DADOS DOS PRODUTOS ALTERADOS COMSUCESSO", vbInformation, "BANCO DE DADOS"
ThisWorkbook.Save
Tela 007
Botão Apagar:
Dim ALUGUEL
ALUGUEL =MsgBox("DESEJA REALMENTE EXCLUIR O CLIENTE?", vbYesNo + vbQuestion,"BANCO DE DADOS")
If ALUGUEL = vbYes Then
Plan2.Cells(Me.TextBox_codf,1).EntireRow.Delete
Me.cod.Text = ""
Me.descricao.Text =""
Me.preco.Text = ""
Me.qtd.Text = ""
MsgBox "REGISTROS EXCLUÍDOCOM SUCESSO."
ThisWorkbook.Save
End If
Tela 008
Botão Voltar:
Me.hide
Tela 009
Neste tutorial ensinei a desenvolver o banco de dados, fazer as formatações para os campo e codificar interface “cadastro_produtos”,tudo de forma simples e objetiva mostrado através de telas. Na próxima parte do tutorial daremoscontinuidade no desenlvovimento do aplicativo. Bons estudos e até a próximaparte.
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