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

Sistema de Venda Para Lancherias - Banco de Dados e Codificação de Fornecedores - Parte 6

 

Objetivo:

 

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

 

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 e Parte 5 deste tutorial”.

 

Para criar o banco vamos utilizar a plan3, a mesma vai conter os seguintes campos:

 

Codigo, Fornecedor, Nome e Produtos.

 

Criando Aplicativos VBA no Excel - Júlio Battisti

Tela 001

 

Agora você deve 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:

 

Criando Aplicativos VBA no Excel - Júlio Battisti

Tela 002

 

Agora você deve fazer as seguintes formatações: os campos “codigo”,”fornecedor” e “produtos”, vamos deixar a categoria Geral e o campo “nome” vamos selecionar a categoria “texto”.

 

Criando Aplicativos VBA no Excel - Júlio Battisti

Tela 003 (Estes campos iremos deixar com entrada geral)

 

Criando Aplicativos VBA no Excel - Júlio Battisti

Tela 004

 

Concluido o banco de dados, vamos começar a codificar o formulário cadastro de fornecedores, 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(Plan3.Columns(1)) – 1

 

Criando Aplicativos VBA no Excel - Júlio Battisti

Tela 005

 

Vamos  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 na sua propriedade clic, ou seja, quando voc~e 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("Plan3$", dbOpenDynaset)

 

If Me.TextBox_codigo >Me.Label9 Then

 

If Me.TextBox_codigo = "" Then

Me.TextBox_codigo.Text = "-"

End If

 

If Me.TextBox_nome.Text = "" Then

Me.TextBox_nome.Text = "-"

End If

 

If Me.TextBox_Fornecedor = "" Then

Me.TextBox_Fornecedor.Text = "-"

End If

 

If Me.TextBox_produtos = "" Then

Me.TextBox_produtos.Text = "-"

End If

 

Dim Cadastro(1 To 4)

Cadastro(1) = UCase(Me.TextBox_codigo)

Cadastro(2) = UCase(Me.TextBox_Fornecedor)

Cadastro(3) = LCase(Me.TextBox_nome)

Cadastro(4) = UCase(Me.TextBox_produtos)

 

Cadastro(4) = UCase(Me.TextBox_codigo.Value)

 

Dim fornecedor As Object

Dim L, I

Set fornecedor = Plan3.Cells(1, 1).CurrentRegion

L = fornecedor.Rows.Count + 1

If Len(Me.TextBox_codigo) = 0 Then

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

Else

 

For I = 1 To 4

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

 


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 006

 

Vamos seguir 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("Plan3$", dbOpenDynaset)

 

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

 

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

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

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

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

Me.TextBox_produtos = rs.Fields("PRODUTOS")

 

Criando Aplicativos VBA no Excel - Júlio Battisti

Tela 007

 

Botão Editar:

 

Dim Cadastro(1 To 4)

           Cadastro(1) = UCase(Me.TextBox_codigo)

           Cadastro(2) = UCase(Me.TextBox_Fornecedor)

           Cadastro(3) = LCase(Me.TextBox_nome)

           Cadastro(4) = UCase(Me.TextBox_produtos)

 

Cadastro(4) = UCase(Me.TextBox_codigo.Value)

 

For I = 1 To 4

Plan3.Cells(Val(Me.TextBox_codigo) + 1, I).Value = Trim(Cadastro(I))

Next I

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

ThisWorkbook.Save

 

Criando Aplicativos VBA no Excel - Júlio Battisti

Tela 008

 

Botão Apagar:

 

Dim fornecedor

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

If fornecedor = vbYes Then

        Plan3.Cells(Val(Me.TextBox_codigo) + 1, 1).EntireRow.Delete

    ThisWorkbook.Save

End If

 

Botão Fechar:

 

Me.Hide

 

Criando Aplicativos VBA no Excel - Júlio Battisti

Tela 009

 

Criando Aplicativos VBA no Excel - Júlio Battisti

Tela 010

 

Conclusão:

 

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

 


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