Metin Kutusu Birleştirmek Ve Text Özelliği

Metin Kutusu Birleştirmek Ve Text Özelliği - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Metin Kutusu Birleştirmek Ve Text Özelliği (/konu-metin-kutusu-birlestirmek-ve-text-ozelligi.html)

Sayfalar: 1 2 3 4 5 6 7 8 9

Cvp: Metin Kutusu Birleştirmek Ve Text Özelliği - accessman - 20/03/2020

evet süper olmuş siz bu işi biliyorsunuz Doç.Berduş
son halini ekliyorum

Cvp: Metin Kutusu Birleştirmek Ve Text Özelliği - berduş - 20/03/2020

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!

Cvp: Metin Kutusu Birleştirmek Ve Text Özelliği - accessman - 20/03/2020

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

Cvp: Metin Kutusu Birleştirmek Ve Text Özelliği - feraz - 21/03/2020

(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

Cvp: Metin Kutusu Birleştirmek Ve Text Özelliği - berduş - 21/03/2020

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

Cvp: Metin Kutusu Birleştirmek Ve Text Özelliği - feraz - 21/03/2020

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