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.

FRONTPAGE - BÁSICO Criação de Páginas para Internet - Introdução Criando o Primeiro Arquivo HTML DREAMWEAVER - BÁSICO Introdução ao Dreamweaver MX 2004 Projeto Web – Parte 01 Projeto Web – Parte 04 Projeto Web – Parte 03 Criação de Tabelas no Dreamweaver Dreamweaver Basico - Começando a usar o DreamWeaver Dreamweaver Basico - Configurações de Definição de Sites Dreamweaver Basico - Estruturação de Páginas - Usando Tabelas - Parte 1 Dreamweaver Basico - Estruturação de Páginas - Usando Tabelas - Parte 2 Dreamweaver Basico - Definição Básica do Design e Inserção de Conteúdo Dreamweaver Basico - Criação de Links Dreamweaver Basico - Configuração de Links Usando Tabelas no DreamWeaver Usando Imagens no Dreamweaver Usando Modelos no Dreamweaver Conhecendo o Dreamweaver 8 Usando comportamentos para criar um menu pop up no Dreamweaver Usando a paleta Behaviors do Dreamweaver - Parte 1 Usando Camadas Para Exibir Dicas de Formulários Fazendo um Site com Templates Prontos no Dreamweaver HTML BÁSICO HTML Básico - Introdução à Internet HTML Básico - Alinhamento de Texto HTML Básico - Cabeçalhos e Formatação de Texto HTML Básico - Formatação de Texto HTML Básico - Criação e configuração de links HTML Básico - Criando Listas Ordenadas e Listas de Definição HTML Básico - Criação de Links Internos e Externos HTML Básico - Criação de Links Externos E Links de E-mail HTML Básico - Inserindo Imagens na Página HTML Básico - Introdução à Tabelas HTML Básico - Criação de Formulários - Parte 1 HTML Básico - Criação de Formulários - Parte 2 DREAMWEAVER - PROGRAMAÇÃO PHP Galeria de Fotos com Efeito Lightbox Dinâmica Criando Sistema de Cadastro de Emails e Upload de Imagens (Parte 1) Criando Sistema de Cadastro de Emails e Upload de Imagens (Parte 2) Criando Sistema de Cadastro de Emails e Upload de Imagens (Parte Final) Alternando Cores da Tabela no Resultado de uma Consulta Como Criar um Contador de Visitas (Acessos) Criando Galeria de Fotos (Tiny SlideShow) Criando Ícone para URL Criando Recurso Imprimir Criando Sites Auto-Ajustáveis de Acordo com a Resolução Formulário de Contato com Envio de Dados por Email Galeria de Fotos com Efeito Lightbox e Upload Múltiplo de Imagens

CRIANDO UM APLICATIVO PARA UMA ACADEMIA Criando Aplicativo Para Academia - Parte 1 Criando Aplicativo Para Academia - Parte 2 Criando Aplicativo Para Academia - Parte 3 Criando Aplicativo Para Academia - Parte 4 Criando Aplicativo Para Academia - Parte 5 Criando Aplicativo Para Academia - Parte 6 Criando Aplicativo Para Academia - Parte Final WEBSPHERE Apresentando o WebSphere Application Server da IBM Instalação do WebSphere Application Server Configurando uma aplicação no WAS Configurando a segurança no WAS SISTEMA DE SALÃO DE BELEZA Sistema Salão de Beleza - Parte 1 Sistema Salão de Beleza - Parte 2 Sistema Salão de Beleza - Parte 3 Sistema Salão de Beleza - Parte 4 Sistema Salão de Beleza - Parte 5 Sistema Salão de Beleza - Parte 6 Sistema Salão de Beleza - Parte 7 Sistema Salão de Beleza - Parte 8 Sistema Salão de Beleza - Parte 9 Sistema Salão de Beleza - Parte 10 Sistema Salão de Beleza - Parte 11 Sistema Salão de Beleza - Parte 12 Sistema Salão de Beleza - Parte 13 Sistema Salão de Beleza - Parte 14 SISTEMA PARA GERENCIAMENTO DE IMÓVEIS Sistema Para Gerenciamento de Imóveis - Parte 01 Sistema Para Gerenciamento de Imóveis - Parte 02 Sistema Para Gerenciamento de Imóveis - Parte 03 Sistema Para Gerenciamento de Imóveis - Parte 04 Sistema Para Gerenciamento de Imóveis - Parte 05 Sistema Para Gerenciamento de Imóveis - Parte 06 Sistema Para Gerenciamento de Imóveis - Parte 07 Sistema Para Gerenciamento de Imóveis - Parte 08 Sistema Para Gerenciamento de Imóveis - Parte 09 Sistema Para Gerenciamento de Imóveis - Parte 10 Sistema Para Gerenciamento de Imóveis - Parte 11