Bir çok soru içerisinde Subform, Listbox, Sorgu ve Raporlarda kullanmak istediğiniz
iki tarih aralığı konusuna kalıcı bir katkı yapmak amacı ile ekteki örneği gönderiyorum
Çözüm uygulamalarınıza ekleyeceğiniz 1 tablo, 2 form ve 1 modülden oluşuyor
Tablo, varsayılan ilk tarih ve son tarih kriterlerini barındırıyor
Değiştirme formu, yukarıdaki tablo bilgilerini kullanıcının değiştirebilmesini sağlıyor
Takvim formu ve Isloaded modülü
Form1 i saymıyorum çünkü onun yerine zaten siz kendi formlarınızı,
Sorgu veya Rapor merkezlerinizi kullanacaksınız.
Dikkat edilmesi gereken konu “takvimform” üzerinde tarih seçimi yaptığınızda
Kod:
If IsLoaded("Form1") Then
If Forms!Form1!takvimsec = 5 Then
Forms!Form1!ilktarihver = Me.aktar
ElseIf Forms!Form1!takvimsec = 6 Then
Forms!Form1!sontarihver = Me.aktar
End If
End If
DoCmd.Close acForm, "takvimform"Kod:
If IsLoaded("Form1") Then
Forms!Form1!takvimsec = 1
Forms!Form1!ilktarihver = DLookup("[ilktarih]", "VARSAYILANDEGERLER")
Forms!Form1!sontarihver = Date + DLookup("[sontariheyilekle]", "VARSAYILANDEGERLER") * 364
End IfTakvim seçenekleri 6 adet
Varsayılan aralık : Tablodan okuduğu ilk ve son değer
Geçmiş : Tablodan okuduğu ilk değer ve Bugün -1
Bugün : Bugün ve Bugün
Gelecek : Bugün + 1 ve Bugün +1 + Tablodan okuduğu son değer
İlk tarih belirle : Takvimden seçilecek
Son tarih belirle : Takvimden seçilecek
Takvim üzerindeki kaydırma çubuğu merkezden en sağa yaslandığında +30 gün
merkezden en sola yaslandığında -30 gün değer alır. Sağ ve sol butonlar ise +/- bir gün
atar. Seçiminiz bittiğinde yeşil onay butonunu kullanınız. Bu ayni zamanda formu kapatır
ve arka plandaki formu günceller. Kapatma butonu bir değişiklik yapmadan çıkmanızı
sağlar
Ancak siz bu seçeneklere Bugün, Bugün +7 vb plan dönemler ekleyebilrisiniz;
Bunu yaparken Combobox da bir değer vermeyi ve Aftre Update de bulunan
Case seçeneklerini girmeyi unutmayın ( Case 7, Case 8, …. Case n, gibi )
Umarım fayda sağlarsınız
Herkese kolay gelsin
