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 para gerenciar uma pequena empresa, codificaremos mais uma interfacegrafica, além de desenvolver o banco de dados armazenar os registros, tudo deforma 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, Parte 4 e Parte 5 deste tutorial.
Ola! Pessoal, iremos começardesenvolvendo o banco de dados para nosso sistema, este será para armazenar osregistros que serão incluídos através da interface fornecedores. Utilize aplan2 e modifque o nome para a “FORNECEDORES”, insira na primeira linha da planilha os nomes doscampos abaixo:
COD, RAZAO, NOME, PRODUTOS, ENDERECO, BAIRRO, CIDADE, ESTADO, TELEFONE, FAX, RG,CPF, CONTATO e OBS.
Tela 001
Você deve inserir na primeira linha da planilha , cor cinza, negrito ecentralizado, com isso esta linha será identificada como cabeçalho.
Tela 002
Agora, vocêdevera fazer os ajustes nas propriedades dos objetos conforme descrição abaixo.
COD, RAZÃO, FAX, RG e CPF colocar na categoria “Geral”.
Tela 003
NOME, PRODUTOS, ENDERECO, BAIRRO,CIDADE, ESTADO, CONTATO e OBS inserir na categoria “texto”.
Tela 004
TELEFONE inserir na categoria Especial + Telefone ”.
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
Codificaremos a interface fornecedores,insira o código no formulário dentro do evento initialize.
Label_n =Application.WorksheetFunction.CountA(Plan2.Columns(1)) – 1
Tela 006
Os códigos a seguir devem ser inseridos dentro do evento clic do botão.
BotãoIncluir:
Dim bd As Database
Dim Rs As Recordset
Set bd = OpenDatabase(ThisWorkbook.Path& "\" & ThisWorkbook.Name, False, False, "excel8.0")
Set Rs =bd.OpenRecordset("FORNECEDORES$", dbOpenDynaset)
If Me.Text_cod >Me.Label_n Then
If Me.Text_razao = ""Then
Me.Text_razao = "-"
End If
If Me.Text_nome = "" Then
Me.Text_nome = "-"
End If
If Me.Text_produtos = ""Then
Me.Text_produtos.Text ="-"
End If
If Me.Text_endereco = ""Then
Me.Text_endereco.Text ="-"
End If
If Me.Text_bairro = ""Then
Me.Text_bairro.Text ="-"
End If
If Me.Combo_cidade = ""Then
Me.Combo_cidade.Text ="-"
End If
If Me.Combo_estado = ""Then
Me.Combo_estado.Text ="-"
End If
If Me.Text_telefone = ""Then
Me.Text_telefone.Text = "-"
End If
If Me.Text_fax = "" Then
Me.Text_fax.Text ="-"
End If
If Me.Text_cpf = "" Then
Me.Text_cpf.Text ="-"
End If
If Me.Text_rg = "" Then
Me.Text_rg.Text = "-"
End If
If Me.Text_contato = ""Then
Me.Text_contato.Text ="-"
End If
If Me.Text_obs = "" Then
Me.Text_obs.Text ="-"
End If
Dim CADASTRO(1 To 15)
CADASTRO(1) = UCase(Me.Text_cod)
CADASTRO(2) = UCase(Me.Text_razao)
CADASTRO(3) = UCase(Me.Text_nome)
CADASTRO(4) = UCase(Me.Text_produtos)
CADASTRO(5) = UCase(Me.Text_endereco)
CADASTRO(6) = UCase(Me.Text_bairro)
CADASTRO(7) = UCase(Me.Combo_cidade)
CADASTRO(8) = UCase(Me.Combo_estado)
CADASTRO(9) = UCase(Me.Text_telefone)
CADASTRO(10) = UCase(Me.Text_fax)
CADASTRO(11) = UCase(Me.Text_rg)
CADASTRO(12) = UCase(Me.Text_cpf)
CADASTRO(13) = UCase(Me.Text_contato)
CADASTRO(14)= UCase(Me.Text_obs)
CADASTRO(15) = UCase(Me.Text_cod.Value)
Dim GERENCIADORAs Object
Dim L, i
Set GERENCIADOR = Plan2.Cells(1,1).CurrentRegion
L = GERENCIADOR.Rows.Count + 1
If Len(Me.Text_cod) = 0 Then
MsgBox "VOCÊ NÃODIGITOU NENHUM NOME PARA INCLUSÃO", vbCritical, "CADASTRO DEFORNECEDORES"
Else
For i = 1 To15
Plan2.Cells(L, i).Value =Trim(CADASTRO(i))
Next i
Me.Text_cod.Text = ""
Me.Text_razao.Text =""
Me.Text_nome.Text =""
Me.Text_produtos.Text =""
Me.Text_endereco.Text =""
Me.Text_bairro.Text =""
Me.Combo_cidade.Text = ""
Me.Combo_estado.Text = ""
Me.Text_telefone.Text = ""
Me.Text_fax.Text = ""
Me.Text_rg.Text = ""
Me.Text_cpf.Text = ""
Me.Text_contato.Text =""
Me.Text_obs.Text =""
MsgBox"CADASTRADO", vbInformation, "EFETUADO COM SUCESSO"
ThisWorkbook.Save
End If
Exit Sub
Else
MsgBox "No campo COD digite um número maior do que háno campo Total Registro para casdastrar."
End If
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("FORNECEDORES$", dbOpenDynaset)
LIN = 2
Do Until Rs.EOF
If Rs("NOME") =Me.Text_nome.Text Then
Me.Text_cod =Rs.Fields("COD")
Me.Text_razao =Rs.Fields("RAZAO")
Me.Text_nome = Rs.Fields("NOME")
Me.Text_produtos = Rs.Fields("PRODUTOS")
Me.Text_endereco = Rs.Fields("ENDERECO")
Me.Text_bairro = Rs.Fields("BAIRRO")
Me.Combo_cidade = Rs.Fields("CIDADE")
Me.Combo_estado = Rs.Fields("ESTADO")
Me.Text_telefone =Rs.Fields("TELEFONE")
Me.Text_fax =Rs.Fields("FAX")
Me.Text_rg =Rs.Fields("RG")
Me.Text_cpf =Rs.Fields("CPF")
Me.Text_contato =Rs.Fields("CONTATO")
Me.Text_obs =Rs.Fields("OBS")
Me.TextBox_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("FORNECEDORES$", dbOpenDynaset)
Rs.Edit
Rs("RAZAO") =Me.Text_razao
Rs("NOME") = Me.Text_nome
Rs("PRODUTOS") = Me.Text_produtos
Rs("ENDERECO") = Me.Text_endereco
Rs("BAIRRO") = Me.Text_bairro
Rs("TELEFONE") = Me.Text_telefone
Rs("FAX") = Me.Text_fax
Rs("RG") = Me.Text_rg
Rs("CPF") = Me.Text_cpf]
Rs("CONTATO") =Me.Text_contato
Rs("OBS") =Me.Text_obs
Rs.Update
MsgBox"DADOS ALTERADOS COM SUCESSO", vbInformation, "BANCO DEDADOS"
ThisWorkbook.Save
Botão Excuir:
Dim VT
VT =MsgBox("DESEJA REALMENTE EXCLUIR O CLIENTE?", vbYesNo + vbQuestion,"BANCO DE DADOS")
If VT = vbYes Then
Plan2.Cells(Me.TextBox_codf,1).EntireRow.Delete
Me.Text_cod.Text = ""
Me.Text_razao.Text =""
Me.Text_nome.Text =""
Me.Text_produtos.Text =""
Me.Text_endereco.Text =""
Me.Text_bairro.Text =""
Me.Combo_cidade.Text =""
Me.Combo_estado.Text = ""
Me.Text_telefone.Text = ""
Me.Text_fax.Text = ""
Me.Text_rg.Text = ""
Me.Text_cpf.Text = ""
Me.Text_contato.Text =""
Me.Text_obs.Text = ""
MsgBox "REGISTROS EXCLUÍDOCOM SUCESSO."
ThisWorkbook.Save
End If
Botão Voltar:
Me.hide
Nesta parte dsenvolvemos mais um banco de dados para fazer o armazenamento dosregistros e a codificação da interface “Fornecedores”, tudo de forma simples eobjetiva, na próxima parte do tutorial daremos continuidade no desenlvovimentodo 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-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