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.
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