31/07/2009, 14:11
Arkadaşlar form sayfası içinde 6-7 adet hücrem var ben bunlardan 1 hücre 2 hücre yada 3 hücre doldurabilirim hangilerini doldurursam ona göre liste kutusunda bilgilerin gelmesini istiyorum. nasıl yapabilirim.
Sayfalar: 1 2
31/07/2009, 14:11
31/07/2009, 14:51
aşağıdaki kodlar örneğinizden alıntıdır.
bu mantık ile arama kriteri olabilecek form elemanlarını if ile dolu olma durumunu kontrol ederek Sql değişkeni içersinde kriteri biriktirerek buton kodunun en sonuna eklediğim liste veri kaynağını tekrar oluştur ve yenile yapıp formda sonucu görebilirsin.
Private Sub Komut112_Click()
Dim Sql As String
SQL = ""
If Me.BOLGE <> "" Then
If Sql = "" Then
Sql = Sql + "[BOLGE]='" & Me.BOLGE & "'"
Else
Sql = Sql + " and [BOLGE]='" & Me.BOLGE & "'"
End If
End If
.
.
.
.
.
.
.
.
.
.
Me.Liste113.RowSource="SELECT ARACLAR.[Sıra No], ARACLAR.[Çeker Plaka], ARACLAR.Markası, ARACLAR.Tipi, ARACLAR.Modeli, ARACLAR.Rengi, ARACLAR.Sahiplik, ARACLAR.Operasyon, ARACLAR.[Trafiğe Çıkış Tarihi], ARACLAR.[Garanti Süresi Bitiş Tarihi], ARACLAR.[Fenni Muayene Bitiş Tarih], ARACLAR.[Eksoz Muayene Bitiş Tarih], ARACLAR.[Trafik Sigorta Bitiş Tarih], ARACLAR.Durum, ARACLAR.Bölge FROM ARACLAR" & Sql & ";"
Me.Liste113.Requery
End Sub
bu mantık ile arama kriteri olabilecek form elemanlarını if ile dolu olma durumunu kontrol ederek Sql değişkeni içersinde kriteri biriktirerek buton kodunun en sonuna eklediğim liste veri kaynağını tekrar oluştur ve yenile yapıp formda sonucu görebilirsin.
Private Sub Komut112_Click()
Dim Sql As String
SQL = ""
If Me.BOLGE <> "" Then
If Sql = "" Then
Sql = Sql + "[BOLGE]='" & Me.BOLGE & "'"
Else
Sql = Sql + " and [BOLGE]='" & Me.BOLGE & "'"
End If
End If
.
.
.
.
.
.
.
.
.
.
Me.Liste113.RowSource="SELECT ARACLAR.[Sıra No], ARACLAR.[Çeker Plaka], ARACLAR.Markası, ARACLAR.Tipi, ARACLAR.Modeli, ARACLAR.Rengi, ARACLAR.Sahiplik, ARACLAR.Operasyon, ARACLAR.[Trafiğe Çıkış Tarihi], ARACLAR.[Garanti Süresi Bitiş Tarihi], ARACLAR.[Fenni Muayene Bitiş Tarih], ARACLAR.[Eksoz Muayene Bitiş Tarih], ARACLAR.[Trafik Sigorta Bitiş Tarih], ARACLAR.Durum, ARACLAR.Bölge FROM ARACLAR" & Sql & ";"
Me.Liste113.Requery
End Sub
31/07/2009, 15:09
Birçok yöntem var ancak en basit şekilde, liste kutusunun satır kaynağındaki sorguda like kriterini kullanarak yapabilirsiniz. Örneğin bölge için kriter:
Örnek ekte, ben sadece 2 tanesini yaptım (Bölge, Operasyon), gerisini tamamlarsınız.
Sorgulama tuşuna basmadan da güncelliyor, sorgula tuşuna basınca da.
İstediğiniz şekilde kullanırsınız.
Kod:
Like [Forms]![ANAFORM]![BOLGE] & "*"Örnek ekte, ben sadece 2 tanesini yaptım (Bölge, Operasyon), gerisini tamamlarsınız.
Sorgulama tuşuna basmadan da güncelliyor, sorgula tuşuna basınca da.
İstediğiniz şekilde kullanırsınız.
31/07/2009, 15:45
sn.seruz teşekkür ederim. benim için çok faydalı bir bilgi oldu.
31/07/2009, 16:27
Sayın Seruz;
Hayırlı Cuma'lar... Sizi her zaman zevkle izliyorum ve her yanıtınızı arşivliyorum..
Selam..
Hayırlı Cuma'lar... Sizi her zaman zevkle izliyorum ve her yanıtınızı arşivliyorum..
Selam..
03/08/2009, 01:09
Sn. Seruz sizin yaptığınız örnektekine göre sorguları devam ettirdim. ancak şu anda sorgulamam çalışmıyor bir türlü nedenini bulamadım. yardımcı olurmusunuz. son güncelleme yaptığım örnek dosya ektedir.
Sayfalar: 1 2