Skip to main content

AccessTr.neT


liste kutusunda filtre uygulamak

liste kutusunda filtre uygulamak

Çözüldü #1
merhaba arkadaşlar, yardımlarınız sayesinde veritabanımın "kalitelerform2" formunda göreceğiniz üzere , formlarda filtreleme yapmayı ve liste kutusuyla verilerde arama yapmayı başardım. Fakat arama yapmak istediğim kutunun kayıtlarının (recordset) filtre yaptığın çerçeveye bağlanmasını istiyorum. Yani yapacağım arama da çerçevede seçtiğim değerlere göre süzülsün ve sonuçları göstersin istiyorum.
Örnek olarak çerçevede ham kumaşları seçtiğimde, arama yaptıktan sonra sadece sinifi ham kumaş olarak seçili kayıtların görünmesini istiyorum.

Yardımlarınız için şimdiden teşekkürler.
.rar deneme.rar (Dosya Boyutu: 373,13 KB | İndirme Sayısı: 81)
Cevapla
Çözüldü #2
çerçevenin güncelleştirme sonrasında olayına aşağıdaki kodu yazınız.

Dim hareket As String
Select Case Çerçeve43
Case 1
hareket = "RENKLİ"
Me.Listekutusu.RowSource = "SELECT kaliteler.kaliteno, kaliteler.tipadi, kaliteler.kod, kaliteler.orgu, kaliteler.cozgune, kaliteler.atkine, kaliteler.siklik, kaliteler.cozgutelad, kaliteler.tno, kaliteler.tarakboy, kaliteler.hamen, kaliteler.gramaj, kaliteler.not1, kaliteler.not2, kaliteler.musteri, kaliteler.sinifi, [tipadi] & ' * ' & [kod] & ' * ' & [orgu] & ' * ' & [cozgune] & ' * ' & [atkine] & ' * ' & [not1] & ' * ' & [not2] & ' * ' & [musteri] AS Arama FROM kaliteler WHERE (((kaliteler.sinifi)='" & hareket & "') AND (([tipadi] & ' * ' & [kod] & ' * ' & [orgu] & ' * ' & [cozgune] & ' * ' & [atkine] & ' * ' & [not1] & ' * ' & [not2] & ' * ' & [musteri]) Like '*' & [Forms]![kalitelerform2]![Metin100] & '*')) ORDER BY kaliteler.orgu;"
Me.Listekutusu.Requery

Case 2
hareket = "HAM KUMAŞ"
Me.Listekutusu.RowSource = "SELECT kaliteler.kaliteno, kaliteler.tipadi, kaliteler.kod, kaliteler.orgu, kaliteler.cozgune, kaliteler.atkine, kaliteler.siklik, kaliteler.cozgutelad, kaliteler.tno, kaliteler.tarakboy, kaliteler.hamen, kaliteler.gramaj, kaliteler.not1, kaliteler.not2, kaliteler.musteri, kaliteler.sinifi, [tipadi] & ' * ' & [kod] & ' * ' & [orgu] & ' * ' & [cozgune] & ' * ' & [atkine] & ' * ' & [not1] & ' * ' & [not2] & ' * ' & [musteri] AS Arama FROM kaliteler WHERE (((kaliteler.sinifi)='" & hareket & "') AND (([tipadi] & ' * ' & [kod] & ' * ' & [orgu] & ' * ' & [cozgune] & ' * ' & [atkine] & ' * ' & [not1] & ' * ' & [not2] & ' * ' & [musteri]) Like '*' & [Forms]![kalitelerform2]![Metin100] & '*')) ORDER BY kaliteler.orgu;"
Me.Listekutusu.Requery

Case 3
hareket = "NUMUNE"
Me.Listekutusu.RowSource = "SELECT kaliteler.kaliteno, kaliteler.tipadi, kaliteler.kod, kaliteler.orgu, kaliteler.cozgune, kaliteler.atkine, kaliteler.siklik, kaliteler.cozgutelad, kaliteler.tno, kaliteler.tarakboy, kaliteler.hamen, kaliteler.gramaj, kaliteler.not1, kaliteler.not2, kaliteler.musteri, kaliteler.sinifi, [tipadi] & ' * ' & [kod] & ' * ' & [orgu] & ' * ' & [cozgune] & ' * ' & [atkine] & ' * ' & [not1] & ' * ' & [not2] & ' * ' & [musteri] AS Arama FROM kaliteler WHERE (((kaliteler.sinifi)='" & hareket & "') AND (([tipadi] & ' * ' & [kod] & ' * ' & [orgu] & ' * ' & [cozgune] & ' * ' & [atkine] & ' * ' & [not1] & ' * ' & [not2] & ' * ' & [musteri]) Like '*' & [Forms]![kalitelerform2]![Metin100] & '*')) ORDER BY kaliteler.orgu;"
Me.Listekutusu.Requery

Case 4
Me.Listekutusu.RowSource = "SELECT kaliteler.kaliteno, kaliteler.tipadi, kaliteler.kod, kaliteler.orgu, kaliteler.cozgune, kaliteler.atkine, kaliteler.siklik, kaliteler.cozgutelad, kaliteler.tno, kaliteler.tarakboy, kaliteler.hamen, kaliteler.gramaj, kaliteler.not1, kaliteler.not2, kaliteler.musteri, kaliteler.sinifi FROM kaliteler ORDER BY kaliteler.orgu;"
Me.Listekutusu.Requery
Me.Requery

End Select
Cevapla
Çözüldü #3
Sayın mehmetb84 ve Sledgeab;

Günaydınlar..

Emek, katkı ve paylaşımınız için teşekkürler.

Sayın mehmetb84, veri sayısı az da olsa, dosyanızı örnek verili şekliyle ekleyebilir misiniz?

Sevgi ve saygılar.
Cevapla
Çözüldü #4
peki az da olsa veri bırakırım bir dahaki sefere,çok teşekkürler sledgeab aklına sağlık.
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da