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.