Private Sub TextBox1_GotFocus() Yardım

[stirra_ej]

Private Sub TextBox1_GotFocus()
Text1.Text = CDate(Date)
End Sub

TextBox1 tıklandığında yani seçili hale geldiğinde içeriğine otomatik tarih yazsın
TextBox2 tıklandığında ise otomatik saat (22:00) örnek olarak yazsın istiyorum yukaridaki kodu bir türlü çalıştıramadım nereye yazacağım textboxun içine mi generate ye mi sorun ne anlamadım yardımcı olabilirmisiniz.

 

[stirra_ej]

Private Sub TextBox1_GotFocus()
Text1.Text = CDate(Date)
End Sub

TextBox1 tıklandığında yani seçili hale geldiğinde içeriğine otomatik tarih yazsın
TextBox2 tıklandığında ise otomatik saat (22:00) örnek olarak yazsın istiyorum yukaridaki kodu bir türlü çalıştıramadım nereye yazacağım textboxun içine mi generate ye mi sorun ne anlamadım yardımcı olabilirmisiniz.

Sizden özür dilerim sorunu çözdüm. konuyu silemedim. kusura bakmayın

 

[Korhan Ayhan]

Merhaba,

Özel durumlar haricinde forumdan konu silmiyoruz.

Akabinde bulduğunuz çözümü paylaşırsanız aynı sorunu yaşayanlara yardımınız dokunmuş olur.

 

[stirra_ej]

Private Sub TextBox1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
TextBox1.Text = CDate(Date)
End Sub

Sorunu bu formülle çözdüm, üzerine tıkladığınızda tarih otomatik olarak textboxa düşüyor...