Skip to main content

AccessTr.neT

Kayıt Ol

 | Facebook ile Bağlan  | Twitter İle Bağlan | Google+ İle Bağlan

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

accessman
accessman
Access Cevaplanmış Soruları
14
8040

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

Çözüldü #1
accessman
Aktif Üye
accessman
Bul
Aktif Üye
Adı Soyadı:
Konum: Denizli
Ofis Versiyonu: Ofis 2003
Son Oturumu: 12/01/2021,20:07
Yorumları: 4.395
Konuları: 900
Kayıt Tarihi: 31/10/2008
Teşekkür Puanı: 434
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
.rar çoklu seçimle bir listeden diğer listeyi süzmek.rar (Dosya Boyutu: 28,38 KB | İndirme Sayısı: 46)
Cevapla
Çözüldü #2
C*e*l*o*y*c*e
Uzman
C*e*l*o*y*c*e
Bul
Uzman
Adı Soyadı: Ce.... Ya....
Konum: Ankara
Ofis Versiyonu: Ofis 2010 32 Bit
Yorumları: 3.604
Konuları: 78
Kayıt Tarihi: 29/10/2008
Teşekkür Puanı: 1.047
Mesleğiniz: Yazılım
sayın accesman
önceden elimde bulunan bir alıntı iki örnek var bunu incele ve kendine uyarla,kolay gelsin
.rar bir_liste_kutusundan_digerine_bilgi_tamak.rar (Dosya Boyutu: 11,98 KB | İndirme Sayısı: 64)
.rar seçilen listeden_kayıt.rar (Dosya Boyutu: 19,42 KB | İndirme Sayısı: 69)
Cevapla
Çözüldü #3
Seruz
Uzman
Seruz
www Bul
Uzman
Adı Soyadı: Se.... UZ....
Yaşı: 53
Konum: Tekirdağ
Ofis Versiyonu: Ofis 2016 64 Bit
Son Oturumu: 28/04/2025,14:50
Yorumları: 1.579
Konuları: 8
Kayıt Tarihi: 30/10/2008
Teşekkür Puanı: 825
Mesleğiniz: BT Şefi
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
.rar coklu_seruz.rar (Dosya Boyutu: 13,06 KB | İndirme Sayısı: 87)
Bildiğini bilenin arkasından git, bildiğini bilmeyeni uyar, bilmediğini bilene öğret, bilmediğini bilmeyenden kaç.
Konfüçyüs
Cevapla
Çözüldü #4
Tombakoglu
Aktif Üye
Tombakoglu
Bul
Aktif Üye
Adı Soyadı:
Yaşı: 67
Konum: Eskişehir
Ofis Versiyonu: Ofis 2007
Son Oturumu: 28/12/2015,19:19
Yorumları: 109
Konuları: 7
Kayıt Tarihi: 27/01/2009
Teşekkür Puanı: 3
Teşekkürler,
Hayırlı çalışmalar dilerim.
Cevapla
Çözüldü #5
accessman
Aktif Üye
accessman
Bul
Aktif Üye
Adı Soyadı:
Konum: Denizli
Ofis Versiyonu: Ofis 2003
Son Oturumu: 12/01/2021,20:07
Yorumları: 4.395
Konuları: 900
Kayıt Tarihi: 31/10/2008
Teşekkür Puanı: 434
teşekkürler arkadaşlar
süpersiniz
Cevapla
Çözüldü #6
accessman
Aktif Üye
accessman
Bul
Aktif Üye
Adı Soyadı:
Konum: Denizli
Ofis Versiyonu: Ofis 2003
Son Oturumu: 12/01/2021,20:07
Yorumları: 4.395
Konuları: 900
Kayıt Tarihi: 31/10/2008
Teşekkür Puanı: 434
arkadaşlar açılmış bir konuya cevap yazarken eklenti ekleyemiyorum
eklenti düğmesi gözükmüyor
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da