Programação VBA. Parte 13

 

Objetivo:

 

O objetivo deste  tutorial é  dar continuidade no aprendizado de VBA, irei ensinar você a codificar a interface grafica que criamos no tutorial anterior, neste irei ensinar o código para identificar quantos registros existem no banco de dados e o código para cadastro de registros. Mostrando sempre através de telas para facilitar o seu aprendizado.

 

Pré-requisito:

 

Para você poder acompanhar o desenvolvimento deste tutorial, será necessário ter conhecimento no mínimo de informática e Parte 1, Parte 2, Parte 3, Parte 4, Parte 5, Parte 6,  Parte 7, Parte 8, Parte 9,  Parte 10, Parte 11 e Parte 12  deste tutorial.

 

NOTA: A partir deste sistema, irei oferecer serviços de acessoria em desenvolvimento de sistemas em Excel, portanto, se você quiser adaptar ou criar um sistema conforme sua necessidade, entre em contato comigo através do e-mail: erico_2223@yahoo.com.br.

 

Bom, vamos começar aprender a codificar a interface grafica do aplicativo, irei passar para vocês códigos basicos que irão cadastrar, editar, pesquisar, apagar e fechar  o formulário.

 

O primeiro código que irei ensinar terá uma função de contar quantos registros tem o banco de dados, este é muito útil, o mesme esta logo abaixo e deve ser inserido dentro do formulário no seu evento initialize, para que quando  o mesmo for aberto o código já inicie automatico.

 

Label11 = Application.WorksheetFunction.CountA(Plan1.Columns(1)) – 1

 

Tela  001

 

Começamos o codigo definindo o objeto que vai receber os dados, neste caso vai ser a label 11, depois utilizamos o metodo aplicação mais a funcão contar e dentro do parenteses o nome da planilha que neste caso vai ser Plan1 vamos contar por coluna – 1, isso porque a primeira linha é o cabeçalho.

 

Vamos  agora criar  código para inserir os registros no banco de dados, este iremos colocar dentro do botão cadstrar no seu evento clic, começaremos utilizando duas variaveis uma para conectar outra para abrir, então temos que declarar as mesmas para que funcione.

 

Dim bd As Database

Dim RS As Recordset

 

Tela 001

 

Feito isso precesimos abrir o banco e a tabela.

 

Set bd = OpenDatabase(ThisWorkbook.Path & "\" & ThisWorkbook.Name, False, False, "excel 8.0")

Set RS = bd.OpenRecordset("PLAN1$", dbOpenDynaset)

 

Note que vou mostrar de forma objetiva os códigos para que você possa vir a compreender melhor estes codigos e depois utiliza-los na criação de algum sistema para você.

 

Tela 002

 

Agora vem uma parte que é o seguinte, o codigo não é gerado automatico, então, você é quem deverá inserir o mesmo, mas aí eu pensei uma forma do usuario não repetir o mesmo código, então criei uma condição, como sabemos o numero de registro no banco, por exemplo, temos apenas um registro, então, o código deverá ser maior do qe 1 para poder ser cadastrado. Para isso usei a condição abaixo, a mesma só era entrar para executar os comandos para o cadastramento dos resgitros, dentro desta condição é que iremos criar os códigos dde cadastro.

 

If Me.TextBox1 > Me.Label11 Then

 

End If

 

Tela 003

 

Agora começamos a criar a função de cadastro:

 

                     Dim cadastro(1 To 7)

                    cadastro(1) = UCase(Me.TextBox1)

                    cadastro(2) = UCase(Me.TextBox2)

                    cadastro(3) = UCase(Me.TextBox3)

                    cadastro(4) = UCase(Me.TextBox4)

                    cadastro(5) = UCase(Me.TextBox5)

                    cadastro(6) = UCase(Me.TextBox6)

                    cadastro(7) = UCase(Me.TextBox7)

 

                    cadastro(7) = UCase(Me.TextBox1.Value)

 

Dim PROJETO As Object

            Dim L, i

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

            L = PROJETO.Rows.Count + 1

                        If Len(Me.TextBox1) = 0 Then

                                 MsgBox "VOCÊ NÃO DIGITOU NENHUM DADO PARA INCLUSÃO", vbCritical, "CADASTRO DE DADOS"

 

                        Else

                                      For i = 1 To 7

                                      Plan1.Cells(L, i).Value = Trim(cadastro(i))

                                   Next i

 

                            MsgBox "CADASTRO", vbInformation, "EFETUADO COM SUCESSO"

 

                                           ThisWorkbook.Save

                           End If

 

               Exit Sub

         Else

        MsgBox "No campo COD digite um número maior do que há no campo  registro no banco para casdastrar."

 

End If

 

Note que a mesma é bem extensa, mas irei explica-la de forma bem objetiva para não confundi-lo, na primeira parte colocamos os objetos que neste caso serão os textbox, e do lado esquerdo cada cadastro(1) representa uma coluna na planilha, na segunda parte vamos fazer com que seja inserido os registros através do for, antes testamos o primeiro text que nesta caso é o codigo, se o mesmo estiver fazio aparacerá uma mensagem, isso ocorre porque você terá que inserir o codigo.

 

Caso o resigtro tenha sido enserido corretamente, apresentamos uma mensagem para o usuario saber que ocorreu tudo bem e logo abaixo colocamos um comando para salvar as alterações na planilha, para que na hora que você fechar o sistema não tenha a necessidade salvar a planilha.

 

Espero que você tenha compreendido o funcionamento dos códigos, no inicio pode parecer meio confuso, mas é questão de tempo para que venhas compreender melhor.

 

Tela 004

 

Conclusão:

 

Neste tutorial ensinei você a criar  o código que ira mostrar quantos registros armazenados existem no bacno de dados e tambem como criar o código para cadastrar os resgistros, mostrado de forma  simples direta e objetiva através das telas o que vai facilitar o seu aprendizado. Bons estudos e até a próxima parte.

 

CURSO PROFISSIONALIZANTE DE INFORMÁTICA

Curso Técnico Profissionalizante Completo em Informática - Windows 10 - Word - Excel - Access- PowerPoint - Photoshop - Redes - Lógica de Programação - Delphi - VB.NET São 68 Cursos - 3440 Vídeo Aulas - 396:07 horas 68 Certificados de Conclusão e Acesso Vitalício

Domine Todos os Recursos de Informática Exigidos pelo Mercado de Trabalho, Através de Exemplos Práticos, Completos e Úteis, Detalhadamente Explicados - Passo a Passo

Para Todos os Detalhes, Acesse:     https://juliobattisti.com.br/informatica-curso-completo-1v.asp