Sayın Accessman aşağıdaki kodu denermisiniz .

dim ctl as variant

for each ctl in me.liste0.ItemsSelected

me.liste0.selected(ctl)=false

next

Sn.kural
tam istediğim gibi oldu
hepinize teşekkürler
süpersiniz accesstr ailesi

şimdide
bütüm listelerde aynı şeyi yapmam lazım

liste isimleri
liste0, liste2, liste4............liste46
0 - 46 arasında çift sayılar
lazim olan kod
----------------------
for r = 0 to 46 step 2

for each ctl in me.liste""r".ItemsSelected
me.liste"r".selected(ctl)=false
next
next r
--------------
bu kodu nasıl yazabilirim
dıştaki for döngüsünde
liste isimleri 0-46 kadar ikişerli artacak
teşekkürler

Sayın accesman;
Aşağıdaki gibi iç içe iki döngü yapacaksınız. böylece olacak.
Denermisiniz. kodları denemeden yazıyorum inceleyerek dönüş yapınız.

dim listler, ctl as variant

for each listler in me.controls

if listler.controltype=aclistbox then

for each ctl in listler.ItemsSelected

me.listler.selected(ctl)=false

next

end if

next

harika oldu
ben bunun için bir sürü kod yazacaktım
yinede bir şeye benzemeyecekti
bir gram şeker için bir çuval keçiboynuzu yemek gibi olacaktı
elinize sağlık
yalnız 5 satırdaki

me.listler.selected(ctl)=false

hata verdi başındaki
"me." kaldırınca düzeldi

Doğru. Me. olmamalıydı ama işte denemeden gönderdim demiştim. Düzeltmiş olmanıza sevindim.
Keçiboynuzu yemek pratiğinizi artırır.