Metin Kutusu Birleştirmek Ve Text Özelliği

Isterseniz sorulara taşıyayım siz de uygun bir zamanda çalışmanızı ekleyin?

Taşıyın abey.Sadece gözüme çarpanları yazmıştım.Benzer örnek denerim kendimde olmazsa konu açarım..
Geeçekten güzel kodlar olmuş class alternatifi olarak
Hayırlı geceler.

Size de)

ByRef ctl As Control ile giren ctl hiç kullanılmamış
Aktif control bunun yerine mi kullanılmış

(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

bu kod iyi oldu ama genel olarak diğeri daha güzel