çoklu seçimle bir listeden diğer listede süzme yapmak
Tarih
22/02/2009 09:46
Konu Sahibi
accessman
Yorumlar
14
Okunma
4022
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy



accessman

Kullanici Avatari
Onursal
2.367
31/10/2008
425
Denizli
Ofis 2003
20/09/2016,00:20
Çözüldü 
Sponsor Reklam
aynı isimli bir konu açmıştım fakat oraya eklenti ekleyemedim bunun için tekrar konu açtım
çoklu seçim özelliği olan ilk listeden (liste0) dan şeçtiğimiz hastalara ait tedavi bilgilerinin (liste2) de süzülmesini nasıl sağlayabiliriz
yani seçilen hasta sayısı değiştikçe liste2 de değişecek
yardımcı olacak arkadaşlara teşekkürler


Ek Dosyalar
.rar   çoklu seçimle bir listeden diğer listeyi süzmek.rar (Dosya Boyutu: 28,38 KB / İndirme Sayısı: 46)
Cevapla

C*e*l*o*y*c*e
Celosoft Yazılım
Kullanici Avatari
Uzman
M.... B....
2.862
29/10/2008
902
Ankara
Ofis 2010 32 Bit
Bugün,17:11
Çözüldü 
sayın accesman
önceden elimde bulunan bir alıntı iki örnek var bunu incele ve kendine uyarla,kolay gelsin


Ek Dosyalar
.rar   bir_liste_kutusundan_digerine_bilgi_tamak.rar (Dosya Boyutu: 11,98 KB / İndirme Sayısı: 61)
.rar   seçilen listeden_kayıt.rar (Dosya Boyutu: 19,42 KB / İndirme Sayısı: 67)
Cevapla

Seruz
Uzman
Kullanici Avatari
Uzman
S.... U....
1.546
7
30/10/2008
804
Tekirdağ
Ofis XP
Bugün,09:38
Çözüldü 
Sponsor Reklam
Gönderdiğiniz örneği istediğiniz şekilde düzelttim.

Siz Where kontrolünü
Or ile yapmaya çalışmışsınız, ben bu tür çoklu kontrollerde daha uygun olan In ile yapmayı tercih ettim.

Kod:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Private Sub Liste0_AfterUpdate()
Dim v, Id, Kriter

    'EĞER LİSTE BOŞSA
    If Me.Liste0.ItemsSelected.Count = 0 Then
        Liste2.RowSource = ""
        MsgBox "LÜTFEN LİSTEDEN SEÇİM YAPIN", vbExclamation, "DİKKAT"
        Exit Sub
    End If

    'LİSTE KUTUSUNDAN KRİTER EKLEME
    Kriter = ""
    For Each v In Liste0.ItemsSelected
        Id = Liste0.Column(0, v)
        If Kriter = "" Then Kriter = Kriter & "(" Else Kriter = Kriter & ","
        Kriter = Kriter & Id
    Next v
    Kriter = Kriter & ")"
    
    Liste2.RowSource = "SELECT tedavikod, hastakod, tedavi FROM tedavi WHERE hastakod in " & Kriter & ";"
    Liste2.Requery

End Sub




Ek Dosyalar
.rar   coklu_seruz.rar (Dosya Boyutu: 13,06 KB / İndirme Sayısı: 84)
Bildiğini bilenin arkasından git, bildiğini bilmeyeni uyar, bilmediğini bilene öğret, bilmediğini bilmeyenden kaç.
Konfüçyüs
Cevapla

Tombakoglu
Aktif Üye
Kullanici Avatari
Aktif Üye
109
7
27/01/2009
3
Eskişehir
Ofis 2007
28/12/2015,19:19
Çözüldü 
Teşekkürler,
Hayırlı çalışmalar dilerim.
Cevapla

accessman

Kullanici Avatari
Onursal
2.367
31/10/2008
425
Denizli
Ofis 2003
20/09/2016,00:20
Çözüldü 
Sponsor Reklam
teşekkürler arkadaşlar
süpersiniz
Cevapla

accessman

Kullanici Avatari
Onursal
2.367
31/10/2008
425
Denizli
Ofis 2003
20/09/2016,00:20
Çözüldü 
arkadaşlar açılmış bir konuya cevap yazarken eklenti ekleyemiyorum
eklenti düğmesi gözükmüyor
Cevapla


Konuyu Okuyanlar: 1 Ziyaretçi


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
  Listeden Forma Bilgi Aktarma U.ALTUN 25 968 13/02/2017, 14:13 atoz112
  Kasa Hareketleri Formunda Listede kayıt sayısını göstermek haziran4 2 44 09/02/2017, 17:28 haziran4
  Birden Fazla Seçenek İle Formda Filtreleme Yapmak dufrety 3 67 09/02/2017, 13:26 dufrety
  Form Açıldığında Listede En Son Tarihli Kasa Kayıtları Listelenmesi haziran4 4 57 09/02/2017, 11:45 haziran4
  listeden Seçilen Kaydın Forma Gelmesi U.ALTUN 13 205 08/02/2017, 13:53 U.ALTUN


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