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: PrincipalTutoriaisInformatizando sua Empresa com Excel : Sisvendalancherias004
Quer receber novidades e e-books gratuitos?

FILTRO DE TUTORIAIS:


Sistema de Venda Para Lancherias. Parte 4

 

Objetivo:

 

O objetivo deste tutorial é de continuar o desenvolvimento do sistema simples de venda para lancheria, iremos neste tutorial  criar o banco de dados e codificar o formulário cadastro de clientes.

 

Pré-requisito:

 

Para você poder acompanhar o desenvolvimento deste tutorial, será necessário ter conhecimento no mínimo do “Curso Básico de Excel e os Tutoriais Utilizando Editor do Visual Basic do Excel Parte 1 e Parte2, Parte1,Parte2 e Parte 3  deste tutorial”.

 

Vamos começar a criar o banco de dados para armazenar os registros inseridos através do formulário de cadastro de clientes. Abra o nosso projeto, vamos utilizar a plan1 para a criação deste banco 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 inserir uma cor cinza em toda linha, os mesmo devem ficar igual a tela abaixo:

 

Tela 002

 

Agora iremos formatar estes campos 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 os mesmo devem receber apenas texto em sua entrada, isso, não quer dizer que não podemos inserir números, mas o controle de configuração é melhor desta maneira e por último o campo “telefone” iremos selecionar a opção “especial – telefone”, veja estes procedimentos nas telas baixos:

 

Tela 003 (Estes campos iremos deixar com entrada geral)

 

Tela 004 (Formatando os campos nome , cidade  e estado com entrada para texto)

 

Tela 005

 

Pronto esta concluido o nosso banco de dados, agora iremos começar a codificar o formulário cadastro de clientes, 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 a contagem de quantos registros estão armazenados no banco de dados.

 

Label9 = Application.WorksheetFunction.CountA(Plan1.Columns(1)) – 1

 

Tela 006

 

Agora iremos inserir o codigo abaixo dentro do botão cadastrar, clique duas vezes sobre o mesmo para abrir a janela de codigo, mas antes de inserir o código iremos ativar uma biblioteca chamada Microsoft Dao 3.6, a versão  pode variar 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 and Settings\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 As Object

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ÃO DIGITOU NENHUM NOME PARA INCLUSÃO", vbCritical,

"CADASTRO DE CLIENTES"

 

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 do que há no campo QTD

para casdastrar."

 

End If

 

Tela 008

 

Faça o mesmo processo para inserir os codigos nos demais botões, abaixo o código de cada um.

 

Botão Pesquisar:

 

Dim bd As Database

Dim rs As Recordset

 

Set bd = OpenDatabase("C:\Documents and Settings\infohelp\Meus

documentos\APLICATIVO\Controle Venda\vendas.xls", False, False, "excel 8.0")

Set rs = bd.OpenRecordset("Plan1$", dbOpenDynaset)

 

rs.FindFirst "NOME LIKE'" & 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ão Editar:

 

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 DE ENDEREÇOS"

ThisWorkbook.Save

 

Botão Apagar:

 

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ão Fechar:

 

Me.Hide

 

OBS: Mais adiante, nos próximos tutoriais iremos voltar a mexer em dos objetos deste formulário para fazer uma interligação.

 

Conclusão:

 

Ensinei a criar o  banco de dados, ativar a biblioteca microsot Dao e a codificar o  formulário cadastro de clientes,tudo de forma simples e objetiva, na próxima parte do tutorial daremos continuidade a criação do sistema. Bons estudos e até a próxima parte.

 


Confira todas as partes deste tutorial:

Quer receber novidades e e-books gratuitos?

Cursos Online

  • Banco de Dados
  • Carreira
  • Criação/Web
  • Excel/Projetos
  • Formação
  • + Todas as categorias
  • Essential SSL

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

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

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