AccessTr.neT
Ana Formdaki Liste Kutularında Seçimi Kaldırma - 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ığı: Ana Formdaki Liste Kutularında Seçimi Kaldırma (/konu-ana-formdaki-liste-kutularinda-secimi-kaldirma.html)

Ana Formdaki Liste Kutularında Seçimi Kaldırma - osman06 - 13/11/2025

ekteki resimde 3 tane listes kutusu var liste kutularından herhangibi birine tıkladığımda diğer kutulardaki seçimi kaldırması lazım . şu anda görüldüğü üzere hepsi siyah hangisini seçtiğimi fark edemiyorum.
nasıl bi kod olması lazım veya özelliklerdemi bunun çözümü

RE: Ana Formdaki Liste Kutularında Seçimi Kaldırma - onur_can - 13/11/2025

Bu olayı Liste kutularının GotFocus olaylarına yazacağın kodla halledebilirsin. Şöyleki;
Private Sub Liste0_GotFocus()

Dim varItem As Variant



        For Each varItem In Liste1.ItemsSelected

            Liste1.Selected(varItem) = False

        Next



    For Each varItem In Liste2.ItemsSelected

        Liste2.Selected(varItem) = False

    Next



End Sub

Private Sub Liste1_GotFocus()

    Dim varItem As Variant

        For Each varItem In Liste0.ItemsSelected

            Liste0.Selected(varItem) = False

        Next



    For Each varItem In Liste2.ItemsSelected

        Liste2.Selected(varItem) = False

    Next

End Sub





Private Sub Liste2_GotFocus()

    Dim varItem As Variant

        For Each varItem In Liste0.ItemsSelected

            Liste0.Selected(varItem) = False

        Next



    For Each varItem In Liste1.ItemsSelected

        Liste1.Selected(varItem) = False

    Next

End Sub

buradaki Liste Kutularının isimlerini kendi formundaki liste kutularının adlarıyla değiştirebilirsin.

RE: Ana Formdaki Liste Kutularında Seçimi Kaldırma - osman06 - 13/11/2025

(13/11/2025, 23:02)onur_can yazdı: Bu olayı Liste kutularının GotFocus olaylarına yazacağın kodla halledebilirsin. Şöyleki;
Private Sub Liste0_GotFocus()

Dim varItem As Variant



        For Each varItem In Liste1.ItemsSelected

            Liste1.Selected(varItem) = False

        Next



    For Each varItem In Liste2.ItemsSelected

        Liste2.Selected(varItem) = False

    Next



End Sub

Private Sub Liste1_GotFocus()

    Dim varItem As Variant

        For Each varItem In Liste0.ItemsSelected

            Liste0.Selected(varItem) = False

        Next



    For Each varItem In Liste2.ItemsSelected

        Liste2.Selected(varItem) = False

    Next

End Sub





Private Sub Liste2_GotFocus()

    Dim varItem As Variant

        For Each varItem In Liste0.ItemsSelected

            Liste0.Selected(varItem) = False

        Next



    For Each varItem In Liste1.ItemsSelected

        Liste1.Selected(varItem) = False

    Next

End Sub

buradaki Liste Kutularının isimlerini kendi formundaki liste kutularının adlarıyla değiştirebilirsin.

tşkler hocam emeğinize sağlık

RE: Ana Formdaki Liste Kutularında Seçimi Kaldırma - onur_can - 14/11/2025

rica ederim, kolay gelsin...