(21/03/2020, 07:08)accessman yazdı: Aktif control bunun yerine mi kullanılmış

evet aslında activecontrol.name yerin ctl.name de kullanılabilirdi yada

Private Sub Form_Load()

Dim ctl As Control

    For Each ctl In Me

        If ctl.Tag = "degistiginde" Then

            ctl.OnChange = "=Degisti()"

        End If

    Next ctl



End Sub

Public Function Degisti() 

Dim ctl As Control

Me.Metin0 = ""

    For Each ctl In Me

        If ctl.Tag = "degistiginde" Then

            If ctl.Name = ActiveControl.Name Then _

               Me.Metin0 = Me.Metin0 & "|" & IIf(Len(Nz(Trim(ctl.Text))) = 0, ".", Trim(ctl.Text)) Else _

               Me.Metin0 = Me.Metin0 & "|" & Nz(Trim(ctl), ".")

        End If

        

    Next ctl

Me.Metin0 = Mid(Me.Metin0, 2)



End Function

gibi de