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

Sistema de Controle para Prestadores de Serviço - Banco de Dados e Codificação - Parte 2

 

Objetivo:

 

O objetivo deste tutorial é darcontinuidade do deselvolvimento do sistema controle de prestadores de serviços,neste tutorial iremos criar o banco de dados e codificar  o formulário de cadastro pessoal dosprestadores de serviços.

 

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 deste tutorial.

 

Para criar o banco de dados vamos utilizar a planilha1,insira na mesma os seguintes campos abaixo:

 

Codigo, Nome, Endereco, Bairro, Cidade, Estado, Telefone eCep.

 

Criando Aplicativos VBA no Excel - Júlio Battisti

Tela 001

 

Agora iremos formatar estes campos, primeiro insira emtoda a linha dos nomes dos campos cor cinza e negrito.

 

Criando Aplicativos VBA no Excel - Júlio Battisti

Tela 002

 

As próximas formatações serão as seguintes:

 

Os campo: Codigo este deve ficar a propriedade na suacategoria  “geral”.

 

Criando Aplicativos VBA no Excel - Júlio Battisti

Tela 003

 

Os Campos: Nome, Endereço, Bairro, Cidade, Estadoformatados na categoria texto:

 

Criando Aplicativos VBA no Excel - Júlio Battisti

Tela 004

 

Os Campo: Telefone formatado na categoria “Telefone”.

 

Criando Aplicativos VBA no Excel - Júlio Battisti

Tela 005

 

E o campo: Cep na categoria “cep”

 

Criando Aplicativos VBA no Excel - Júlio Battisti

Tela 006

 

Agora iremos começar a codificar o aplicativo, este codigoabaixo você deve inserir dentro do botão cadastrar no seu evento clic.

 

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

 

If Me.Text_codigo >Me.Label12 Then

 

If Me.Text_codigo ="" Then

Me.Text_codigo.Text ="-"

End If

 

If Me.Text_nome = ""Then

Me.Text_nome ="-"

End If

 

If Me.Text_endereco ="" Then

Me.Text_endereco.Text ="-"

End If

 

If Me.Text_bairro ="" Then

Me.Text_bairro.Text ="-"

End If

 

If Me.Combo_cidade ="" Then

Me.Combo_cidade.Text ="-"

End If

 

If Me.Text_estado ="" Then

Me.Text_estado.Text ="-"

End If

 

If Me.Text_telefone = "" Then

Me.Text_telefone.Text ="-"

End If

 

If Me.Text_cep ="" Then

Me.Text_cep.Text ="-"

End If

 

Dim Cadastro(1 To 9)

 

Cadastro(1)= UCase(Me.Text_codigo)

Cadastro(2) = UCase(Me.Text_nome)

Cadastro(3) = LCase(Me.Text_endereco)

Cadastro(4) = LCase(Me.Text_bairro)

Cadastro(5) = LCase(Me.Combo_cidade)

Cadastro(6) = LCase(Me.Text_estado)

Cadastro(7) = LCase(Me.Text_telefone)

Cadastro(8) = LCase(Me.Text_cep)

Cadastro(9) =UCase(Me.Text_codigo.Value)

 

Dimprestador As Object

Dim L, I

Set prestador = Plan1.Cells(1, 1).CurrentRegion

L = prestador.Rows.Count + 1

If Len(Me.Text_codigo)= 0 Then

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

Else

For I = 1 To 9

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 CODIGO digite um númeromaior 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 007

 

Agora iremos para o botão pesquisar, o código também vaiser inserido dentro do evento clic, não irei mostar o código dentro da janelade código por não haver a necessidade, pois é dentro do mesmo evento quemostrei na tela acima.

 

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

 

rs.FindFirst "NOMELIKE'" & 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.Text_bairro = rs.Fields("BAIRRO")

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

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

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

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

 

BotãoEditar:

 

Dim Cadastro(1To 9)

Cadastro(1) = UCase(Me.Text_codigo)

Cadastro(2) = UCase(Me.Text_nome)

Cadastro(3) = LCase(Me.Text_endereco)

Cadastro(4) = LCase(Me.Text_bairro)

Cadastro(5) = LCase(Me.Combo_cidade)

Cadastro(6) = LCase(Me.Text_estado)

Cadastro(7) = LCase(Me.Text_telefone)

Cadastro(8) = LCase(Me.Text_cep)

Cadastro(9) = UCase(Me.Text_codigo.Value)

 

For I = 1 To 9

Plan1.Cells(Val(Me.Text_codigo) + 1,I).Value = Trim(Cadastro(I))

Next I

MsgBox"ALTERAÇÃO EFETUADA", vbInformation, "CADASTRO DEPRESTADORES"

ThisWorkbook.Save

 

BotãoApagar:

 

Dim prestador

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

If prestador = vbYes Then

Plan1.Cells(Val(Me.Text_codigo) + 1,1).EntireRow.Delete

ThisWorkbook.Save

End If

 

Botão Fechar:

 

Me.hide

 

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

 

Label12 = Application.WorksheetFunction.CountA(Plan1.Columns(1))- 1

 

Criando Aplicativos VBA no Excel - Júlio Battisti

Tela 008

 

Para que o código funcione, temos que ativar a bibliotecaMirosoft Dao, para isso na janela do editor do visual basic, clique no menuferramentas, referências e ative a bilioteca.

 

Criando Aplicativos VBA no Excel - Júlio Battisti

Tela 009

 

Conclusão:

 

Ensinei a criar o banco de dados, codificar o  formulário de cadastro de prestadores deserviços e ativar a biblioteca Microsoft Dao, tudo de forma bem objetiva napróxima parte do tutorial daremos continuidade 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