Transferir DateTimePicker para Textbox[Resolvido]

[macburn]

OLá pessoal,

Boa tarde a todos. Bom pessoal, através deste site, consegui implementar o "DateTimePicker". Então o que gostaria de fazer era quando selecionar o item "alterar" do cadastro e alterar um determinado ComboBox, ser enviado a data do "DateTimePicker" ou a data do sistema. Resumindo, quando clicar no botão alterar, e mudar um determinado comboBox,
enviar a data do sistema para um determinado textbox.
Isso é possível meus nobres???

Abraços meus nobres!!!

[webmaster]

Macburn,

Antes de responder, dê uma pesquisada no fórum a respeito deste assunto. Ela já foi bastante discutido e por isso, deve achar bastante coisa.

Abraços

[macburn]

Boa noite pessoal,

Como vai, tudo bem? E aí Webmaster, como vai essa força? Bom, até fiz isso que vc sugeriu mas não encontrei. Coloco no sistema de busca "ComboBox" e "TextBox" e nada é encontrado. Se alguém puder me dar uma força para encontrar estes tópicos..!

Abraços pessoal!

[joseA]

Não terias de pesquisar por DateTimePicker??

[Guima]

Olá,

O arquivo que vc encontrou no fórum foi esse ?
viewtopic.php?f=6&t=64&p=381&hilit=datetimepicker#p381

Dê uma analisada.

Abraços

[macburn]

Bom dia pessoal,

Como vai, tudo bom? Então, sobre o arquivo "Guima", não foi desse tópico não. Bom penso que relacionando o DateTimePicker parece um tanto complicado. O que gostaria de fazer era, quando alterasse o estado de uma ComboBox, ele puxasse a data do sistema para um determinado textbox. Então o ComboBox está vazio, quando escolhesse alguma alternativa do ComboBox, ele enviasse a data do sistema para um Textbox. Alguém poderia me dar uma força nessa questão???

Abraços!

[joseA]

Afinal, o que pretendes??

...relacionando o DateTimePicker parece um tanto complicado. O que gostaria de fazer era, quando alterasse o estado de uma ComboBox, ele puxasse a data do sistema para um determinado textbox...

Para carregares o TextBox com o DateTimePicker, teriamos:

Código: Selecionar todos

Private Sub CommandButton1_Click()
Me.TextBox1 = DTP4.Value
End Sub

Para um simples ComboBox, seria:

Código: Selecionar todos

Private Sub ComboBox1_Change()
If ComboBox1 <> "" Then
    TextBox1.Value = Date
    Else
    Me.TextBox1 = ""
    End If
End Sub

[macburn]

Olá pessoal,

Meus agradecimentos a todos os colaboradores do forum. JoseA, utilizei a segunda opção. Funcionou perfeitamente. Muito bom mesmo. Isso que estava precisando meu nobre!

Um grande abraço para todos ...

[joseA]

Eatando ao nosso alcance, disponha.