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 da interface agenda, utilizaremos a 4° planilha do excel, também iremos codificar oformulário agenda, 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 , Parte 4, Parte 5, Parte 6 e Parte 7 destetutorial.
Utilizando a quarta planilha doexcel, modifque o nome plan4 para “AGENDA”, depois vamos colocar os nomes doscampos relacionados abaixo.
COD, CLIENTE, FUNCIONARIO, LOCAL.
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 primeira, depois apenas irei dizer comquais formatações deverão ficar os campos.
COD colocar na categoria “número”.
Tela 003
O restante dos campos devem serformatados da seguinte maneira:
NOME, FUNCIONÁRIO e LOCAL inserir na categoria “texto”.
Começaremos a codificar a interface empresa, insira o código abaixo no formulário, dentro do evento initialize.
Label_n =Application.WorksheetFunction.CountA(Plan4.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("AGENDA$", dbOpenDynaset)
If Me.cod > Me.Label_nThen
If Me.Combo_cliente = "" Then
Me.Combo_cliente.Text ="-"
End If
If Me.Combo_funcionario ="" Then
Me.Combo_funcionario.Text ="-"
End If
If Me.TextBox_local = ""Then
Me.TextBox_local.Text = "-"
End If
DimCADASTRO(1 To 5)
CADASTRO(1) = UCase(Me.cod)
CADASTRO(2) = UCase(Me.Combo_cliente)
CADASTRO(3) = UCase(Me.Combo_funcionario)
CADASTRO(4) = UCase(Me.TextBox_local)
CADASTRO(5) = UCase(Me.cod.Value)
Dim MOTOTAX As Object
Dim L, i
Set MOTOTAX = Plan4.Cells(1,1).CurrentRegion
L = MOTOTAX.Rows.Count + 1
If Len(Me.cod) = 0 Then
MsgBox "VOCÊ NÃODIGITOU NENHUM NOME PARA INCLUSÃO", vbCritical, "CADASTRO DECLIENTES"
Else
For i = 1 To 5
Plan4.Cells(L, i).Value = Trim(CADASTRO(i))
Next i
Me.cod.Text = ""
Me.Combo_cliente.Text =""
Me.Combo_funcionario.Text = ""
Me.TextBox_local.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
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("AGENDA$", dbOpenDynaset)
LIN = 2
Do Until Rs.EOF
If Rs("CLIENTE")= Me.Combo_cliente.Text Then
Me.cod =Rs.Fields("COD")
Me.Combo_funcionario = Rs.Fields("FUNCIONARIO")
Me.TextBox_local =Rs.Fields("LOCAL")
Me.TextBox_codf.Text = LIN
End If
LIN = LIN + 1
Rs.MoveNext
Loop
Tela 006
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:
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("AGENDA$", dbOpenDynaset)
Rs.Edit
Rs("LOCAL") = Me.TextBox_local
Rs.Update MsgBox "DADOS ALTERADOS COM SUCESSO",vbInformation, "BANCO DE 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
Plan4.Cells(Me.TextBox_codf,1).EntireRow.Delete
Me.cod.Text =""
Me.Combo_cliente.Text = ""
Me.Combo_funcionario.Text = ""
Me.TextBox_local.Text =""
MsgBox"REGISTROS EXCLUÍDO COM SUCESSO."
ThisWorkbook.Save
End If
Tela 008
Botão Voltar:
Me.hide
Findando a programação da interface, vamos inserir napropriedade Rowsource como segue:
Combocliente: cliente!b2:b5000
Combofuncionário: funcionario!b2:b5000
Tela 009
Neste tutorial ensinei a desenvolver o banco de dados para armazenar os dados, definindo as formatações necessárias paracada campo, codificamos a interface “agenda”, tudo de forma simples e objetiva mostrado através de telas. Na próxima partedo tutorial daremos continuidade no desenlvovimento do aplicativo. Bons estudose 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