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