çoklu seçimle bir listeden diğer listede süzme yapmak

1 2 3
03/03/2009, 15:14

accessman

iyi günler arkadaşlar
gönderdiğim örnekte ilk listede (liste0) da tümü seçildiğinde ikinci listede (liste2) hepsinin görünmesini nasıl sağlayabiliriz
çok teşekkürler
03/03/2009, 15:26

esrefigit

seruz kardeşime bizi or deyimi gibi eziyetli bir uygulamadan kurtardığı için teşekkürlerimi bir borç bilerek neden daha önce ben düşünemedim diye kendime kızıyorum size gelince arkadaşım formdaki kodu aşağıdaki ile değiştirin istediğiniz olur

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 & ")"
If Kriter = "(*)" Then
Liste2.RowSource = "SELECT tedavikod, hastakod, tedavi FROM tedavi;"
Else
Liste2.RowSource = "SELECT tedavikod, hastakod, tedavi FROM tedavi WHERE hastakod in " & Kriter & ";"
'Liste2.RowSource = "SELECT tedavikod, hastakod, tedavi FROM tedavi HAVING (tedavi.hastakod) Like kriter & " * " ; "
End If

Liste2.Requery

'HAVING (((toplam.adı) Like [metin2] & "*") AND
'HAVING (toplam.adı) Like [metin2] & "*"
End Sub
03/03/2009, 15:45

accessman

teşekkürler esrefigit kardeşim
peki tümü seçildğinde diğer seçimleri kaldırabilirmiyiz
03/03/2009, 18:08

esrefigit

örneğin ekte
03/03/2009, 23:06

accessman

teşekkürler
ellerine sağlık
size fazla yük oluyorum belki ama kendim beceremiyorum
yapmak istediğim liste0 ve liste4 e göre liste2 yi süzmek ve süzülmüş şekliyle rapor yazdırmak
iki liste ayrı ayrı liste2 yi süzüyor fakat ikisini aynı anda nasıl kullanabiliriz
yani
mesala sadece ahmet ve mehmete yapılan pansuman ve idrar tahlillerini süzebilelim
inşallah anlaşılır olmuştur
ikinciside
listede "tümü" seçilince diğer seçilenler iptal oluyor bunun terside olabilirmi
yani "tümü" seçili durumda iken diğerlerinden biri seçilince "tümü" seçili durumu kalksın.
yardımlarınız için teşekkürler
03/03/2009, 23:48

esrefigit

Alıntı:listede "tümü" seçilince diğer seçilenler iptal oluyor bunun terside olabilirmi
yani "tümü" seçili durumda iken diğerlerinden biri seçilince "tümü" seçili durumu kalksın.
zaten öyle
1 2 3