Takvim uygulaması

[erzen]

Userfrom üzerindeki textboxa çift tıkladığımda takvim açılıyor. Takvime tıkladığımda tarihi aktif olan yani imlecin bulunduğu textboxa nasıl yazdırabilirim. 20 tane textbox var.

 

[halit3]

Userfrom üzerindeki textboxa çift tıkladığımda takvim açılıyor. Takvime tıkladığımda tarihi aktif olan yani imlecin bulunduğu textboxa nasıl yazdırabilirim. 20 tane textbox var.

10 adet textbox üserinde bir kaç örnek

 

[Orion1]

Bu işler için class modüle uygulaması biçilmiş kaftandır.
Ekli dosyayı inceleyiniz.

 

[Orion1]

Bu dahada iyi oldu.

 

[erzen]

Çok teşekkürler. Tam istediğim gibi olmuş.Elinize sağlık

 

[erzen]

Sayın Evren GİZLEN şöyle bir sorun çıktı. Bendeki textboxlar sıralı değil. Yani Textbox3,Textbox7,Textbox12 ... bu şekilde 20 tane textbox var. Yaptığınız uygulamayı bu şekilde değiştirmek mümkün mü

 

[Orion1]

Sayın Evren GİZLEN şöyle bir sorun çıktı. Bendeki textboxlar sıralı değil. Yani Textbox3,Textbox7,Textbox12 ... bu şekilde 20 tane textbox var. Yaptığınız uygulamayı bu şekilde değiştirmek mümkün mü

Dosyayı istediğiniz şekilde güncelledim.
4 numaralı mesajdan indirebilirsiniz.

 

[erzen]

Peki userform üzerindeki bütün textboxlarda geçerli olmamasını sağlayabilirmiyiz.

 

[metbes]

Bu dahada iyi oldu.

Sayın evren,

ekteki benim dosyanın tarih bölümlerine bunu ekleme şansımız varmı ben eklemek istedim ama olmadı.

 

[Orion1]

Peki userform üzerindeki bütün textboxlarda geçerli olmamasını sağlayabilirmiyiz.

Takvimin yerleşmesinde bir hata vardı düzelttim.4 numaraalı mesajdan indirebilirsiniz.
Sorunuza gelince zaten bütün textboxlarda geçerlidir.Ama combobox için diyorsanız o başka.O zaman onun için yine kod yazmak lazımdır.Bunu bilemiyeceğim için bir şey diyemeyeceğim.

 

[erzen]

Yanlış anlaşıldı galiba. Bütün textboxlarda geçerli olmasını istemiyorum.

 

[Orion1]

Sayın evren,

ekteki benim dosyanın tarih bölümlerine bunu ekleme şansımız varmı ben eklemek istedim ama olmadı.

Dosyanız ekte.

 

[Orion1]

Yanlış anlaşıldı galiba. Bütün textboxlarda geçerli olmasını istemiyorum.

Benim yolladığım dosyada hangi textboxta takvim çıkmıyor söylermisiniz.
Siz kendi dosyanızda ne yaptınız onu ben bilemem.Ama benim yaptığım dosyada sonuç alıyorsanız demekki kodları kendi dosyanıza uyarlayamadınız.Benim yoladığım dosyada bütün textboxlarda takvim çıkıyor çünkü.Eğer çıkmıyorsa bana deyinki sizin yolladığınız dosyada şu textboxta takvim çıkmıyor.!

 

[metbes]

Dosyanız ekte.

Öncelikle teşekkür ederim. Ama alttaki kod benim makinamda çalışmadı.

Private Sub UserForm_Initialize()
Dim i As Byte, a As Byte
 .Visible = False
Calendar1.Value = Date
For i = 211 To 235
    a = a + 1
    ReDim Preserve txt(a)
    Set txt(a).txt = Me.Controls("TextBox" & i)
Next
ReDim Preserve txt(a + 1)
Set txt(a + 1).txt = TextBox240
End Sub

 

[Orion1]

Öncelikle teşekkür ederim. Ama alttaki kod benim makinamda çalışmadı.

Private Sub UserForm_Initialize()
Dim i As Byte, a As Byte
 .Visible = False
Calendar1.Value = Date
For i = 211 To 235
    a = a + 1
    ReDim Preserve txt(a)
    Set txt(a).txt = Me.Controls("TextBox" & i)
Next
ReDim Preserve txt(a + 1)
Set txt(a + 1).txt = TextBox240
End Sub

Benim verdiğim dosya çalışıyormu peki.Bende sorunsuz çalışıyor size yolladığım dosya.

 

[erzen]

Sayın Evren GİZLEN ben anlatamadım galiba. Sizin gönderdiğiniz dosyada bütün textboxlarda çalışıyor. Benim dosyamda da çalışıyor. Benim sorum user form üzerinde 40 tane textbox var. Sizin vermiş olduğunuz örnek bütün textboxlarda takvimi açıyor. Sadece benim istediğim textboxlarda takvim açılması mümkün mü ?

 

[Orion1]

Sayın Evren GİZLEN ben anlatamadım galiba. Sizin gönderdiğiniz dosyada bütün textboxlarda çalışıyor. Benim dosyamda da çalışıyor. Benim sorum user form üzerinde 40 tane textbox var. Sizin vermiş olduğunuz örnek bütün textboxlarda takvimi açıyor. Sadece benim istediğim textboxlarda takvim açılması mümkün mü ?

O zaman benim yazdığım kodları iptal edin.
Sayın halitin verdiği kodlara göre yapın.İstediğiniz texboxın keyup ve mouseup olaylarına kodları yazın.Örnek olarak sayın halit3'ün dosyasına bakabilirsiniz.
Veya benim yaptığım dosyadada olabilir.
Şöyle ki.Takvim çıkmasını istediğiniz textboxların tag özelliğine 1 yazın.Bende kodları ona göre düzenleyim size veryim.Okeymi?

 

[Orion1]

Sayın Evren GİZLEN ben anlatamadım galiba. Sizin gönderdiğiniz dosyada bütün textboxlarda çalışıyor. Benim dosyamda da çalışıyor. Benim sorum user form üzerinde 40 tane textbox var. Sizin vermiş olduğunuz örnek bütün textboxlarda takvimi açıyor. Sadece benim istediğim textboxlarda takvim açılması mümkün mü ?

renkli textboxların tag özelliğine 1 konuldu.Renkli olan textboxlara tıklayınız.
Dosyanız ekte.

 

[erzen]

Çok teşekkür ederim sabırla sorularıma cevap verdiniz.

 

[Orion1]

Çok teşekkür ederim sabırla sorularıma cevap verdiniz.

Rica ederim.
İyi çalışmalar.