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