AccessTr.neT

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

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

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.