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

FILTRO DE TUTORIAIS:


Criando Aplicativo Para  Academia. Parte 7 

 

Objetivo:

O objetivo desta parte do tutorial é codificar o aplicativo e também fazer algumas alterações no banco de dados e nos objetos das interfaces, visando o melhoramento do mesmo

 

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

 

Nota:  Dentro da basta meus documentos  você deve criar uma pasta com o nome aplicativo e dentro desta criar outra basta com o nome de academia e colocar  a planilha do sistema dentro da mesma.

 

Outra observação muito importante é em relação ao código que abre o  banco de dados o mesmo esta com o seginte caminho:

 

Opendatabase (“C:documents and setings\infohelp\meusdocumentos\aplicativo\academia\academia.xls,false,
False,”excel 8.0”)

 

Este caminho pode variar de computador para computador, então, caso seu computador o caminho seja diferente você deve fazer a alteração da seguinte forma:

 

Através do seu computador abra a pasta meus documentos, depois a basta aplicativo enseguida a pasta academia e por último a planilha que estamos desenvolvendo o aplicativo, isso vai fazer com que você possa ver qual o caminho do banco de dados, através da barra de navegação que excel possui, se for diferente a que inseri acima, você deve copiar e substituir  o caminho abaixo em todos banco de dados do sistema para que o mesmo funcione:

 

C:documents and setings\infohelp\meusdocumentos\aplicativo\academia\academia.xls

 

Para iniciarmos vamos fazer algumas alterações no nosso sistema de forma bem objetiva, começaremos pelo banco de dados medidas, que esta representado pela plan3, iremos modificar todos os nomes dos  campos para os seguintes nomes:

 

Codigo

T_nome

T_medida

T_Atual

T_direita

T_Esquerda

T_direito

T_Esquerdo

T_Peitoral

Pun_direito

Pun_esquerdo

T_quadril

T_cintura

T_panturrilha

T_pant

Coxa

Cox

Bicps

Bicp

T_peito

Punho

Punh

C_qua

C_cintura

Panturrilha

Panturrilh

 

Basta inserir este  nomes nome cabeçalho, veja na tela abaixo:

 

Tela 001

 

A próxima alteração que iremos fazer é no nome dos formulários, o formulário cadastro iremos colocar cadastr, o formulário medidas vamos colocar medida e formulário modalidade para modalidad.

 

No formulário medidas vamos modificar o nome dos textbox conforme segue:

 

Nome do aluno para T_nome;

Ultima medida para T_medida;

Medida atual para T_atual;

 

Dentro das medidas antigas:

 

Coxa direita para T_direita;

Coxa esquerda para T_esquerda;

Biceps direita para T_direito;

Biceps esquerdo para T_esquerdo;

Peitoral para T_peitoral;

Punho direito para pun_direito;

Punho esquerdo para pun_esquerdo;

Quadril para T_quadril;

Cintura para T_cintura;

Panturrilha direita para T_panturrilha;

Panturrilha esuqerda para T_panturrilh;

 

Dentro das medidas novas:

 

Coxa direita para coxa;

Coxa esquerda para cox;

Biceps direita para bicps;

Biceps esquerdo para bicp;

Peitoral para T_peito;

Punho direito para punho;

Punho esquerdo para punh;

Quadril para C_qua;

Cintura para C_cintura;

Panturrilha direita para panturrilha;

Panturrilha esuqerda para panturrilh;

 

Vamos alterar o nome dos botoes da seguinte forma:

 

Botao Pesquisar para Command_pesquisar;

Botão Editar para C_editar;

Botão Apagar para C_apagar;

Botão Voltar para C_voltar;

 

Pronto estas são as alterações que você deve efetuar neste formulário.

 

Agora iremos começar a codificar as interfaces do aplicativo, vamos começar pela interface principal, insira os códigos abaixos conforme segue:

 

Dentro da janela de código do botão Alunos:

 

CADASTR.Show

 

Dentro da janela de código do botão Modalidades:

 

MODALIDAD.Show

 

Dentro da janela de código do botão Medidas:

 

MEDIDA.Show

 

No botão Mensalidades iremos fazer a troca do nome para mensalidade e dentro do mesmo insira o código abaixo:

 

mensalidades.Show

 

Dentro do botão fechar:

 

PRINCIPAL.Hide

 

Vamos codificar a interface cadastr:

 

Dentro do formulário insira o seguinte código, dentro da propredade initialize:

 

Label10 = Application.WorksheetFunction.CountA(Plan2.Columns(1)) – 1

 

Agora iremos inserir os códigos dentro dos botões:

 

Botão cadastrar:

 

Dim bd As Database

Dim rs As Recordset

 

Set bd = OpenDatabase("C:\Documents and Settings\infohelp\Meus documentos\APLICATIVO\Academia\academia.xls", False, False, "excel 8.0")

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

 

Dim CADASTRO(1 To 7)

    CADASTRO(1) = UCase(Me.COD)

    CADASTRO(2) = UCase(Me.NOME)

    CADASTRO(3) = LCase(Me.ENDERECO)

    CADASTRO(4) = UCase(Me.TELEFONE)

    CADASTRO(5) = UCase(Me.TEL)

    CADASTRO(6) = UCase(Me.MODALIDADE)

    CADASTRO(7) = UCase(Me.VALOR)

  

    CADASTRO(7) = UCase(Me.COD.Value)

   

    Dim agenda As Object

    Dim L, I

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

    L = ACADEMIA.Rows.Count + 1

    If Len(Me.COD) = 0 Then

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

    Else

 

                 For I = 1 To 7

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

                 Next I

              

                MsgBox "CADASTRADO", vbInformation, "EFETUADO COM SUCESSO"

               ThisWorkbook.Save

            End If

   

Exit Sub

 

MsgBox "Digite o codigo para casdastrar"

 

Dentro do botão pesquisar:

 

Dim DB As Database

Dim rs As Recordset

 

     Set DB = OpenDatabase("C:\Documents and Settings\infohelp\Meus documentos\APLICATIVO\Academia\academia.xls", False, False, "Excel 8.0")

 

   Set rs = DB.OpenRecordset("PLAN2$", dbOpenDynaset)

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

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

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

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

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

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

        Me.TEL = rs.Fields("TELEFON")

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

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

 

Dentro do botao editar:

 

Dim CADASTRO(1 To 7)

    CADASTRO(1) = UCase(Me.COD)

    CADASTRO(2) = UCase(Me.NOME)

    CADASTRO(3) = LCase(Me.ENDERECO)

    CADASTRO(4) = UCase(Me.TELEFONE)

    CADASTRO(5) = UCase(Me.TEL)

    CADASTRO(6) = UCase(Me.MODALIDADE)

    CADASTRO(7) = UCase(Me.VALOR)

       

    CADASTRO(7) = UCase(Me.Text_Registro.Value)

   

 For I = 1 To 7

        Plan2.Cells(Val(Me.Text_Registro) + 1, I).Value = Trim(CADASTRO(I))

        Next I

        MsgBox "ALTERAÇÃO EFETUADA", vbInformation, "CADASTRO DE ENDEREÇOS"

    ThisWorkbook.Save

 

Dentro do botão apagar:

 

Dim ACADEMIA

 ACADEMIA = MsgBox("DESEJA REALMENTE EXCLUIR O REGISTRO", vbYesNo + vbQuestion, "CADASTRO DE ENDEREÇOS")

 If ACADEMIA = vbYes Then

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

    ThisWorkbook.Save

End If

    

Dentro do botão voltar:

 

CADASTR.Hide

 

Agora iremos codificar a interface Medida:

 

Dentro do botão cadastrar:

 

Dim bd As Database

Dim rs As Recordset

Set bd = OpenDatabase("C:\Documents and Settings\infohelp\Meus documentos\APLICATIVO\Academia\academia.xls", False, False, "excel 8.0")

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

Dim CADASTRO(1 To 26)

   

    CADASTRO(1) = UCase(Me.Text_cod)

    CADASTRO(2) = UCase(Me.T_nome)

    CADASTRO(3) = UCase(Me.T_medida)

    CADASTRO(4) = LCase(Me.T_atual)

    CADASTRO(5) = UCase(Me.T_direita)

    CADASTRO(6) = UCase(Me.T_esquerda)

    CADASTRO(7) = UCase(Me.T_direito)

    CADASTRO(8) = UCase(Me.T_esquerdo)

    CADASTRO(9) = UCase(Me.T_peitoral)

    CADASTRO(10) = UCase(Me.Pun_direito)

    CADASTRO(11) = UCase(Me.Pun_esquerdo)

    CADASTRO(12) = UCase(Me.T_quadril)

    CADASTRO(13) = UCase(Me.T_cintura)

    CADASTRO(14) = UCase(Me.T_panturrilha)

    CADASTRO(15) = UCase(Me.T_Pant)

    CADASTRO(16) = UCase(Me.coxa)

    CADASTRO(17) = UCase(Me.cox)

    CADASTRO(18) = UCase(Me.bicps)

    CADASTRO(19) = UCase(Me.bicp)

    CADASTRO(20) = UCase(Me.T_peito)

    CADASTRO(21) = UCase(Me.punho)

    CADASTRO(22) = UCase(Me.punh)

    CADASTRO(23) = UCase(Me.C_qua)

    CADASTRO(24) = UCase(Me.C_cintura)

    CADASTRO(25) = UCase(Me.panturrilha)

    CADASTRO(26) = UCase(Me.panturrilh)

    CADASTRO(26) = UCase(Me.Text_cod)

  

    CADASTRO(26) = UCase(Me.Text_cod.Value)

   

    Dim agenda As Object

    Dim L, I

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

    L = ACADEMIA.Rows.Count + 1

    If Len(Me.Text_cod) = 0 Then

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

    Else

       

             For I = 1 To 26

                 Plan3.Cells(L, I).Value = Trim(CADASTRO(I))

                 Next I

              

                MsgBox "CADASTRADO", vbInformation, "EFETUADO COM SUCESSO"

               ThisWorkbook.Save

            End If

      

 Exit Sub

MsgBox "Digite o codigo para casdastrar"

 

Dentro do botão pesquisar:

 

Dim DB As Database

Dim rs As Recordset

  

          Set DB = OpenDatabase("C:\Documents and Settings\infohelp\Meus documentos\APLICATIVO\Academia\academia.xls", False, False, "Excel 8.0")

    Set rs = DB.OpenRecordset("PLAN3$", dbOpenDynaset)

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

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

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

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

        Me.T_medida = rs.Fields("T_MEDIDA")

        Me.T_atual = rs.Fields("T_ATUAL")

        Me.T_direita = rs.Fields("T_DIREITA")

        Me.T_esquerda = rs.Fields("T_ESQUERDA")

        Me.T_direito = rs.Fields("T_DIREITO")

        Me.T_esquerdo = rs.Fields("T_ESQUERDO")

        Me.T_peitoral = rs.Fields("T_PEITORAL")

        Me.Pun_direito = rs.Fields("PUN_DIREITO")

        Me.Pun_esquerdo = rs.Fields("PUN_ESQUERDO")

        Me.T_quadril = rs.Fields("T_QUADRIL")

        Me.T_cintura = rs.Fields("T_CINTURA")

        Me.T_panturrilha = rs.Fields("T_PANTURRILHA")

        Me.T_Pant = rs.Fields("T_PANT")

        Me.coxa = rs.Fields("COXA")

        Me.cox = rs.Fields("COX")

        Me.bicps = rs.Fields("BICPS")

        Me.bicp = rs.Fields("BICP")

        Me.T_peito = rs.Fields("T_PEITO")

        Me.punho = rs.Fields("PUNHO")

        Me.punh = rs.Fields("PUNH")

        Me.C_qua = rs.Fields("C_QUA")

        Me.C_cintura = rs.Fields("C_CINTURA")

        Me.panturrilha = rs.Fields("PANTURRILHA")

        Me.panturrilh = rs.Fields("PANTURRILH")

 

Dentro do botão editar:

 

Dim CADASTRO(1 To 26)

   

    CADASTRO(1) = UCase(Me.Text_cod)

 

    CADASTRO(2) = UCase(Me.T_nome)

    CADASTRO(3) = UCase(Me.T_medida)

    CADASTRO(4) = LCase(Me.T_atual)

    CADASTRO(5) = UCase(Me.T_direita)

    CADASTRO(6) = UCase(Me.T_esquerda)

    CADASTRO(7) = UCase(Me.T_direito)

    CADASTRO(8) = UCase(Me.T_esquerdo)

    CADASTRO(9) = UCase(Me.T_peitoral)

    CADASTRO(10) = UCase(Me.Pun_direito)

    CADASTRO(11) = UCase(Me.Pun_esquerdo)

    CADASTRO(12) = UCase(Me.T_quadril)

    CADASTRO(13) = UCase(Me.T_cintura)

    CADASTRO(14) = UCase(Me.T_panturrilha)

    CADASTRO(15) = UCase(Me.T_Pant)

    CADASTRO(16) = UCase(Me.coxa)

    CADASTRO(17) = UCase(Me.cox)

    CADASTRO(18) = UCase(Me.bicps)

    CADASTRO(19) = UCase(Me.bicp)

    CADASTRO(20) = UCase(Me.T_peito)

    CADASTRO(21) = UCase(Me.punho)

    CADASTRO(22) = UCase(Me.punh)

    CADASTRO(23) = UCase(Me.C_qua)

    CADASTRO(24) = UCase(Me.C_cintura)

    CADASTRO(25) = UCase(Me.panturrilha)

    CADASTRO(26) = UCase(Me.panturrilh)

    CADASTRO(26) = UCase(Me.Text_cod)

  

    CADASTRO(26) = UCase(Me.Text_cod.Value)

   

    For I = 1 To 26

        Plan3.Cells(Val(Me.Text_Registro) + 1, I).Value = Trim(CADASTRO(I))

        Next I

        MsgBox "ALTERAÇÃO EFETUADA", vbInformation, "CADASTRO DE ENDEREÇOS"

    ThisWorkbook.Save

 

Dentro do botao apagar:

 

Dim ACADEMIA

 ACADEMIA = MsgBox("DESEJA REALMENTE EXCLUIR O REGISTRO", vbYesNo + vbQuestion, "CADASTRO DE ENDEREÇOS")

 If ACADEMIA = vbYes Then

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

    ThisWorkbook.Save

End If

 

Dentro do botão voltar:

 

Me.Hide

 

Dentro do formulário na propriedade initialize:

 

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

 

Agora iremos codificar a interface mensalidades:

 

Dentro do formulario na propriedade initialize:

 

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

 

Agora iremos codificar os botões:

 

Dentro do botão cadastrar:

 

Dim bd As Database

Dim rs As Recordset

Set bd = OpenDatabase("C:\Documents and Settings\infohelp\Meus documentos\APLICATIVO\Academia\academia.xls", False, False, "excel 8.0")

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

 

Dim CADASTRO(1 To 16)

    CADASTRO(1) = UCase(Me.Text_codigo)

    CADASTRO(2) = UCase(Me.N_aluno)

    CADASTRO(3) = LCase(Me.TEXT_ANO)

    CADASTRO(4) = UCase(Me.JANEIRO)

     CADASTRO(5) = UCase(Me.JANEIRO)

    CADASTRO(6) = UCase(Me.FEVEREIRO)

    CADASTRO(7) = UCase(Me.MARCO)

    CADASTRO(8) = UCase(Me.ABRIL)

    CADASTRO(9) = UCase(Me.MAIO)

    CADASTRO(10) = UCase(Me.JUNHO)

    CADASTRO(11) = UCase(Me.JULHO)

     CADASTRO(12) = UCase(Me.AGOSTO)

    CADASTRO(13) = UCase(Me.SETEMBRO)

    CADASTRO(14) = UCase(Me.OUTUBRO)

    CADASTRO(15) = UCase(Me.NOVEMBRO)

    CADASTRO(16) = UCase(Me.DEZEMBRO)

  

    CADASTRO(16) = UCase(Me.Text_codigo.Value)

   

    Dim ACADEMIA As Object

    Dim L, I

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

    L = ACADEMIA.Rows.Count + 1

    If Len(Me.Text_codigo) = 0 Then

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

    Else    

 

             For I = 1 To 16

                 Plan4.Cells(L, I).Value = Trim(CADASTRO(I))

                 Next I

              

                MsgBox "CADASTRADO", vbInformation, "EFETUADO COM SUCESSO"

               ThisWorkbook.Save

            End If

     

 Exit Sub

MsgBox "Digite o codigo para casdastrar"

 

Dentro do botao pesquisar:

 

Dim DB As Database

Dim rs As Recordset

  

          Set DB = OpenDatabase("C:\Documents and Settings\infohelp\Meus documentos\APLICATIVO\Academia\academia.xls", False, False, "Excel 8.0")

    Set rs = DB.OpenRecordset("PLAN4$", dbOpenDynaset)

 

     rs.FindFirst "ALUNO LIKE'" & Me.N_aluno & "'"

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

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

        Me.N_aluno = rs.Fields("ALUNO")

        Me.TEXT_ANO = rs.Fields("ANO")

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

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

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

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

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

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

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

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

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

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

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

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

 

Dentro do botão editar:

 

Dim CADASTRO(1 To 16)

    CADASTRO(1) = UCase(Me.Text_codigo)

    CADASTRO(2) = UCase(Me.N_aluno)

    CADASTRO(3) = LCase(Me.TEXT_ANO)

    CADASTRO(4) = UCase(Me.JANEIRO)

     CADASTRO(5) = UCase(Me.JANEIRO)

    CADASTRO(6) = UCase(Me.FEVEREIRO)

    CADASTRO(7) = UCase(Me.MARCO)

    CADASTRO(8) = UCase(Me.ABRIL)

    CADASTRO(9) = UCase(Me.MAIO)

    CADASTRO(10) = UCase(Me.JUNHO)

    CADASTRO(11) = UCase(Me.JULHO)

     CADASTRO(12) = UCase(Me.AGOSTO)

    CADASTRO(13) = UCase(Me.SETEMBRO)

    CADASTRO(14) = UCase(Me.OUTUBRO)

    CADASTRO(15) = UCase(Me.NOVEMBRO)

    CADASTRO(16) = UCase(Me.DEZEMBRO)

    

    CADASTRO(16) = UCase(Me.Text_codigo.Value)

   

    For I = 1 To 16

        Plan4.Cells(Val(Me.Text_codigo) + 1, I).Value = Trim(CADASTRO(I))

        Next I

        MsgBox "ALTERAÇÃO EFETUADA", vbInformation, "CADASTRO DE ENDEREÇOS"

    ThisWorkbook.Save

 

Dentro do botão apagar:

 

Dim ACADEMIA

 ACADEMIA = MsgBox("DESEJA REALMENTE EXCLUIR O REGISTRO", vbYesNo + vbQuestion, "CADASTRO DE ENDEREÇOS")

 If ACADEMIA = vbYes Then

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

    ThisWorkbook.Save

End If

 

Dentro do botão voltar:

 

mensalidades.Hide

 

Agora iremos codificar a última interface modalidad, dentro da mesma insira o seguinte código:

 

Label7 = Application.WorksheetFunction.CountA(Plan5.Columns(1)) – 1

 

Vamos codificar os botões:

 

Botão cadastrar:

 

Dim bd As Database

Dim rs As Recordset

Set bd = OpenDatabase("C:\Documents and Settings\infohelp\Meus documentos\APLICATIVO\Academia\academia.xls", False, False, "excel 8.0")

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

Dim CADASTRO(1 To 4)

    CADASTRO(1) = UCase(Me.CODIGO)

    CADASTRO(2) = UCase(Me.MODALIDADE)

    CADASTRO(3) = LCase(Me.INSTRUTOR)

    CADASTRO(4) = UCase(Me.VALOR)

   

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

   

    Dim ACADEMIA As Object

    Dim L, I

    Set ACADEMIA = Plan5.Cells(1, 1).CurrentRegion

    L = ACADEMIA.Rows.Count + 1

    If Len(Me.CODIGO) = 0 Then

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

    Else

   

             For I = 1 To 4

                 Plan5.Cells(L, I).Value = Trim(CADASTRO(I))

                 Next I

              

                MsgBox "CADASTRADO", vbInformation, "EFETUADO COM SUCESSO"

               ThisWorkbook.Save

            End If

   

 Exit Sub

MsgBox "Digite o codigo para casdastrar"

 

Dentro do botão pesquisar:

 

Dim DB As Database

Dim rs As Recordset   

   

       Set DB = OpenDatabase("C:\Documents and Settings\infohelp\Meus documentos\APLICATIVO\Academia\academia.xls", False, False, "Excel 8.0")

    Set rs = DB.OpenRecordset("PLAN5$", dbOpenDynaset)

 

rs.FindFirst "MODALIDADE LIKE'" & Me.MODALIDADE & "'"

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

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

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

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

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

 

Dentro do botão editar:

 

Dim CADASTRO(1 To 4)

    CADASTRO(1) = UCase(Me.CODIGO)

    CADASTRO(2) = UCase(Me.MODALIDADE)

    CADASTRO(3) = LCase(Me.INSTRUTOR)

    CADASTRO(4) = UCase(Me.VALOR)

  

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

   

 For I = 1 To 4

        Plan5.Cells(Val(Me.CODIGO) + 1, I).Value = Trim(CADASTRO(I))

        Next I

        MsgBox "ALTERAÇÃO EFETUADA", vbInformation, "CADASTRO DE ENDEREÇOS"

    ThisWorkbook.Save

 

Dentro do botão apagar:

 

Dim ACADEMIA

 ACADEMIA = MsgBox("DESEJA REALMENTE EXCLUIR O REGISTRO", vbYesNo + vbQuestion, "CADASTRO DE ENDEREÇOS")

 If ACADEMIA = vbYes Then

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

    ThisWorkbook.Save

End If

    

Dentro do botão voltar:

 

MODALIDAD.Hide

 

Conclusão

 

Terminamos a codificação do aplicativo e com isso acabamos de concluir o mesmo, também fizemos modificações no banco de dados e nas interfaces  tudo de forma simples e objetiva, já no próximo tutorial começaremos a desenvolver um novo aplilcativo. Bons estudos a até a próxima parte.

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