Skip to main content

AccessTr.neT


Sorgulama Hk.

Sorgulama Hk.

Çözüldü #1
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.
.rar deneme access.rar (Dosya Boyutu: 72,25 KB | İndirme Sayısı: 13)
Son Düzenleme: 31/07/2009, 14:13, Düzenleyen: SADIK54.
Cevapla
Çözüldü #2
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
Cevapla
Çözüldü #3
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:
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.
.rar Arac_Seruz.rar (Dosya Boyutu: 18,72 KB | İndirme Sayısı: 27)
Bildiğini bilenin arkasından git, bildiğini bilmeyeni uyar, bilmediğini bilene öğret, bilmediğini bilmeyenden kaç.
Konfüçyüs
Cevapla
Çözüldü #4
sn.seruz teşekkür ederim. benim için çok faydalı bir bilgi oldu.
Cevapla
Çözüldü #5
Sayın Seruz;

Hayırlı Cuma'lar... Sizi her zaman zevkle izliyorum ve her yanıtınızı arşivliyorum..

Selam..
Cevapla
Çözüldü #6
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.
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da
Task