Hata uyarısı

[İsmail Küçükşengün]

Merhabalar;

Bir userform üzerinede 5 adet page var. Her sayfada da birer tane DTPicker var. Bu DTPickerlerin form açıldığında bugünkü tarihi göstermesi için initalize bölümüne

DTPicker1.Value = Date
DTPicker2.Value = Date
DTPicker3.Value = Date
DTPicker4.Value = Date
DTPicker5.Value = Date

kodlarını yazdım. Bu form açılmak istendiğinde;

Run-time error '35788'
An error occurred in a call to the Windows Date and Time Picker control'
şeklinde uyarı vermektedir.

Userformun initalize kısmına yukarıdaki kodları yazdım. Acaba başka bir ilave mi gereklidir.
Teşekkürler...

 

[İsmail Küçükşengün]

:?

 

[Levent Menteşoğlu]

Bu nesneyi bugüne kadar hiç kullanmadığım için fazla fikir sahibi değilim. Ama sorun nesneleri multipage üzerinde yerleştirmenizden kaynaklanıyor. Bu nesnelerin hepsi aynı sayfada olsa idi bu sorun ortaya çıkmayacaktı. Sanıyorum nesneye tarihi tanımlamak için o anda aktif olması gerekiyor, halbuki multipage üzerinde sadece biri aktif diğerleri pasif durumda olacaktır. userform_initialize olayında sadece bir tanesine günün tarihini yükleyip, diğerlerine multipage nesnesine yazılacak bir kodla yükleme yapılabilir. Aşağıdaki gibi deneyin.

[vb:1:09d37d89ac]Private Sub MultiPage1_Change()
deg = MultiPage1.Value
Controls("DTPicker" & deg + 1).Value = Date
End Sub

Private Sub UserForm_Initialize()
DTPicker1.Value = Date
End Sub
[/vb:1:09d37d89ac]

 

[İsmail Küçükşengün]

Sayın Leventm;

Teşekkürlerimi sunuyorum.