Metin Kutusu Birleştirmek Ve Text Özelliği

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.