AccessTr.neT
çoklu seçimle bir listeden diğer listede süzme yapmak - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: çoklu seçimle bir listeden diğer listede süzme yapmak (/konu-coklu-secimle-bir-listeden-diger-listede-suzme-yapmak.html)

Sayfalar: 1 2 3


çoklu seçimle bir listeden diğer listede süzme yapmak - accessman - 22/02/2009

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


Cvp: çoklu seçimle bir listeden diğer listede süzme yapmak - C*e*l*o*y*c*e - 22/02/2009

sayın accesman
önceden elimde bulunan bir alıntı iki örnek var bunu incele ve kendine uyarla,kolay gelsin


Cvp: çoklu seçimle bir listeden diğer listede süzme yapmak - Seruz - 22/02/2009

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:
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




Cvp: çoklu seçimle bir listeden diğer listede süzme yapmak - Tombakoglu - 22/02/2009

Teşekkürler,
Hayırlı çalışmalar dilerim.


Cvp: çoklu seçimle bir listeden diğer listede süzme yapmak - accessman - 23/02/2009

teşekkürler arkadaşlar
süpersiniz


Cvp: çoklu seçimle bir listeden diğer listede süzme yapmak - accessman - 24/02/2009

arkadaşlar açılmış bir konuya cevap yazarken eklenti ekleyemiyorum
eklenti düğmesi gözükmüyor