Metin Kutusu Birleştirmek Ve Text Özelliği

1 2 3 4 5 6 7 8 9
20/03/2020, 23:27

accessman

evet süper olmuş siz bu işi biliyorsunuz Doç.Berduş 
son halini ekliyorum
20/03/2020, 23:32

berduş

daha önce de buna benzer bir soruda size bahsetmiştim aslında Cactus Cafe MSG BOX_hy4_1 uygulamasında kullandığım bu kodun işinize yarayabileceğinizi
iyi çalışmalar

eski kodları silmemişsiniz ama!
20/03/2020, 23:38

accessman

Birinci kutunun change olayını silip denedim olunca o heyecanla diğerlerini silmeyi unutmuşum 
Bir çok kodu uzun yoldan yazıyormuşum
Moralim bozuldu
21/03/2020, 01:53

feraz

(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 ekleyin
Dim ctl As Control
    For Each ctl In Me
        If ctl.Tag = "degistiginde" Then
            ctl.OnChange = "=Degisti([" & ctl.Name & "])"
        End If
    Next ctl
sonrada ilgili forma aşağıdaki fonksiyonu ekleyin
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
Ben deneyemedim lakin aklıma takıldı.Alttaki yerde Me ye .controls  eklenmeden kod çalışıyor mu?
İlk defa gördüm.me.controls  diye oluyorda standart olarak o yüzden sordum.

For Each ctl In Me

Birde alttaki kod ne işe yarar.Özelliklerdeki değiştiğinde kısmına kodmu ekliyor.

Saygılar.


ctl.OnChange
21/03/2020, 02:00

berduş

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 uygundur
2 - onchange değiştiğinde olayıdır
21/03/2020, 02:09

feraz

(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 uygundur
2 - onchange değiştiğinde olayıdır
Belki 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.
1 2 3 4 5 6 7 8 9