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

Sistema de Controle para Prestadores de Serviço - Codificação dos Dados da Empresa - Parte 4

 

Objetivo:

 

O objetivo deste tutorial é darcontinuidade do deselvolvimento do sistema controle de prestadores de serviços,neste tutorial iremos criar o banco de dados, também iremos codificar  o formulário  de cadastro de empresas que criamos notutorial anterior.

 

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

 

Vamos utilizar a planilha2 para a criação deste banco dedados, que vai receber e armazenar os registros do formulário cadastroempresas, os campos que utilizaremos serão os seguintes:

 

Codigo, Razao, Fantazia, Cnpj, Ie, Endereco, Bairro,Telefone, Cidade, Estado e Cep.

 

Criando Aplicativos VBA no Excel - Júlio Battisti

Tela 001

 

Agora você deve formatar estes campos, em  toda a linha dos nomes dos campos  insira a cor cinza e negrito.

 

Criando Aplicativos VBA no Excel - Júlio Battisti

Tela 002

 

Nos  campos: Codigo,Cnpj e Ie devem ser formatados na categoria  “números”.

 

Criando Aplicativos VBA no Excel - Júlio Battisti

Tela 003

 

Os Campos: Razão, Fantazia, Endereço, Bairro, Cidade eEstado devem ficar formatados na categoria “Texto”.

 

Criando Aplicativos VBA no Excel - Júlio Battisti

Tela 004

 

O Campo: Telefone deve ficar  formatado na categoria “Telefone”.

 

Criando Aplicativos VBA no Excel - Júlio Battisti

Tela 005

 

E o campo: Cep na sua categoria “cep”

 

Criando Aplicativos VBA no Excel - Júlio Battisti

Tela 006

 

Vamos  começar acodificar o aplicativo pelos botões,  este codigo abaixo você deve inserir dentro dajanela de codigos dos mesmo, no evento clic.

 

BotãoCadastrar:

 

Dim bd As Database

Dim rs As Recordset

 

Set bd = OpenDatabase("C:\Documents andSettings\infohelp\Meus documentos\APLICATIVO\Prestadores\Prestadores.xls",False, False, "excel 8.0")

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

 

If Me.T_codigo >Me.Label15 Then

 

If Me.T_codigo = ""Then

Me.T_codigo.Text ="-"

End If

 

If Me.T_razao ="" Then

Me.T_razao ="-"

End If

 

If Me.T_nomefantazia ="" Then

Me.T_nomefantazia.Text= "-"

End If

 

If Me.T_cnpj = ""Then

Me.T_cnpj.Text ="-"

End If

 

If Me.T_Ie = ""Then

Me.T_Ie.Text ="-"

End If

 

If Me.T_endereco = "" Then

Me.T_endereco.Text ="-"

End If

 

If Me.T_bairro ="" Then

Me.T_bairro.Text ="-"

End If

 

If Me.T_telefone ="" Then

Me.T_telefone.Text ="-"

End If

 

If Me.Combo_cidade ="" Then

Me.Combo_cidade.Text ="-"

End If

 

If Me.T_estado ="" Then

Me.T_estado.Text ="-"

End If

 

If Me.T_cep = ""Then

Me.T_cep.Text ="-"

End If

 

Dim Cadastro(1 To 12)

Cadastro(1) = UCase(Me.T_codigo)

Cadastro(2) = UCase(Me.T_razao)

Cadastro(3) =LCase(Me.T_nomefantazia)

Cadastro(4) = LCase(Me.T_cnpj)

Cadastro(5) = LCase(Me.T_Ie)

Cadastro(6) = LCase(Me.T_endereco)

Cadastro(7) = LCase(Me.T_bairro)

Cadastro(8) = LCase(Me.T_telefone)

Cadastro(9) = LCase(Me.Combo_cidade)

Cadastro(10) = LCase(Me.T_estado)

Cadastro(11) = LCase(Me.T_cep)

Cadastro(12) =UCase(Me.T_codigo.Value)

 

DimEMPRESA As Object

Dim L, I

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

L = EMPRESA.Rows.Count + 1

If Len(Me.T_codigo) = 0Then

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

Else

For I= 1 To 12

Plan2.Cells(L, I).Value = Trim(Cadastro(I))

Next I

MsgBox "CADASTRADO", vbInformation, "EFETUADO COMSUCESSO"

ThisWorkbook.Save

End If

Exit Sub

Else

MsgBox"No campo CODIGO digite um número maior do que há no campo QTD paracasdastrar."

End If

 

Criando Aplicativos VBA no Excel - Júlio Battisti

Tela 007

 


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/


BotãoPesquisar:

 

Dim bd As Database

Dim rs As Recordset

 

Set bd = OpenDatabase("C:\Documents andSettings\infohelp\Meus documentos\APLICATIVO\Prestadores\Prestadores.xls",False, False, "excel 8.0")

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

rs.FindFirst "RAZAOLIKE'" & Me.T_razao & "'"

 

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

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

Me.T_razao = rs.Fields("RAZAO")

Me.T_nomefantazia =rs.Fields("FANTAZIA")

Me.T_cnpj =rs.Fields("CNPJ")

Me.T_Ie = rs.Fields("IE")

Me.T_endereco =rs.Fields("ENDERECO")

Me.T_bairro= rs.Fields("BAIRRO")

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

Me.Combo_cidade = rs.Fields("CIDADE")

Me.T_estado= rs.Fields("ESTADO")

Me.T_cep = rs.Fields("CEP")

 

BotãoEditar:

 

Dim Cadastro(1 To 12)

Cadastro(1) = UCase(Me.T_codigo)

Cadastro(2) = UCase(Me.T_razao)

Cadastro(3) = LCase(Me.T_nomefantazia)

Cadastro(4) = LCase(Me.T_cnpj)

Cadastro(5) = LCase(Me.T_Ie)

Cadastro(6) =LCase(Me.T_endereco)

Cadastro(7) = LCase(Me.T_bairro)

Cadastro(8) = LCase(Me.T_telefone)

Cadastro(9) = LCase(Me.Combo_cidade)

Cadastro(10) = LCase(Me.T_estado)

Cadastro(11) = LCase(Me.T_cep)

Cadastro(12) = UCase(Me.T_codigo.Value)

 

For I = 1 To 12

Plan2.Cells(Val(Me.T_codigo) + 1,I).Value = Trim(Cadastro(I))

Next I

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

ThisWorkbook.Save

 

Botão Apagar:

 

Dim prestador

prestador = MsgBox("DESEJA REALMENTE EXCLUIR OREGISTRO", vbYesNo + vbQuestion, "CADASTRO DE CLIENTES")

If prestador = vbYes Then

Plan2.Cells(Val(Me.T_codigo) + 1,1).EntireRow.Delete

ThisWorkbook.Save

End If

 

BotãoFechar:

 

Me.hide

 

Dentro do formulário, no evento inialize insira o seguinte código:

 

Label15 = Application.WorksheetFunction.CountA(Plan2.Columns(1))- 1

 

Criando Aplicativos VBA no Excel - Júlio Battisti

Tela 008

 

Conclusão:

 

Neste tutorial ensinei a criar o banco de dados,codificar o  formulário de cadastro deempresas, tudo de forma bem objetiva na próxima parte do tutorial daremoscontinuidade no desenlvovimento 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