evet süper olmuş siz bu işi biliyorsunuz Doç.Berduş 
son halini ekliyorum

daha önce de buna benzer bir soruda size bahsetmiştim aslında Cactus Cafe MSG BOX_hy4_1 uygulamasında kullandığım bu kodun işinize yarayabileceğinizi
iyi çalışmalar

eski kodları silmemişsiniz ama!

Birinci kutunun change olayını silip denedim olunca o heyecanla diğerlerini silmeyi unutmuşum 
Bir çok kodu uzun yoldan yazıyormuşum
Moralim bozuldu

(20/03/2020, 23:15)berduş yazdı: öncelikle değiştiğinde çalışmasını istediğiniz metin kutularının IM/Tag özelliğine degistiginde yazın sonrada form load /form yüklendiğindeolayına aşağıdaki kodu ekleyin

Dim ctl As Control
    For Each ctl In Me
        If ctl.Tag = "degistiginde" Then
            ctl.OnChange = "=Degisti([" & ctl.Name & "])"
        End If
    Next ctl

Kodu Seç

Kodu Kopyala

sonrada ilgili forma aşağıdaki fonksiyonu ekleyin

Public Function Degisti(ByRef ctl As Control)
Dim ctl2 As Control
Me.Metin0 = ""
    For Each ctl2 In Me
        If ctl2.Tag = "degistiginde" Then
            If ctl2.Name = ActiveControl.Name Then _
               Me.Metin0 = Me.Metin0 & "|" & IIf(Len(Nz(Trim(ctl2.Text))) = 0, ".", Trim(ctl2.Text)) Else _
               Me.Metin0 = Me.Metin0 & "|" & Nz(Trim(ctl2), ".")
        End If
        
    Next ctl2
Me.Metin0 = Mid(Me.Metin0, 2)

End Function

Kodu Seç

Kodu Kopyala

metin0 değerini isgecmis ile değiştirin

Ben deneyemedim lakin aklıma takıldı.Alttaki yerde Me ye .controls  eklenmeden kod çalışıyor mu?
İlk defa gördüm.me.controls  diye oluyorda standart olarak o yüzden sordum.

For Each ctl In Me

Birde alttaki kod ne işe yarar.Özelliklerdeki değiştiğinde kısmına kodmu ekliyor.

Saygılar.


ctl.OnChange

1 - bende sorun çıkarmadı sayin @accessman da da çıkarmadıgina gore büyük bir ihtimalle böyle de çalışıyor ama belki controls kullanmak baska ozelliklerle ilgili islem yaparken  daha uygundur
2 - onchange değiştiğinde olayıdır

(21/03/2020, 02:00)berduş yazdı: 1 - bende sorun çıkarmadı sayin @accessman da da çıkarmadıgina gore büyük bir ihtimalle böyle de çalışıyor ama belki controls kullanmak baska ozelliklerle ilgili islem yaparken  daha uygundur
2 - onchange değiştiğinde olayıdır

Belki değil kalıp olarak .controls kullanılıyor.Çalışıyorsa sorun yok.Change olayını sırmamdaki amaç class yapmaya gerek olup olmadığını anlamak içindi.Sonra test ederim kodu.Öğreneceğimiz çok şey var.