(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

Alttaki kodda ctl olarak parametre girmişiniz ve kullanmamışsınız function içinde ve bence gereksiz foreach kurmuşsunuz gibi sanki galiba..Çünkü zaten ilk yani üstteki kodda foreach ile döngü çalışırken control adlarını yolluyor function içine.Haksızmıyım?