+- 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)
Cvp: Kontrollere Toplu Kod Yazmak - feraz - 24/01/2020
(24/01/2020, 08:37)accessman yazdı: Kontrol değişkenini
Private Kontrol As New Collection
ile tanımlamışız
Dim TxtOpt As ClsLstvew
For i = 0 To 20
Set TxtOpt = New ClsLstvew
Select Case i
Case 0
Set TxtOpt.opt = Controls("L00").Object
Case 1 To 9
Set TxtOpt.opt = Controls("L0" & i).Object
Case 10 To 99
Set TxtOpt.opt = Controls("L" & i).Object
End Select
Kontrol.add TxtOpt
Next
ile eleman yüklemişiz ama başka hiç bir yerde kullanmamışız
problem bundan kaynaklı olabilir mi
Üsad class için yapıldı.Class olunca class içine bir defa yazmak yeterli.
Class kodunu incelerseniz itemclick ve drop olayı orda bulunuyor.
Cvp: Kontrollere Toplu Kod Yazmak - feraz - 24/01/2020
Set TxtOpt.opt = Controls("L00").Object
Yukarıdaki gibi olunca class olayı için hata olmuyor,alttaki gibinci(objecet olmadan) haya oluyor çok garip.Bulana kadar işim bitti dün
Set TxtOpt.opt = Controls("L00")
Cvp: Kontrollere Toplu Kod Yazmak - accessman - 24/01/2020
(24/01/2020, 08:40)feraz yazdı:ben işin mantığını çözemedim zaten(24/01/2020, 08:37)accessman yazdı: Kontrol değişkenini
Private Kontrol As New Collection
ile tanımlamışız
Dim TxtOpt As ClsLstvew
For i = 0 To 20
Set TxtOpt = New ClsLstvew
Select Case i
Case 0
Set TxtOpt.opt = Controls("L00").Object
Case 1 To 9
Set TxtOpt.opt = Controls("L0" & i).Object
Case 10 To 99
Set TxtOpt.opt = Controls("L" & i).Object
End Select
Kontrol.add TxtOpt
Next
ile eleman yüklemişiz ama başka hiç bir yerde kullanmamışız
problem bundan kaynaklı olabilir mi
Üsad class için yapıldı.Class olunca class içine bir defa yazmak yeterli.
Class kodunu incelerseniz itemclick ve drop olayı orda bulunuyor.
bir kaç değişiklik yaptım ama olmadı
call ile fonksiyon çağırmasa bile aynı kodun 20 kez çalışma sebebi nedir sizce
Cvp: Kontrollere Toplu Kod Yazmak - feraz - 24/01/2020
(24/01/2020, 09:11)accessman yazdı:(24/01/2020, 08:40)feraz yazdı:ben işin mantığını çözemedim zaten(24/01/2020, 08:37)accessman yazdı: Kontrol değişkenini
Private Kontrol As New Collection
ile tanımlamışız
Dim TxtOpt As ClsLstvew
For i = 0 To 20
Set TxtOpt = New ClsLstvew
Select Case i
Case 0
Set TxtOpt.opt = Controls("L00").Object
Case 1 To 9
Set TxtOpt.opt = Controls("L0" & i).Object
Case 10 To 99
Set TxtOpt.opt = Controls("L" & i).Object
End Select
Kontrol.add TxtOpt
Next
ile eleman yüklemişiz ama başka hiç bir yerde kullanmamışız
problem bundan kaynaklı olabilir mi
Üsad class için yapıldı.Class olunca class içine bir defa yazmak yeterli.
Class kodunu incelerseniz itemclick ve drop olayı orda bulunuyor.
bir kaç değişiklik yaptım ama olmadı
call ile fonksiyon çağırmasa bile aynı kodun 20 kez çalışma sebebi nedir sizce
Java ile hiç class yazmadınız mı?
20 kez çalışması olayına öğleden sonra bilgisayarı açınca bakabilirim.
Cvp: Kontrollere Toplu Kod Yazmak - accessman - 24/01/2020
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
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
Normalde form adını yazmadanda olur lakin anlamadığım şekilde çalışmıyor.
Opt yazıp noktaya basınca normalde çıkan özelliklerden name çıkmalı o çıkmıyor.
Yani opt.Name böyle olmuyor.
Normal bir listview ekleyip başka forma orda listview1.name diye hata vermeyip listview yazıp . Koyunca name çıkmalı diye biliyorum.
Ufak bir ayrıntı vardır çözeriz üstad haftasonuda geldi