evet süper olmuş siz bu işi biliyorsunuz Doç.Berduş
son halini ekliyorum
@benbendedeilem
(20/03/2020, 23:15)berduş yazdı: öncelikle değiştiğinde çalışmasını istediğiniz metin kutularının IM/Tag özelliğine degistiginde yazın sonrada form load /form yüklendiğindeolayına aşağıdaki kodu ekleyinBen deneyemedim lakin aklıma takıldı.Alttaki yerde Me ye .controls eklenmeden kod çalışıyor mu?
sonrada ilgili forma aşağıdaki fonksiyonu ekleyinDim ctl As Control
For Each ctl In Me
If ctl.Tag = "degistiginde" Then
ctl.OnChange = "=Degisti([" & ctl.Name & "])"
End If
Next ctl
Public Function Degisti(ByRef ctl As Control)
Dim ctl2 As Control
Me.Metin0 = ""
For Each ctl2 In Me
If ctl2.Tag = "degistiginde" Then
If ctl2.Name = ActiveControl.Name Then _
Me.Metin0 = Me.Metin0 & "|" & IIf(Len(Nz(Trim(ctl2.Text))) = 0, ".", Trim(ctl2.Text)) Else _
Me.Metin0 = Me.Metin0 & "|" & Nz(Trim(ctl2), ".")
End If
Next ctl2
Me.Metin0 = Mid(Me.Metin0, 2)
End Function
metin0 değerini isgecmis ile değiştirin
(21/03/2020, 02:00)berduş yazdı: 1 - bende sorun çıkarmadı sayin @accessman da da çıkarmadıgina gore büyük bir ihtimalle böyle de çalışıyor ama belki controls kullanmak baska ozelliklerle ilgili islem yaparken daha uygundurBelki değil kalıp olarak .controls kullanılıyor.Çalışıyorsa sorun yok.Change olayını sırmamdaki amaç class yapmaya gerek olup olmadığını anlamak içindi.Sonra test ederim kodu.Öğreneceğimiz çok şey var.
2 - onchange değiştiğinde olayıdır