Skip to main content

AccessTr.neT


Alt Formda Filtreleme

Alt Formda Filtreleme

Çözüldü #1
Selamlar,

Bir Ana Formum var, Bu forma bağlı veri sayfası şeklinde alt formum var. Ana formda Alt formu filtreleyecek süzgeçler koydum. Ama VB.de bunu nasıl yapacağımı bilmiyorum.
Yardımcı olacak arkadaşlara şimdiden teşekkür ederim.
.rar Taksit.rar (Dosya Boyutu: 116,63 KB | İndirme Sayısı: 11)
+repCahiller bilginin kölesi, Alimler ise efendisi olur.
Cevapla
Çözüldü #2
Bu sorduğunuz şey başlıbaşına programın kendisi zatenImg-grin) Bunula ilgili sitemizde bolca örnekler var. İncelemenizi öneririm.
İnadına, ille de Accesstr.net...
Cevapla
Çözüldü #3
Sn mehmetdemiral,

birtane örnek var ama onda da ADO felan var, onuda ben anlamıyorum. acaba daha kolay anlayabileceğim CASE & SELECK deyimleriyle olmazmı.Sadece ikitane süzgeçin örneğini görsem gerisini ben yapabilirim. Aslında sorgu ve makrolarla yapabilirim ama ben vB.le yapmak istiyorum. Hem Öğrenmek hemde daha kısa yol olduğu için. Çünkü birden fazla süzgeç kullanmak istiyorum. Sorgularla yaparsam çok fazla sorgu yapmam gerek.
+repCahiller bilginin kölesi, Alimler ise efendisi olur.
Son Düzenleme: 01/04/2011, 23:47, Düzenleyen: estapan.
Cevapla
Çözüldü #4
Sayın Estapan;
İstediğiniz Ekte Yapılmıştır... Kolay Gelsin.


Option Compare Database

' Kodlar Kur@l Tarafından Yazılmıştır.

Private Sub Süzgeç_AfterUpdate()
On Error Resume Next

Dim sql, nerede, sira As String

Sql = "SELECT Taksit.[NO], Taksit.SıraNO, Taksit.Vadesi, Taksit.Tutar, Taksit.Giriştarihi, Taksit.Ödendimi, Taksit.TahsilatNO," _
& "Taksit.TahsilatTarihi , Taksit.TahsilTutar, Taksit.Açıklama, Taksit.EvrakNO, Taksit.CariNO, Taksit.ReferansNO, " _
& "Taksit.İşlemTürü , Taksit.BordroNO, Taksit.Kaynak FROM Taksit "



Select Case Me.Süzgeç.Value
Case "Vadesi Geçen Taksitler"
nerede = "where Taksit.Vadesi<#" & Format(Date, "mm/dd/yyyy") & "# order by Taksit.Vadesi"
' bu kısımda ödenmişler vadesi geçmiş olarak gelmemeli

Case "Ödenmiş Taksitler"
nerede = "where Taksit.Ödendimi=-1"

Case "Bu Haftanın Taksitleri"

nerede = "where format(Taksit.Vadesi,'WW') =" & Format(Date, "ww") & " order by Taksit.Vadesi"

Case "Bu Ayın Taksitleri"
nerede = "where format(Taksit.Vadesi,'mm') =" & Format(Date, "mm") & " order by Taksit.Vadesi"

Case "İki Tarih Arası Taksitler"
Dim tar1, tar2 As String
tar1 = InputBox("İlk Tarihi Giriniz")
tar2 = InputBox("İkinci Tarihi Giriniz")

nerede = "where Taksit.Vadesi between # " & Format(tar1, "mm/dd/yyyy") & "# and #" & Format(tar2, "mm/dd/yyyy") & "#order by Taksit.Vadesi"

Case "Ödenmemiş Taksitler"
nerede = "where Taksit.Ödendimi=0"

Case "Tüm Taksitler"
nerede = " "

End Select

Me.Taksit_alt_formu1.Form.RecordSource = Sql & nerede
Me.Taksit_alt_formu1.Requery



End Sub

Bu kodun düzgün çalışması için Tarih Ayracının "/" olması gerekmektedir. Ozan Hocamın Tarih Ayracı Değiştirme Örneğini İndirip tarih ayracını "/" işareti olarak ayarlayınız.Tekrar Kolay Gelsin.
.zip [email protected] (Dosya Boyutu: 121,51 KB | İndirme Sayısı: 42)
Cevapla
Çözüldü #5
sn Kural,

yaptığınız örnek çalışıyor.Problem çözülmüştür.Teşekkürler. + REP
+repCahiller bilginin kölesi, Alimler ise efendisi olur.
Cevapla
Çözüldü #6
Sayın Kural ve estepan;

Katkı ve emek için teşekkürler..

Sevgiler
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da
Task