AccessTr.neT

Tam Versiyon: Metin Kutusu Birleştirmek Ve Text Özelliği
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
Sayfalar: 1 2 3 4 5 6 7 8 9
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 Img-grin

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
Sayfalar: 1 2 3 4 5 6 7 8 9