AccessTr.neT

Tam Versiyon: İki Tarih arası ... konusunda bir öneri
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
Sayfalar: 1 2
Arkadaşlar,

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"

güncellenecek ana formu ( örnekte Form1 ) “Isloaded ile “ ile denetlemek . Ayni denetim ilk değerleri değiştirme formunun kapanışında da var. Değerler değiştiğinde aktif formun güncellenmesi için yine Isloaded kontrolü var .
Kod:
If IsLoaded("Form1") Then
Forms!Form1!takvimsec = 1
Forms!Form1!ilktarihver = DLookup("[ilktarih]", "VARSAYILANDEGERLER")
Forms!Form1!sontarihver = Date + DLookup("[sontariheyilekle]", "VARSAYILANDEGERLER") * 364
End If

Formların arkasındaki kodlara gereken açıklamayı yaptım

Takvim 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
Güzel bir örnek olmuş, çalışma için Tesekkur
Sayın okileturc açıklamanız ve örnek uygulamanız için teşekkürler
Sayın okıleturc verdiğiniz örnek çalışma ve açıklamalarınız için teşekkürler.
Hocam iyi hafta sonları...

Güzel bir paylaşım... Teşekkürler.
Hocam çok güzel.
Umarım ben de problemsiz kullanmayı başarırım da sizleri yormam.
Sayfalar: 1 2