AccessTr.neT

Tam Versiyon: Metin Kutusu Birleştirmek Ve Text Özelliği
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
Sayfalar: 1 2 3 4 5 6 7 8 9
Class demeyeyim ama modül olabilir belki, tüm formlarda kullanılabilecek belli başlı durumlarda aktif nesnenin rengini yada fontunu değiştirmek gibi, yada onfocus gibi odaklanildiginda kullanılabilecek genel geçer durumlar için modül oluşturup modüle eklenebilir fonksiyon formload olayında da çağrılarsa sorun çıkarmaz diye düşünüyorum tabi birkaç ufak degisiklikle
(21/03/2020, 02:15)berduş yazdı: [ -> ]Class demeyeyim ama modül olabilir belki, tüm formlarda kullanılabilecek belli başlı durumlarda aktif nesnenin rengini yada fontunu değiştirmek gibi, yada onfocus gibi odaklanildiginda kullanılabilecek genel geçer durumlar için modül oluşturup modüle eklenebilir fonksiyon formload olayında da çağrılarsa sorun çıkarmaz diye düşünüyorum tabi birkaç ufak degisiklikle
Anladım gözüme çarpan bir durum daha var onuda birazdan soracağım Img-grin

Mobilden takip ettiğim için anlamaya çalışıyorum kodları.
(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
Alttaki kodda ctl olarak parametre girmişiniz ve kullanmamışsınız function içinde ve bence gereksiz foreach kurmuşsunuz gibi sanki galiba..Çünkü zaten ilk yani üstteki kodda foreach ile döngü çalışırken control adlarını yolluyor function içine.Haksızmıyım?
Fonksiyonda zaten ctl tanimli oldugundan ctl2 dediginiz gibi gereksiz  dogrudanctrl ile devam edilebilirdi ama 2. for each gerekli çünkü formloadda kullanılan for each metin kutularına olay atarken fonksiyonda kullanılani, değerleri metin kutusuna atıyor.
(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

Yani alıntıdaki function koduna alttaki gibi gibi örnek olarak döngüsüz topluca yazılabilir.Yada array içine control adları alınıpta olabilir.Neyse kafaları karıştırmayayım sonuçta çözülmüş.


Me.isgecmis = Nz(Me.isyeri1.text, ".") & "|" & Nz(Me.iskolu1, ".") & "|" & Nz(Me.yapis1, ".") & "|" & Nz(Me.isgirtar1, ".") & "|" & Nz(Me.isciktar1, ".") _
    
& "|" & Nz(Me.isyeri2, ".") & "|" & Nz(Me.iskolu2, ".") & "|" & Nz(Me.yapis2, ".") & "|" & Nz(Me.isgirtar2, ".") & "|" & Nz(Me.isciktar2, ".") _
    
& "|" & Nz(Me.isyeri3, ".") & "|" & Nz(Me.iskolu3, ".") & "|" & Nz(Me.yapis3, ".") & "|" & Nz(Me.isgirtar3, ".") & "|" & Nz(Me.isciktar3, ".")
Sanmıyorum. şu an hatırlamıyorum sayin @accessman in dosyasında tablo olup olmadığını, ama ben çalışmayı tablosuz ve ilişkisiz formda yaptım, ayrica sayin @accessman ilk mesajında .textin kullanılması gerektiğini belirtmişti yani metin kutusuna girilen yada silinen her harften sonra değerin isgecmis metin kutusuna atanması gerektiğini. Oysa sizin kodda son değer tek atanıyor, sadece ilk alan için anlık değişiklik dikkate alınıyor, diğerlerinde değil
Sayfalar: 1 2 3 4 5 6 7 8 9