Notifications
Clear all

Data Calendário

5 Posts
1 Usuários
0 Reactions
1,209 Visualizações
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Boa Tarde.
Segue anexo com duvidas.

Sds.

 
Postado : 19/07/2011 2:15 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

VBA, fiquei em duvida quanto a questão.

Se você coloca uma Data e depois resolve Altera-la, logicamente tem de Selecionar a nova data.
Este tipo de Controle DateTimePicker, utiliza APIs e carrega o Combobox, criando da Data do Sistema, e o mesmo tem 14 parametros, dos quais não me acertei para que conseguissemos passar algo diferente para o mesmo, tipo Iniciar com Data em Barnco por exemplo, então toda vez que ele é criado, vem com a Data Atual, pelo que li até o momento sobre o mesmo temos de realizar alterações na rotina quanto MinDate e MaxDate, mas todas as tentativas foram inviáveis.

De qualquer forma veja este outro exemplo, é bem mais simples e de fácil adaptação :

Este Modelo foi tirado do site abaixo, onde temos vários outros exemplos, tanto utilizando Formulários como chamando o calendário ao selecionar uma celula.

Fonte:
http://boisgontierjacques.free.fr/pages_site/dates.htm

Espero que ajude.

[]s

 
Postado : 19/07/2011 3:58 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Caro Mauro Coutinho.
Quando eu falo em alterar é pra alterar os outros dados do form e não a data, queria que a data ficasse a mesma colocada anteriormente.

Sds.

 
Postado : 20/07/2011 5:26 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

VBA, por issso que eu disse que fiquei em duvida, pois no seu exemplo você citou a DATA, "quando vou alterar(BOTÃO ALTERAR) insere a data de hoje! Gostaria de saber se tem com contornar essa situação".

Agora se está se referindo em Alterar somente o dado que é carregado no TextBox, adicione um Botão somente para Alterar e coloque somente a instrução :
ActiveCell.Offset(0, 1) = txtnome.Text

ou faça um tratamento com Condições IF . . Then para quando for lançamento Novo ou Alteração.

[]s

 
Postado : 20/07/2011 6:26 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Ok Mauro.
Obrigado Pela Ajuda e Atenção

Sds.

 
Postado : 20/07/2011 7:10 am