Logo Hardware.com.br
BrunoEvans
BrunoEvans Novo Membro Registrado
40 Mensagens 2 Curtidas

[Resolvido] VBA - Realizar calculo com data em formulário (texbox automático)

#1 Por BrunoEvans 25/06/2015 - 18:21
E ai pessoal, tudo bem!? Então, estou tentando criar uma ação no formulário (VBA) mas não sei o que fazer! Estou desenvolvendo um sistema interno para a empresa em que trabalho, um cadastro de funcionários. Porem, alguns "pontos do vba" eu ainda não domino. Bem, meu objetivo é "preencher a data de admissão do funcionário (textbox1) e, no texbox2 aparece a data de vencimento do seu primeiro contrato (textbox1 + 45 dias) e na texbox2 aparece a data de vencimento do seu segundo contrato (texbox2 + 90 dias). Só que eu não sei como fazer isso acontecer (quero que isso ocorra sem um botão). Montei esse formulário abaixo, apenas para mostrar a vocês. Alguém sabe como o que eu tenho que fazer para esse calculo ocorrer de forma automática? (Anexado o arquivo).

Anexo do post

Anexos

Basole
Basole Geek Registrado
945 Mensagens 596 Curtidas
#2 Por Basole
25/06/2015 - 18:46
O q vc quer dizer como automatico? Seria qdo. voce inserir a data de admissão no textbox1, aparece os venc. nos textbox2 e 3 ? Se for isso, segue ex.:

Private Sub TextBox1_AfterUpdate()
If Me.TextBox1.Text <> "" Then Me.TextBox2 = Format(DateAdd("D", 45, CDate(TextBox1.Text)), "dd/mm/yyyy&quot
If Me.TextBox1.Text <> "" Then Me.TextBox3 = Format(DateAdd("D", 90, CDate(TextBox1.Text)), "dd/mm/yyyy&quot
End Sub

* Cole o cod. no seu userform.
* Para testar digite a data no textbox1 de tecle [ Tab ]
Click em Curtir se a resposta foi útil. boa.gif Dê retorno por favor. Se resolveu, atencao_regras.gif Altere o Titulo como [ Resolvido ] comemorando.gif
© 1999-2024 Hardware.com.br. Todos os direitos reservados.
Imagem do Modal