Código VBA botão cadastrar
Enviado: 27 Jul 2018 às 12:16
Bom dia, amigos forumeiros
Poderiam me ajudar?
Comecei a escrever um código para um formulário de cadastro... no entanto o banco de dados encontra-se na forma de tabela.
Enquanto não era tabela deu certo. O que eu devo modificar na escrita do código nesse caso? Como declarar as variáveis e objetos?
1) Gerar ID automático
2) Ao digitar somente os números na TextBox DATA que ela já escreva no formato dd/mm/aaaa na própria TextBox . O mesmo vale para a TextBox data de nascimento.
3) Na TextBox Idade calculasse automaticamente a idade em anos e meses
4) A TextBox CPF aparecesse com a formatação automática para CPF ou CNPJ ao digitar os números
5) E por fim que a TextBox TELEFONE aparecesse com a formatação automática para 9 ou 8 dígitos após DDD E.: (##) # ####-####
6) Ao final ordenar os registros no banco de dados pelo nome do cliente através do código VBA.
Se possível deixar na forma de comentário como ficaria essa linha caso em vez de ordenar pelo nome eu quisesse ordenar pela data de cadastro - cadastros mais recentes no início (topo) da tabela.
Envio a planilha com o formulário em anexo se for preciso para alteração.
Muito obrigado a quem puder ajudar.
Poderiam me ajudar?
Comecei a escrever um código para um formulário de cadastro... no entanto o banco de dados encontra-se na forma de tabela.
Enquanto não era tabela deu certo. O que eu devo modificar na escrita do código nesse caso? Como declarar as variáveis e objetos?
Código: Selecionar todos
Preciso na ajuda do código para as seguintes necessidades:Private Sub cmb_Cadastrar_Click()
Dim ulinha As Long
ulinha = Worksheets("CLIENTES").Cells(Worksheets("CLIENTES").Rows.Count, 1).End(xlUp).Rows + 1
Cells(ulinha, 1).Value = Me.txt_ID
Cells(ulinha, 2).Value = Me.txt_Data
Cells(ulinha, 3).Value = Me.txt_Nome
Cells(ulinha, 4).Value = Me.txt_DataNasc
Cells(ulinha, 5).Value = Me.txt_Idade
Cells(ulinha, 6).Value = Me.cbb_Sexo
Cells(ulinha, 7).Value = Me.txt_CPF
Cells(ulinha, 8).Value = Me.txt_Naturalidade
Cells(ulinha, 9).Value = Me.cbb_UF_Nat
Cells(ulinha, 10).Value = Me.txt_Telefone
Columns.AutoFit
MsgBox "Cadastro efetuado com sucesso.", vbInformation, "Cadastro de Paciente"
Me.txt_ID = Empty
Me.txt_Data = Empty
Me.txt_Nome = Empty
Me.txt_DataNasc = Empty
Me.txt_Idade = Empty
Me.cbb_Sexo = Empty
Me.txt_CPF = Empty
Me.txt_Naturalidade = Empty
Me.cbb_UF_Nat = Empty
Me.txt_Telefone = Empty
txt_Data.SetFocus
End Sub1) Gerar ID automático
2) Ao digitar somente os números na TextBox DATA que ela já escreva no formato dd/mm/aaaa na própria TextBox . O mesmo vale para a TextBox data de nascimento.
3) Na TextBox Idade calculasse automaticamente a idade em anos e meses
4) A TextBox CPF aparecesse com a formatação automática para CPF ou CNPJ ao digitar os números
5) E por fim que a TextBox TELEFONE aparecesse com a formatação automática para 9 ou 8 dígitos após DDD E.: (##) # ####-####
6) Ao final ordenar os registros no banco de dados pelo nome do cliente através do código VBA.
Se possível deixar na forma de comentário como ficaria essa linha caso em vez de ordenar pelo nome eu quisesse ordenar pela data de cadastro - cadastros mais recentes no início (topo) da tabela.
Envio a planilha com o formulário em anexo se for preciso para alteração.
Muito obrigado a quem puder ajudar.