DTPicker' in bugünü göstermesi

[geren36]

Herkese merhaba,

Userform üzerinde; multipage1' de DTPicker nesnem var. Userform initialize olduğunda otomatikman bugünü göstermiyor. (bunu dün userforma koymuştum, dünün tarihinde kalmış)

Aşağıdaki kodu userformun initialize' ına yazmama rağmen hata mesajı ile karşılaşıyorum :

Private Sub UserForm_Initialize()
Dim q As Date
q = Date
MultiPage1.Pages("page3").DTPicker1.Value = q
end sub

[ Run-time error '35788' : An error occured in a call to the Windows Date and Time Picker Control ]

Daha önce DTPicker hiç kullanmamıştım. Eksik ya da yanlış yaptığım bir şeyler var....

Userform her açıldığında, DTPicker1 ' de bugünün tarihini nasıl göstertirebiliriz acaba ?

teşekkürler..

 

[Ferhat Pazarçevirdi]

Private Sub UserForm_Initialize()
DTPicker1 = Date
End Sub

 

[geren36]

teşekkürler fpc. Önerdiğin şekilde değiştirmeme rağmen aynı hata devam ediyor.

 

[Ferhat Pazarçevirdi]

Nesne modelinizi tam göremediğimiz için, afaki bir çözüm sunduk. Ama muhtemelen "Page3", userform iniialize olduğunda aktif olmayan bir sayfa...

Bu hata mesajını önlemek için aşağıdaki yeterli olur sanırım

Private Sub UserForm_Initialize()
MultiPage1.Value = 2: DTPicker1 = Date
MultiPage1.Value = 0
End Sub

 

[geren36]

konu anlaşıldı ve dediğiniz şekilde çözüme ulaşıldı sayın fpc.

ilginize teşekkür ederim.

iyi çalışmalar..