Skip to main content

AccessTr.neT


Metin Kutusu Birleştirmek Ve Text Özelliği

Metin Kutusu Birleştirmek Ve Text Özelliği

#7
evet süper olmuş siz bu işi biliyorsunuz Doç.Berduş 
son halini ekliyorum
.rar Database1.rar (Dosya Boyutu: 36 KB | İndirme Sayısı: 4)
@benbendedeilem
Cevapla
#8
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!
Cevapla
#9
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
Cevapla
#10
(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
Cevapla
#11
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
Cevapla
#12
(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.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task