AccessTr.neT
Kontrollere Toplu Kod Yazmak - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Kontrollere Toplu Kod Yazmak (/konu-kontrollere-toplu-kod-yazmak.html)

Sayfalar: 1 2 3 4 5 6 7 8

Cvp: Kontrollere Toplu Kod Yazmak - feraz - 24/01/2020

(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.

Cvp: Kontrollere Toplu Kod Yazmak - feraz - 24/01/2020

(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


Cvp: Kontrollere Toplu Kod Yazmak - feraz - 24/01/2020

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ı.

Cvp: Kontrollere Toplu Kod Yazmak - accessman - 24/01/2020

Ellerine sağlık

Cvp: Kontrollere Toplu Kod Yazmak - feraz - 24/01/2020

Dosya bitti.

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

Bir deneyebilirsiniz sonucu.

Cvp: Kontrollere Toplu Kod Yazmak - feraz - 24/01/2020

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.