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

Sistema de Controle para Prestadores de Serviço - Codificação do Cadastro de Serviços - Parte 6

 

Objetivo:

 

O objetivo deste tutorial é darcontinuidade do desenvolvimento do sistema controle de prestadores de serviços,vamos criar neste tutorial o banco de dados e codificar o formulário cadastro deserviços, no qual criamos no tutorial 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,  Parte 3 ,Parte4, Parte5  deste tutorial.

 

Utilizaremos  aplanilha3 para a criação deste banco de dados, os campos que utilizaremos serãoos seguintes:

 

Codigo, Tipo e Nome.

 

Criando Aplicativos VBA no Excel - Júlio Battisti

Tela 001

 

Vamos começar a formatar estes campos sendo que você deveinserir em toda a linha dos nomes dos campos  insira a cor cinza e negrito, para que osmesmo fiquem identificados como cabeçalho.

 

Criando Aplicativos VBA no Excel - Júlio Battisti

Tela 002

 

O campo: Codigo deve  ser formatados na  categoria “Geral”.

 

Criando Aplicativos VBA no Excel - Júlio Battisti

Tela 003

 

Os Campos: Tipo e Nome  devem ser formatados na categoria “Texto”.

 

Criando Aplicativos VBA no Excel - Júlio Battisti

Tela 004

 

Começaremos  acodificar o aplicativo pelos botões,  sendoque o código deve iser inserido  dentroda janela de codigo do mesmo e  no eventoclic.

 

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

 

If Me.CODIGO > Me.Label6Then

 

If Me.CODIGO = ""Then

Me.CODIGO.Text ="-"

End If

 

If Me.SERVICO ="" Then

Me.SERVICO= "-"

End If

 

If Me.Combo_NOME ="" Then

Me.Combo_NOME.Text ="-"

End If

 

Dim Cadastro(1 To 4)

Cadastro(1)= UCase(Me.CODIGO)

Cadastro(2) = UCase(Me.SERVICO)

Cadastro(3) = LCase(Me.Combo_NOME)

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

 

DimEMPRESA As Object

Dim L, I

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

L = EMPRESA.Rows.Count + 1

If Len(Me.CODIGO)= 0 Then

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

Else

For I= 1 To 4

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

 


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 005

 

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

rs.FindFirst "TIPOLIKE'" & Me.SERVICO & "'"

 

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

 

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

Me.SERVICO =rs.Fields("TIPO")

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

 

BotãoEditar:

 

Dim Cadastro(1 To 4)

Cadastro(1) = UCase(Me.CODIGO)

Cadastro(2) = UCase(Me.SERVICO)

Cadastro(3) = LCase(Me.Combo_NOME)

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

 

For I = 1 To 4

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

Next I

MsgBox "ALTERAÇÃOEFETUADA", 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

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

ThisWorkbook.Save

End If

 

BotãoFechar:

 

Me.hide

 

Agora você deve inserir o código abaixo dentro do formulário,  no evento inialize:

 

Label6 =Application.WorksheetFunction.CountA(Plan3.Columns(1)) – 1

 

Criando Aplicativos VBA no Excel - Júlio Battisti

Tela 006

 

Na propriedade do combo_nome,vamos fazer uma referência com o campo “nome” que esta localizado plan1,  você deve inserir Plan1! B2:b100 napropriedade Rowsource.

 

Criando Aplicativos VBA no Excel - Júlio Battisti

Tela 007

 

Conclusão:

 

Neste tutorial ensinei a criar o banco de dados,codificar o  formulário de cadastro serviçose fazer a interligação do combo_nome um o campo nome da planilha1  utilizando para isso a propriedade rowsource,tudo de forma bem objetiva, na próxima parte do vamos continuar nodesenlvovimento 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