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 : Sisvendalancherias008
Quer receber novidades e e-books gratuitos?

FILTRO DE TUTORIAIS:


Sistema de Venda Para Lancherias. Parte 8

 

Objetivo:

 

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

 

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

 

Para criar  este  banco vamos utilizar a plan4, a mesma vai conter os seguintes campos e vai ter a função de armazenar os dados referente ao produto, todas estas tabelas irão alimentar com os dados a nossa tabela principal de vendas:

 

Codigo, Produto, Nome, Valor e Fornecedor.

 

Tela 001

 

Vamos  fazer as seguintes formatações:  centralizar os campos , colocar em negrito e inserir uma cor cinza em toda linha, os mesmo devem ficar igual a tela abaixo, assim estes campos serão identificados como cabeçalhos:

 

Tela 002

 

Vamos fazer as seguintes formatações: os campos “codigo”,”produto”, deixar a categoria Geral, o campo “nome” e “fornecedor” vamos selecionar a categoria “texto” e campo “valor” a categoria “moeda” números positivos.

 

Tela 003

 

Tela 004

 

Tela 005

 

Vamos começar a codificar o formulário cadastro produtos, de um duplo clique sobre o formulário  para ativar a janela de código, dentro do mesmo, no evento “initialize” vamos inserir o código abaixo.

 

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

 

Tela 006

 

Vamos  inserir o codigo abaixo dentro do botão cadastrar, clique duas vezes sobre o mesmo para ativar  a janela de codigo,  copie e cole o código abaixo  na propriedade clic, ou seja, quando você clicar no botão será executado o código.

 

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("Plan4$", dbOpenDynaset)

 

If Me.T_CODIGO > Me.Label9 Then

 

If Me.T_CODIGO = "" Then

Me.T_CODIGO.Text = "-"

End If

 

If Me.T_NOME.Text = "" Then

Me.T_NOME.Text = "-"

End If

 

If Me.Combo_FORNECEDOR = "" Then

Me.Combo_FORNECEDOR.Text = "-"

End If

 

If Me.T_PRODUTO = "" Then

Me.T_PRODUTO.Text = "-"

End If

 

If Me.T_VALOR = "" Then

Me.T_VALOR.Text = "-"

End If

 

Dim Cadastro(1 To 5)

Cadastro(1) = UCase(Me.T_CODIGO)

Cadastro(2) = UCase(Me.T_PRODUTO)

Cadastro(3) = LCase(Me.T_NOME)

Cadastro(4) = UCase(Me.T_VALOR)

Cadastro(5) = UCase(Me.Combo_FORNECEDOR)

 

Cadastro(5) = UCase(Me.T_CODIGO.Value)

 

Dim produtos As Object

Dim L, I

Set produtos = Plan4.Cells(1, 1).CurrentRegion

L = produtos.Rows.Count + 1

If Len(Me.T_CODIGO) = 0 Then

MsgBox "VOCÊ NÃO DIGITOU NENHUM NOME PARA INCLUSÃO", vbCritical, "CADASTRO DE PRODUTOS"

 

Else

 

For I = 1 To 5

Plan4.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 que há no campo QTD para casdastrar."

 

End If

 

Tela 007

 

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("Plan4$", dbOpenDynaset)

 

rs.FindFirst "NOME LIKE'" & Me.T_NOME & "'"

 

If rs.NoMatch = True Then MsgBox "Nome não cadastrado", vbInformation, "Banco de dados": Exit Sub

Me.T_CODIGO = rs.Fields("CODIGO")

Me.T_PRODUTO = rs.Fields("PRODUTO")

Me.T_NOME = rs.Fields("NOME")

Me.T_VALOR = rs.Fields("VALOR")

Me.Combo_FORNECEDOR = rs.Fields("FORNECEDOR")

 

Tela 008

 

Botão Editar:

 

Dim Cadastro(1 To 5)

Cadastro(1) = UCase(Me.T_CODIGO)

Cadastro(2) = UCase(Me.T_PRODUTO)

Cadastro(3) = LCase(Me.T_NOME)

Cadastro(4) = UCase(Me.T_VALOR)

Cadastro(5) = UCase(Me.Combo_FORNECEDOR)

 

Cadastro(5) = UCase(Me.T_CODIGO.Value)

 

For I = 1 To 5

Plan4.Cells(Val(Me.T_CODIGO) + 1, I).Value = Trim(Cadastro(I))

Next I

MsgBox "ALTERAÇÃO EFETUADA", vbInformation, "CADASTRO DE PRODUTOS"

ThisWorkbook.Save

 

Tela 009

 

Botão Apagar:

 

Dim produtos

produtos = MsgBox("DESEJA REALMENTE EXCLUIR O REGISTRO", vbYesNo + vbQuestion, "CADASTRO DE PRODUTOS")

If produtos = vbYes Then

Plan4.Cells(Val(Me.T_CODIGO) + 1, 1).EntireRow.Delete

ThisWorkbook.Save

End If

 

Botão Fechar:

 

Me.Hide

 

Tela 010

 

Tela 011

 

Conclusão:

 

Neste tutorial ensinei você criar o banco de dados e a codificar o formulário para cadastro de produtos, sempre de uma 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