Konu Araçları | Seçenekler: | Gösterim Stili
Tarih
12/09/2011 15:19
Konu Sahibi
mehmetb84
Yorumlar
3
Okunma
1513
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy

mehmetb84

Gümüş Üye
Kullanici Avatari
Gümüş Üye
M.... B....
468
29/12/2010
0
Denizli
Ofis 2013 64 Bit
Bugün,18:59
Çö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.883
29/01/2008
Denizli
Memur
Ofis 2010 32 Bit
Bugün,19:18
Çö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

Aktif Üye
Kullanici Avatari
Aktif Üye
A.... S.... Ş....
2.054
31/10/2008
63
İstanbul
-
01/09/2017,15:34
Çö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

Gümüş Üye
Kullanici Avatari
Gümüş Üye
M.... B....
468
29/12/2010
0
Denizli
Ofis 2013 64 Bit
Bugün,18:59
Çö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ü Kısayol Tuşuyla Liste Kutusu Üzerinden Değer Atama mehmetb84 6 178 18/09/2017, 12:20 mehmetb84
Çözüldü form üzerinde filtre ve sorgu bazk 17 9.512 07/09/2017, 09:08 alperen2006
Çözüldü Formda İki Kritere Göre Filtre Uygulamak ertans 2 271 18/07/2017, 11:43 ertans
Çözüldü Liste Box In İçindeki Verilerin Hizalanması erensimsek 3 276 19/05/2017, 14:05 erensimsek
Çözüldü Seçime Göre Açılır Liste blue_wall 5 397 11/05/2017, 17:06 atoz112

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2017 MyBB Group.
Forum use Krzysztof "Supryk" Supryczynski addons.