Skip to main content

AccessTr.neT


İki Tarih arası ... konusunda bir öneri

İki Tarih arası ... konusunda bir öneri

#1
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
.rar ikitarihcozumu.rar (Dosya Boyutu: 39,21 KB | İndirme Sayısı: 346)
okileturc, 18-03-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla
#2
Güzel bir örnek olmuş, çalışma için Tesekkur
Saygılar, iyi çalışmalar.
*********
Kod, formül vs bilmek önemlidir ama mantığını yürütebilmek, nerede ve nasıl kullanılacağını bilmek daha önemlidir.
Cevapla
#3
Sayın okileturc açıklamanız ve örnek uygulamanız için teşekkürler
Cevapla
#4
Sayın okıleturc verdiğiniz örnek çalışma ve açıklamalarınız için teşekkürler.
Access ile yaşam çok güzel
Cevapla
#5
Hocam iyi hafta sonları...

Güzel bir paylaşım... Teşekkürler.
Cevapla
#6
Hocam çok güzel.
Umarım ben de problemsiz kullanmayı başarırım da sizleri yormam.
Filtrelemede Ölçüt
Like"*"&[metin kutusu]&"*"
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task