(24/01/2020, 09:44)accessman yazdı: birbirine benziyodur mutlaka ama asıl olay bence 
Forms("Form2").Controls(opt)
string değerini almıyor gittiği fonksiyonda string olması lazım bunu 
msgbox da
Forms("Form2").Controls(opt)
Forms("Form2").Controls(opt).Object
Forms("Form2").Controls(opt).Object.Name
hepsi hata veriyor

Forms("Form2").Controls(opt) 
Yukarıdaki kodun sonucu hanhi listview sürüklenirse(opt) onun namesi(örnek L01) gelecek mantık olarak ve sonuç olara abeyy.

(24/01/2020, 09:44)accessman yazdı: birbirine benziyodur mutlaka ama asıl olay bence 
Forms("Form2").Controls(opt)
string değerini almıyor gittiği fonksiyonda string olması lazım bunu 
msgbox da
Forms("Form2").Controls(opt)
Forms("Form2").Controls(opt).Object
Forms("Form2").Controls(opt).Object.Name
hepsi hata veriyor

Denee deneye alttaki gibi yapınca oldu.
Sadece güncelle functionunu çalıştırmak kaldı o da form içinde olduğu için mesele.Bakalım artık.

20 kere çalışma olayını hallettim select casede döngü kurmuştum ondanmış.
Güncelle fonksiyondan gelen verilere göre aarladım.

Güncelle fonksionunu ayarlamak kaldı.

Ellerine sağlık

Dosya bitti.

Fakat her sürüklemede biraz daha yavaşlıyor hız.
Ona sonra bakarım.

Bir deneyebilirsiniz sonucu.

Buda select case olayına gerek kalmadan yaptım ve bazı gereksiz kodları sildim.

Kod çalışınca neden dosa boyutu büüor ve fazla işlemde yavaşlıyor anlamadım sonra bakarım.