Soru Datepicker'da güncel tarihin otomatik seçilmesi

[seckinb]

Merhaba

Datepicker eklentisini hazırladığım userformda kullanmaya başladım.



Güncel tarihi userformu her açtığımda seçmesini istiyorum.

Private Sub UserForm_Initialize()

altına

DTpick1.Value = Date

eklediğimde form kendini güncellemiyor.



Geçici olarak

Private Sub DTPick1_Enter()



DTpick1.Value = Date



End Sub

şeklinde ekledim.



bu sefer her tıkladığımda tarihi bugüne alıyor.



sadece açılışta bugünün tarihini seçmesini nasıl sağlarım?
teşekkürler

 

[sadobay]

Private Sub UserForm_Initialize()

DTpick1.Value = Now

End Sub

 

[seckinb]

DTPick0.Value = Now
DTpick1.Value = Now
DTPick2.Value = Now

bu kod ne yazık ki çalışmadı
run time 35788 hatası - date picker hata verdi.

 

[Korhan Ayhan]

Dosyanızı eklemeniz mümkün mü?

 

[seckinb]

https://transfernow.net/015mt4n5ds25

bu kodu

Private Sub UserForm_Initialize()

altına eklediğimde hata alıyorum. dosya örneğim ektedir.

 

[Korhan Ayhan]

Versiyonum 64 bit olduğu için tarih seçicisi bende çalışmadı. Aşağıdaki kodu bir deneyin.

DTPick3.Value = CDate(Date)

 

[Orion1]

Merhaba

Datepicker eklentisini hazırladığım userformda kullanmaya başladım.



Güncel tarihi userformu her açtığımda seçmesini istiyorum.

Private Sub UserForm_Initialize()

altına

DTpick1.Value = Date

eklediğimde form kendini güncellemiyor.



Geçici olarak

Private Sub DTPick1_Enter()



DTpick1.Value = Date



End Sub

şeklinde ekledim.



bu sefer her tıkladığımda tarihi bugüne alıyor.



sadece açılışta bugünün tarihini seçmesini nasıl sağlarım?
teşekkürler

Inıtialize kodlarında bu kodun çalışması lazım.
Siz bu nesneyi userforma ekledinizmi?

 

[canjan]

DTPicker = Format(Date, "dd/mm/yyyy") ile güncel tarihi getirebilirsiniz.

 

[seckinb]

DTPick0 = Format(Date, "dd/mm/yyyy")

DTPick0.Value = CDate(Date)

çalışmadı, aynı hatayı veriyor. Çözemedim doğrusu.

 

[Korhan Ayhan]

Merhaba,

Dosyanızı şimdi ofisteki 2010 versiyonda denedim.

Sorunsuz çalışıyor.

 

[sadobay]

DTPick0.Value = Now
DTpick1.Value = Now
DTPick2.Value = Now

bu kod ne yazık ki çalışmadı
run time 35788 hatası - date picker hata verdi.

dosyanız bende sorunsuz çalışıyor. office 2019

 

[seckinb]

Mesaj hatalıdır. Silinebilir.