liste kutusunda filtre uygulamak
Tarih
12/09/2011 15:19
Konu Sahibi
mehmetb84
Yorumlar
3
Okunma
1320
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy
mehmetb84

Kullanici Avatari
Özel Üye
M.... B....
464
29/12/2010
0
Denizli
Ofis 2013 64 Bit
08/05/2017,17:31
Çözüldü 
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.


Ek Dosyalar
.rar   deneme.rar (Dosya Boyutu: 373,13 KB / İndirme Sayısı: 74)
Cevapla

ozanakkaya
sledgeab
Kullanici Avatari
Kurucu
O.... A....
9.592
29/01/2008
Denizli
Memur
Ofis 2010 32 Bit
Bugün,12:40
Çözüldü 
Sponsor Reklam
çerçevenin güncelleştirme sonrasında olayına aşağıdaki kodu yazınız.

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
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

assenucler

Kullanici Avatari
Onursal
A.... S.... Ş....
2.053
31/10/2008
63
İstanbul
-
22/03/2017,13:18
Çözüldü 
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

mehmetb84

Kullanici Avatari
Özel Üye
M.... B....
464
29/12/2010
0
Denizli
Ofis 2013 64 Bit
08/05/2017,17:31
Çözüldü 
Sponsor Reklam
peki az da olsa veri bırakırım bir dahaki sefere,çok teşekkürler sledgeab aklına sağlık.
Cevapla


Konuyu Okuyanlar: 1 Ziyaretçi


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
  Liste Box In İçindeki Verilerin Hizalanması erensimsek 3 100 19/05/2017, 14:05 erensimsek
  Seçime Göre Açılır Liste blue_wall 5 135 11/05/2017, 17:06 atoz112
  Combobox Açılır Liste İle İlgili Örnek Uygulama Lazım erensimsek 8 188 06/05/2017, 03:41 erensimsek
  Liste Kutusundan Çoklu Seçim Yaparak Alt Forma Aktarma sadikkavakli 3 105 25/04/2017, 08:01 sadikkavakli
Çözüldü Raporda etiketi metin kutusunda değer yoksa gizleme saglikci_salih 7 2.311 29/03/2017, 17:26 atoz112


Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2017 MyBB Group.
DMCA.com Protection Status