örnek program benim üzerinde çalıştığım bir ekders devam takip programıdır şu an için sorunsuz çalışyıyor bir iki eksiği var oda genel toplam tarihlere giriş yaptığımız zaman aynı anda toplamıyor onun üzerinde çalışıyrum birde şu anda personel tablosundaki personeli boş olan aya ekliyor oda her ay benzer verileri girmek demek ekders mantığında hemen hemen bütün aylar aynıdır ondan dolayı bir sonraki aşama bir önceki ayın verilerini alıp seçtiğimiz aya aktarmak olacak o zaman sadece değişenleri düzeltiriz neyse bunlar benim üzerinde çalıştığım şeyler bu programdaki takvim olayı sizin günlük olarak giriş yaptığınız uygulamalarda gayet güzel kullanılabilir ve tasarımı basittir kodlara bakıp canınızı sıkmayın çünkü tarih kodu basittir ay 31 çekiyorsa hepsini göster ay 30 çekiyorsa 31 ini gizle veya 29 28 çekiyorsa büyük olanları gizle gibi ayrıca ben hafta sonlarınıda pasif hale getirdim siz isterseniz
If Format(strnum & "/" & intMonth & "/" & intYear, "dddd") = "Cumartesi" Or Format(strnum & "/" & Me.cmbMonth & "/" & Me.cmbYear, "dddd") = "Pazar" Then
Me("txt" & strnum).BackColor = 255
Me("txt" & strnum).Enabled = False
End If
bu kısmı silerek hafta sonlarınıda gösterebilirsiniz
benzeri bir uygulamadır.şayet bu takvim olayı ile değişik örnekler yapan olursa eklesinki ne tür bir uygulama yapmış görelim bizde faydalanalım
If Format(strnum & "/" & intMonth & "/" & intYear, "dddd") = "Cumartesi" Or Format(strnum & "/" & Me.cmbMonth & "/" & Me.cmbYear, "dddd") = "Pazar" Then
Me("txt" & strnum).BackColor = 255
Me("txt" & strnum).Enabled = False
End If
bu kısmı silerek hafta sonlarınıda gösterebilirsiniz
benzeri bir uygulamadır.şayet bu takvim olayı ile değişik örnekler yapan olursa eklesinki ne tür bir uygulama yapmış görelim bizde faydalanalım
