(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.
Kod:
Dim frm As Form
Set frm = Forms("Form2")
MsgBox Forms(frm.Form.Name).ActiveControl.Name
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ı.
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.