Excel VBA, Projeto Agenda Telefônica Parte 3...

CÓDIGO VBA PARA CADASTROS EM GERAL

Bom galera hoje irei dar continuidade ao post 2 do projeto Agenda Telefônica em VBA...

Quem não leu os posts 1 e 2, recomendo que leiam pois essa é a continuação deles assim fica mais fácil o entendimento e aprendizado...

Parte 1:
http://excelamador.blogspot.com.br/2013/03/excel-vba-agenda-telefonica-passo-passo.html

Parte 2:

http://excelamador.blogspot.com.br/2013/03/excel-vba-projeto-agenda-telefonica.html

PARTE III

PASSO A PASSO...

Abrir a pasta de trabalho que criamos nos posts anteriores 

Abrir também o Editor VBA (Alt + F11)...

CRIANDO O CÓDIGO...

Vamos abrir o módulo, para criarmos a nossa função que irá se chamar CADASTRO...

Dentro da função criada vamos por o seguinte código...




If frmagenda.TXT_NOME.Text = "" Then
MsgBox "NOME COMPLETO É OBRIGATÓRIO", vbExclamation
frmagenda.TXT_NOME.SetFocus
Exit Function
Else
End If

'O código acima serve para avisar o usuário quando a caixa de texto TXT_NOME estiver vazia, pois não é aconselhável cadastrar informações nulas...

'-----------------------------------------------------------------------------
If frmagenda.TXT_TELEFONE.Text = "" Then
MsgBox "TELEFONE É OBRIGATÓRIO", vbExclamation
frmagenda.TXT_TELEFONE.SetFocus
Exit Function
Else
End If

'O código acima faz a mesma coisa do primeira porém analisará a caixa de texto TXT_TELEFONE....

'-----------------------------------------------------------------------------
Dim linha As Integer
Dim BANCO As Database
Dim TABELA As Recordset

Set BANCO = OpenDatabase(ThisWorkbook.Path & "/" & ThisWorkbook.Name, False, False, "EXCEL 8.0") 'abre o banco de dados
Sql = "insert into [AGENDA$] (NUMERO,NOME,TELEFONE)VALUES ('" & frmagenda TXT_CODIGO & "','" & frmagenda TXT_NOME& "','" & frmagenda.TXT_TELEFONE& "')"

BANCO.Execute Sql
BANCO.Close
'---------------------------------------------------------------------------------
Módulo1.NUM_AUTO

'uma vez que efetuado o cadastro o código acima irá chamar a função NUM_AUTO para gerar o próximo numero a ser cadastrado

'--------------------------------------------------------------------------------
frmagenda.TXT_NOME.Text = ""
frmagenda.TXT_TELEFONE.Text = ""

frmagenda.TXT_NOME.SetFocus

Após isso devemos chamar esse código dentro do evento click do botão gravar, para isso basta dar um clique duplo nele, para abrir o seu código que se abre assim: 


no local marcado com um traço é onde vamos escrever o código:

módulo1.CADASTRO





pronto agora para testar é só executar o formulário e cadastrar as informações... 

EXPLICANDO O CÓDIGO...

PARA FAZER UM SEMELHANTE VOCÊ DEVERÁ APENAS TROCAR OS OBJETOS MENCIONADOS PELOS SEUS OBJETOS. O RESTANTE DO CÓDIGO É SÓ COPIAR E COLAR...

frmagenda = NOME DO USERFORM 

TXT_NOME = NOME DO OBJETO CAIXA DE TEXTO

TXT_TELEFONE = NOME DO OBJATO CAIXA DE TEXTO

MsgBox  = CHAMA UMA MENSAGEM EXIBINDO O TEXTO QUE ESTIVER DENTRO DOS PARENTESES...

AGENDA = NOME DA PLANILHA

NUMERO,NOME,TELEFONE = CAMPOS DA PLANILHA

('" & frmagenda TXT_CODIGO & "','" & frmagenda TXT_NOME& "','" & frmagenda.TXT_TELEFONE& "')" = CAMPOS NO FORMULÁRIO

É ISSO AÍ TROCANDO ESSAS INFORMAÇÕES PELAS SUAS O SEU PROJETO TERÁ QUE FUNCIONAR PERFEITAMENTE, MAS ATÉ VOCÊ CONHECER CADA LINHA DE CÓDIGO, FAÇA ESSE POST EXATAMENTE COMO DESCRITO DESDE A PARTE 1 ATÉ A 3, PARA VOCÊ APRENDER DE VERDADE A FAZER....

ATT; EDIVAN CABRAL