Hata uyarısı

Katılım
31 Ağustos 2005
Mesajlar
1,534
Excel Vers. ve Dili
Excel 2003 - Türkçe
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...
 

Levent Menteşoğlu

Administrator
Yönetici
Admin
Katılım
13 Ekim 2004
Mesajlar
16,057
Excel Vers. ve Dili
Excel 2010-32 bit-Türkçe
Excel 365 -32 bit-Türkçe
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]
 
Üst