03/03/2009, 15:14
çoklu seçimle bir listeden diğer listede süzme yapmak
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
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
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
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 olabilirmizaten öyle
yani "tümü" seçili durumda iken diğerlerinden biri seçilince "tümü" seçili durumu kalksın.