Ekteki misalde form1 içindeki liste0 çoklu seçim olarak (özellikler, diğer, çoklu seçim=yok olarak ayarlandı). Yani listeden sadece bir satırı seçebiliyorsunuz. Özelliklerden çoklu seçimi = basit yaparsak listeden birden fazla seçim yapabiliyoruz. Baştan çoklu seçimi yok deyip program içerisinde bu özelliği nasıl değiştiririz. Liste110.multiselect=1 olarak komut düğmesi altına yazdım lakin kabul etmiyor hata veriyor. Bu işlemi kod kısmında bir komut düğmesi altında nasıl yaparız?

galiba bu özellik sadece tasarım modunda değiştirilebiliyormuş. ama biraz dolambaçlı bir yolla istediğiniz belki yapılabilir
forma bir boolean/evet-hayır değişkeni tanımlanır bu değer başlangıçta evet olur siz düğmeye basınca hayıra döner liste tıklama olayı da bu değikene göre işlem yapar

liste kutusu çoklu seçime izin verilmeli
formdaki kodlar

Option Compare Database ' bu kod zaten var

Dim Coklu As Boolean  '<--bu değişken eklenecek

form yüklenirken değer atama

Private Sub Form_Load()

Coklu = True

End Sub

butonla çoklu/tekli yapma

Private Sub Komut2_Click()

Coklu = -1 - (Coklu)

If Coklu = False Then

Dim Itm As Variant

    For Each Itm In Liste0.ItemsSelected

        Liste0.Selected(Itm) = False

    Next Itm

End If

End Sub

liste tıklama/seçme olayı

Private Sub Liste0_Click()



If Coklu = False Then

With Me.Liste0

    i = .ListIndex

    Dim Itm As Variant

    For Each Itm In .ItemsSelected

        .Selected(Itm) = False

    Next Itm

    .Selected(i) = True

End With

End If

End Sub

---

istenirse buton tıklama olayına tek seçim yap/çoklu seçim yap gibi buton başlığı da eklenebilir
Aslında değişkene bile gerek yok doğrudan buton yazısına göre de işlem yapılabilir.

Sayın Berduş ya çalıştıramadım yada bir yerde hata var. Ben de Listenin tasarım görünümünde çoklu seçimde "uzatılmış" seçerek işe devam ediyorum.

aşağıdaki dosyayı dener misiniz?
sizin dosyanızda yaptiğım değişiklikler
1 - liste kutusu çoklu seçimli oldu
2 - sadece önceki mesajda yer alan kodlar eklendi

yada sadece aşağıdaki kodlar da kullanılabilir
not: buton ve liste kutusu aşağıdaki gibi düzenlenmiş olmalı
1 - Liste0 --> çoklu seçim: basit
2 - Komut2-->tag/im=0
buton tıklama olayı

Private Sub Komut2_Click()

Komut2.Tag = -1 - (Komut2.Tag)

If Komut2.Tag = False Then

Dim Itm As Variant

For Each Itm In Liste0.ItemsSelected

Liste0.Selected(Itm) = False

Next Itm

End If

End Sub

liste0 tıklama olayı

Private Sub Liste0_Click()



If Komut2.Tag = False Then

With Me.Liste0

i = .ListIndex

Dim Itm As Variant

For Each Itm In .ItemsSelected

.Selected(Itm) = False

Next Itm

.Selected(i) = True

End With

End If

End Sub