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

Você está em: PrincipalArtigosCriando Aplicativos VBA com Excel : Sisvendalancherias005
Quer receber novidades e e-books gratuitos?

Sistema de Venda Para Lancherias - Banco de Dados e Codificação de Entregadores - Parte 5

 

Objetivo:

 

O objetivo deste tutorial écontinuar o desenvolvimento do sistema simples de venda para lancheria, iremosneste tutorial  criar o banco de dadospara entregadores  e codificar oformulário cadastro entregadores.

 

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, Parte 3 e Parte 4  deste tutorial”.

 

Criaremos primeiro o banco dedados que tera a função de armazenar os registros inseridos através doformulário de cadastro entregadores.  Para criar este banco vamos utilizar a plan2,a mesma vai conter os seguintes campos:

 

Codigo, Nome, Endereço, Cidade,Estado, Telefone,Veiculo,Dia,Dias,Horario,Horarios.

 

Criando Aplicativos VBA no Excel - Júlio Battisti

Tela 001

 

Vamos fazerr 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:

 

Criando Aplicativos VBA no Excel - Júlio Battisti

Tela 002

 

Vamos  formatar estes campos quanto a sua categoria ,ou seja, nos campos “codigo”, “endereço” e “veiculos” vamos deixar a categoriageral, nos campos “nome”, “cidade”, “estado”,”dia” e “dias” vamos selecionar acategoria texto,no campo “telefone” iremos selecionar a opção “especial –telefone” e por último os campos “horário” e “Horários” categoria personalizadoselecionar “h:mm:ss” veja estes procedimentos nas telas baixos:

 

Criando Aplicativos VBA no Excel - Júlio Battisti

Tela 003 (Estes campos iremosdeixar com entrada geral)

 

Criando Aplicativos VBA no Excel - Júlio Battisti

Tela 004 (Formatando os camposnome , cidade , estado, dia e dias  comentrada para texto)

 

Criando Aplicativos VBA no Excel - Júlio Battisti

Tela 005

 

Criando Aplicativos VBA no Excel - Júlio Battisti

Tela 007

 

Concluido o banco de dados, vamoscomeçar a codificar o formulário cadastro de entregadores, de um duplo cliquesobre o mesmo para ativar a janela de código, dentro da mesma no evento“initialize” inseri o código abaixo que vai fazer a contagem de quantosregistros estão armazenados no banco de dados.

 

Label14 =Application.WorksheetFunction.CountA(Plan2.Columns(1)) – 1

 

Criando Aplicativos VBA no Excel - Júlio Battisti

Tela 008

 

Iremos inserir o codigo abaixo dentro do botão cadastrar,clique duas vezes sobre o mesmo para abrir a janela de codigo,  copie e cole o código abaixo  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("Plan2$", dbOpenDynaset)

 

If Me.Text_codigo >Me.Label14 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_endereco.Text ="-"

End If

 

If Me.ComboBox_cidade ="" Then

Me.ComboBox_cidade.Text ="-"

End If

 

If Me.ListBox_estado = ""Then

Me.ListBox_estado.Text ="-"

End If

 

If Me.Text_telefone = ""Then

Me.Text_telefone.Text ="-"

End If

 

If Me.Text_veiculo = ""Then

Me.Text_veiculo.Text ="-"

End If

 

If Me.Text_dia = "" Then

Me.Text_dia.Text ="-"

End If

 

If Me.Text_dias = ""Then

Me.Text_dias.Text ="-"

End If

 

If Me.Text_horario = ""Then

Me.Text_horario.Text ="-"

End If

 

If Me.Text_horarios = ""Then

Me.Text_horarios.Text ="-"

End If

 

Dim CADASTRO(1 To 12)

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.ListBox_estado)

CADASTRO(6) = UCase(Me.Text_telefone)

CADASTRO(7) = UCase(Me.Text_veiculo)

CADASTRO(8) = UCase(Me.Text_dia)

CADASTRO(9) = UCase(Me.Text_dias)

CADASTRO(10) = UCase(Me.Text_horario)

CADASTRO(11) = UCase(Me.Text_horarios)

CADASTRO(12) = UCase(Me.Text_codigo.Value)

 

Dim ENTREGADORESAs Object

Dim L, I

Set ENTREGADORES = Plan2.Cells(1, 1).CurrentRegion

L = ENTREGADORES.Rows.Count + 1

If Len(Me.Text_codigo) = 0 Then

MsgBox "VOCÊ NÃODIGITOU NENHUM NOME PARA INCLUSÃO", vbCritical,

"CADASTRO DEENTREGADORES"

Else

For I = 1 To12

Plan2.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 CODIGO digite um número maior do quehá no campo QTD

para casdastrar."

 

End If

 


você conhece a universidade do vba?

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!

Tudo Para Você Aprender, na Prática, VBA no Excel!

Para todos os detalhes, acesse:

https://juliobattisti.com.br/curso-vba-excel/


Criando Aplicativos VBA no Excel - Júlio Battisti

Tela 009

 

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("Plan2$", 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.ListBox_estado = rs.Fields("ESTADO")

Me.Text_telefone = rs.Fields("TELEFONE")

Me.Text_veiculo = rs.Fields("VEICULO")

Me.Text_dia= rs.Fields("DIA")

Me.Text_dias = rs.Fields("DIAS")

Me.Text_horario = rs.Fields("HORARIO")

Me.Text_horarios = rs.Fields("HORARIOS")

 

BotãoEditar:

 

Dim CADASTRO(1 To 12)

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.ListBox_estado)

CADASTRO(6) = UCase(Me.Text_telefone)

CADASTRO(7) = UCase(Me.Text_veiculo)

CADASTRO(8) = UCase(Me.Text_dia)

CADASTRO(9) = UCase(Me.Text_dias)

CADASTRO(10) = UCase(Me.Text_horario)

CADASTRO(11) = UCase(Me.Text_horarios)

CADASTRO(12) = UCase(Me.Text_codigo.Value)

 

For I = 1 To 12

Plan2.Cells(Val(Me.Text_codigo) + 1,I).Value = Trim(CADASTRO(I))

Next I

MsgBox"ALTERAÇÃO EFETUADA", vbInformation, "CADASTRO DEENTREGADORES"

ThisWorkbook.Save

 

BotãoApagar:

 

Dim ENTREGADORES

ENTREGADORES =MsgBox("DESEJA REALMENTE EXCLUIR O REGISTRO", vbYesNo

+ vbQuestion,"CADASTRO DE CLIENTES")

If ENTREGADORES = vbYes Then

Plan2.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.

 

Conclusão:

 

Neste tutorial ensinei voc~e a criar o  banco de dados para ser cadastrados osregistros dos entregadores,  e acodificar o  formulário cadastro entregadore,tudode forma simples e objetiva, na próxima parte do tutorial daremos continuidadea criação do sistema. Bons estudos e até a próxima parte.

 


livros e cursos sugeridos sobre excel e vba:
Quer receber novidades e e-books gratuitos?

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-2021 ®

[LIVRO]: MACROS E PROGRAMAÇÃO VBA NO EXCEL 2010 - PASSO-A-PASSO

APRENDA COM JULIO BATTISTI - 1124 PÁGINAS: CLIQUE AQUI