çoklu seçimle bir listeden diğer listede süzme yapmak
Tarih
22/02/2009 09:46
Konu Sahibi
accessman
Yorumlar
14
Okunma
3918
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ü 
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.813
29/10/2008
899
Ankara
Ofis 2010 32 Bit
Dün,23:43
Çö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.544
7
30/10/2008
804
Tekirdağ
Ofis XP
02/12/2016,15:18
Çözüldü 
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ü 
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
  Listede ve Raporda Tarih değerine göre sıralamak m_demir 20 281 03/12/2016, 00:13 m_demir
  Listede arama yapılanın seçimi aktif olması raburabu 3 95 01/12/2016, 08:42 raburabu
  Arama problemi ve bir kaç diğer sorun nightashes 3 110 28/11/2016, 01:22 nightashes
  Tek Formu Diğer formlarda kullanma raburabu 6 168 27/11/2016, 23:21 raburabu
  Access'te Sertifika Programı yapmak Yakupbg 2 90 25/11/2016, 10:45 Yakupbg


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