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 - accessman - 23/01/2020

form masa giriş de 25 adet tıklanma olayı yazılmış

Cvp: Kontrollere Toplu Kod Yazmak - berduş - 23/01/2020

yanlış dosyaymış aşağıdakini inceler misiniz?
.rar Catus Cafe MSG BOX_hy4_1.rar (Dosya Boyutu: 141,37 KB | İndirme Sayısı: 0)


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

(23/01/2020, 16:52)accessman yazdı: bir el atsan feraz 
senin şu arka plan renkleri ile ilgili kodlar vardı onu uygulayamadım
Akşama doğru bakabilirim.

Class ile Textbox yapmıştım o kadlar yapılır basitçe.Denemek gerek.

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

Form load kısım kodlarnı for each değilde normal for dngüsüyle yapılır.

Alttaki mantık uygulanır böylece tag yada ad olayınına gerek kalmaz.Kafadan yazdım kodu telefondan böyle mantık yani.
Textbox kodlarındaki array kullanılmayacak bu durumda.

For i = 1 to 50
Set değişken.class= me.controls("txt" & i)
Next

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

bu dediğini buna nasıl uyarlayacağız

Private Sub txt42_ItemClick(ByVal Item As Object)
    veri = Me.txt42.Object.SelectedItem
End Sub

Private Sub txt42_OLEDragDrop(Data As Object, Effect As Long, Button As Integer, Shift As Integer, x As Single, y As Single)
    Call güncelle("txt42", veri)
End Sub

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

(23/01/2020, 17:58)accessman yazdı: bu dediğini buna nasıl uyarlayacağız

Private Sub txt42_ItemClick(ByVal Item As Object)
    veri = Me.txt42.Object.SelectedItem
End Sub

Private Sub txt42_OLEDragDrop(Data As Object, Effect As Long, Button As Integer, Shift As Integer, x As Single, y As Single)
    Call güncelle("txt42", veri)
End Sub
"txt42" bu kısma classın içine alınan control adı yazılacak.

Call güncelle(textad, veri) gibi.
Yani textad yazdışımığım yere kod ile otomatik gelecek adlar hangisiyle işlem yaşılıyorsa.