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

Derecelendirme: 0/5 - 0 oy



mehmetb84

Kullanici Avatari
Özel Üye
M.... B....
451
29/12/2010
0
Denizli
Ofis 2013 64 Bit
Çö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ı: 73)
Cevapla


ozanakkaya
sledgeab
Kullanici Avatari
Kurucu
O.... A....
9.039
29/01/2008
Denizli
Polis Memuru
Ofis 2010 32 Bit
Bugün,03:08
Çözüldü 
ç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.052
31/10/2008
63
İstanbul
-
29/11/2016,00:04
Çö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....
451
29/12/2010
0
Denizli
Ofis 2013 64 Bit
Çözüldü 
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 kutusu sütün hizlama ve biçim değiştirme hakkında nightashes 13 118 6 saat önce nightashes
  Liste kutusu çift tıklama ile yeni form açmak nightashes 18 246 02/12/2016, 20:04 nightashes
  Liste kutusu işlem yapma ekleme silme de sorun nightashes 7 107 29/11/2016, 20:24 nightashes
  Liste kutusuna tıklayınca metin kutusuna bilgiyi getirme nightashes 5 91 28/11/2016, 23:33 nightashes
  Liste kutusu seçiminde debug oluşmakta nightashes 3 74 28/11/2016, 21:27 alpeki99


Türkçe Çeviri: MCTR, Forum Yazılımı: MyBB, © 2002-2016 MyBB Group.
DMCA.com Protection Status
© Desing by XSTYLED| Develops by ozanakkaya