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

Derecelendirme: 0/5 - 0 oy



mehmetb84

Kullanici Avatari
Aktif Üye (Özel)
M.... B....
464
29/12/2010
0
Denizli
Ofis 2013 64 Bit
15/01/2017,16:48
Çözüldü 
Sponsor Reklam
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.182
29/01/2008
Denizli
Polis Memuru
Ofis 2010 32 Bit
Bugün,07:49
Çö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.053
31/10/2008
63
İstanbul
-
03/01/2017,18:22
Çözüldü 
Sponsor Reklam
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
Aktif Üye (Özel)
M.... B....
464
29/12/2010
0
Denizli
Ofis 2013 64 Bit
15/01/2017,16:48
Çö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
Çözüldü Liste kutusundan seçili olanı tablodan silme... direnist 11 3.158 13/01/2017, 08:07 mustim1547
  Liste kutusu filtreleme nightashes 2 79 11/01/2017, 18:14 nightashes
  Metin Kutusunda Toplam Tutarları Göstermek. m_demir 4 143 22/12/2016, 20:16 m_demir
  Liste kutusu sütün hizlama ve biçim değiştirme hakkında nightashes 13 227 07/12/2016, 20:10 nightashes
  Liste kutusu çift tıklama ile yeni form açmak nightashes 18 425 02/12/2016, 20:04 nightashes


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