Açılışta Dtpicker'ın boş gözükmesi

[oguzka]

Arkadaşlar merhaba. Yaptığım arayüz açılışında dtpicker üzerinde herhangi bir tarih gözükmesin ancak seçim yapıldığında ekrana gelsin istiyorum. Yardımcı olabilirmisiniz?

 

[Korhan Ayhan]

Selamlar,

Eğer form açılışınızda herhangi bir tanımlama yapmadıysanız zaten DtPicker nesnesi boş gelecektir. Sanırım sizin form açılışınızda bu nesneye veri yükleyen aşağıdaki şekilde bir kod olabilir. Silerseniz düzelecektir.

DtPicker.Value = Format(Date , "dd.mm.yyyy")

 

[oguzka]

Korhan Bey öncelikle teşekkür ederim. Ancak açılışta dtpicker ı yönlendiren herhangi bir komut olmamasına rağmen 01/10/2009 tarihini atıyor. Acaba nesnenin özelliklerinden birşey mi değiştirmem gerekiyor? Dtpicker 'ın value değerinde yazan tarih görüntüleniyor ancak bu tarihi silemiyorum. Örnek dosya ektedir...

 

[uzmanamele]

merhaba

sanırım userform aktif olduğunda DtPicker seçilmiş olmak durumunda.

bunu boş göstermek mümkünmü tam emin değilim ancak takvimin başlangıç tarihini seçmek belki zorunlu tarih girişini sağlayabilir.

Private Sub UserForm_Activate()
DTPicker1.Value = Format("1.1.1601", "dd.mm.yyyy")
End Sub

 

[oguzka]

Abi çok teşekkür ederim. Bu işlemi bizde yapmıştık ancak tarihi seçimini zorlaştırdığı için istediğimiz gibi olmadı. Yinede aklınıza bir çözüm gelirse yardımlarınızı beklerim. Saygılar...

 

[uzmanamele]

merhaba
belki bu olabilir (mi)
dosya ilk açıldığında

DTPicker1.Value = Format("1.1.1601", "dd.mm.yyyy")

tarihi aktaracağınız hücre için, eğer DTPicker1. değeri 1.1.1601 ise "tarih seçilmedi" yazdırırsanız sorun çözülebilir.

başlangıçta 01.01.1601 tarihi seçilmişse ilgili hücreye tarihi yazdırmamış olacağınız gibi DTPicker1 tıklandığında güncel tarihi girmek çok zor olmaz.
hemen altta günün tarihi Today:19.10.2009 yazdığı için burayı tıklayarak içinde bulunulan yıl ve ay seçmek kolay olabilir. üstteki yatay değer değiştiriciyi kullanmanıza gerek yok.

 

[uzmanamele]

merhaba

bir başka alternatif olabilir.

Proporties'de, Checkbox'ı True ve Value'deki tarihi siliniz.

 

[uzmanamele]

merhaba

bu kodlarıda deneyiniz.

Private Sub UserForm_Initialize()
With DTPicker1
.Format = dtpCustom
.CustomFormat = " "
End With
End Sub

Private Sub DTPicker1_Enter()
With DTPicker1
.Format = dtpShortDate
.Value = Date
End With
End Sub

not:
7. ve 8. mesajdaki yöntemler için syn yurttas ve syn Ferhat Pazarçevirdi beylere teşekkürler.