Cadastro em Excel com VBA Parte 3, código para o cadastro...

CADASTRO EM EXCEL COM VBA PARTE 3

CÓDIGO PARA CADASTROS

Bom o código que citarei a diante poderá usar em todos os sistemas desenvolvidos em VBA, pois é padrão e muito fácil, depois que pegamos o jeito da coisa é moleza...

Vamos então relembrar já postei a parte 1 (que inicia o projeto, criando a planilha o formulário e os objetos tudo passo a passo) e a parte 2 ( onde ensino a criar um numero automático para servir de código para os itens gravados na planilha) ... Ambas se encontram em meu blog...

Caso não tenha lido é essencial que leia pois se não ficará perdido com as informações contidas nesse post já que essa é a parte 3.

Dando continuidade...

Vamos abrir o modulo_geral e iniciar o código...

o código que fará o cadastro é o seguinte : 

Function CADASTRO()

If TESTE.TXT_CAMPO1.Text = "" Then'se o campo 1 for igual a vazio faça

MsgBox "CAMPO_1 É OBRIGATÓRIO", vbExclamation 'caixa de mensagem

TESTE.TXT_CAMPO1.SetFocus 'leva o ponteiro do mouse de novo para o campo se ele estivar vazio

Exit Function 'sai da função se o campo for vazio

Else ' se nao for vazio prosseguir

End If

If TESTE.TXT_CAMPO2.Text = "" Then'se o campo 2 for igual a vazio faça

MsgBox "CAMPO_2 É OBRIGATÓRIO", vbExclamation 'caixa de mensagem

TESTE.TXT_CAMPO2.SetFocus 'leva o ponteiro do mouse de novo para o campo se ele estivar vazio

Exit Function 'sai da função se o campo for vazio

Else ' se nao for vazio prosseguir

End If

If TESTE.TXT_CAMPO3.Text = "" Then'se o campo 3 for igual a vazio faça

MsgBox "CAMPO_3 É OBRIGATÓRIO", vbExclamation 'caixa de mensagem

TESTE.TXT_CAMPO3.SetFocus 'leva o ponteiro do mouse de novo para o campo se ele estivar vazio

Exit Function 'sai da função se o campo for vazio

Else ' se nao for vazio prosseguir

End If

Dim BANCO As Database

Dim TABELA As Recordset

Set BANCO = OpenDatabase(ThisWorkbook.Path & "/" & ThisWorkbook.Name, False, False, "EXCEL 8.0")

Sql = "insert into [CADASTRO$] (CODIGO,CAMPO_1,CAMPO_2,CAMPO_3)VALUES ('" & TESTE.TXT_NUMERO & "','" & TESTE.TXT_CAMPO1 & "','" & TESTE.TXT_CAMPO2 & "','" & TESTE.TXT_CAMPO3 & "')"

BANCO.Execute Sql   ' executa o código sql acima que é o código do cadastro

BANCO.Close  'fecha o banco de dados

modulo_geral.NUM_AUTO 'chamar a função NUM_AUTO para que ao cadastrar o numero mude para o próximo.

TESTE.TXT_CAMPO1.Text = ""  'limpa o CAMPO 1

TESTE.TXT_CAMPO2.Text = "" 'limpa o CAMPO 2

TESTE.TXT_CAMPO3.Text = "" 'limpa o CAMPO 3

TESTE.TXT_CAMPO1.SetFocus   ' leva o ponteiro do mouse para o campo 1 de novo

End Function

CADASTRO  aqui vai o                   

 nome da planilha que temos 

em nosso banco de dados,

 para o código saber onde

 serão gravadas as informações...

CODIGO,CAMPO_1,CAMPO_2,CAMPO_3

aqui vai o nome de cada

 titulo de coluna dentro             

 do nosso banco de dados..

('" & TESTE.TXT_NUMERO & "','" & TESTE.TXT_CAMPO1 & "','" & TESTE.TXT_CAMPO2 & "','" & TESTE.TXT_CAMPO3 & "')"

aqui vão os nomes dos objetos sempre vem o nome do formulário e "." ponto e depois o nome do objeto

 entre os sinais descritos no código acima '" & aqui dentro vai o formulário e o objeto & "'...

pois o código é esse para você usar em seus projetos é só substituir os textos das marcações para os seu objetos, planilha, formulário etc...

CHAMANDO O CÓDIGO CRIADO

DENTRO DO BOTÃO DE COMANDO GRAVAR

Vamos dar um clique 

duplo no botão para 

abrir o editor de códigos          

do mesmo...

que se abrirá assim:

vamos escrever o seguinte código:

modulo_geral.cadastro

vamos rodar o nosso projeto e ver o que acontece:

Se clicarmos no botão do jeito que está será exibido a seguinte mensagem:

que é exibida devido ao código :

If TESTE.TXT_CAMPO1.Text = "" Then

MsgBox "CAMPO_1 É OBRIGATÓRIO", vbExclamation 

TESTE.TXT_CAMPO1.SetFocus

Exit Function

Else

End If

Agora vamos por alguma informação no campo 1 e vamos clicar de novo no botão GRAVAR

que é exibida devido ao código :

If TESTE.TXT_CAMPO1.Text = "" Then

MsgBox "CAMPO_1 É OBRIGATÓRIO", vbExclamation 

TESTE.TXT_CAMPO1.SetFocus

Exit Function

Else

End If

E POR AÍ VAI ATÉ QUE TODAS AS INFORMAÇÕES ESTEJAM PREENCHIDAS, SÓ ASSIM ELE EFETUARÁ O CADASTRO 

Veja um cadastro efetuado...

VEJA QUE O NUMERO 2 JÁ FOI GERADO

OS CAMPOS JÁ FORAM LIMPOS E O PONTEIRO DO MOUSE FOI PARA O CAMPO 1

EFETUEI UNS CADASTROS PARA SERVIR DE EXEMPLO...

É ISSO AÍ. ESPERO QUE TENHAM GOSTADO E IREI DAR CONTINUIDADE COM ESSE MESMO PROJETO, PORÉM ENSINANDO A ALTERAR, EXCLUIR E PESQUISAR AS INFORMAÇÕES QUE SÃO INSERIDAS.