Metin Kutusu Birleştirmek Ve Text Özelliği - accessman - 20/03/2020
Private Sub isyeri1_Change()
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, ".")
End Sub
Private Sub iskolu1_Change()
Me.isgecmis = Nz(Me.isyeri1, ".") & "|" & Nz(Me.iskolu1.text, ".") & "|" & 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, ".")
End Sub
Private Sub yapis1_Change()
Me.isgecmis = Nz(Me.isyeri1, ".") & "|" & Nz(Me.iskolu1, ".") & "|" & Nz(Me.yapis1.text, ".") & "|" & 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, ".")
End Sub
Private Sub isgirtar1_Change()
Me.isgecmis = Nz(Me.isyeri1, ".") & "|" & Nz(Me.iskolu1, ".") & "|" & Nz(Me.yapis1, ".") & "|" & Nz(Me.isgirtar1.text, ".") & "|" & 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, ".")
End Sub
Private Sub isciktar1_Change()
Me.isgecmis = Nz(Me.isyeri1, ".") & "|" & Nz(Me.iskolu1, ".") & "|" & Nz(Me.yapis1, ".") & "|" & Nz(Me.isgirtar1, ".") & "|" & Nz(Me.isciktar1.text, ".") _
& "|" & 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, ".")
End Sub
Private Sub isyeri2_Change()
Me.isgecmis = Nz(Me.isyeri1, ".") & "|" & Nz(Me.iskolu1, ".") & "|" & Nz(Me.yapis1, ".") & "|" & Nz(Me.isgirtar1, ".") & "|" & Nz(Me.isciktar1, ".") _
& "|" & Nz(Me.isyeri2.text, ".") & "|" & 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, ".")
End Sub
Private Sub iskolu2_Change()
Me.isgecmis = Nz(Me.isyeri1, ".") & "|" & Nz(Me.iskolu1, ".") & "|" & Nz(Me.yapis1, ".") & "|" & Nz(Me.isgirtar1, ".") & "|" & Nz(Me.isciktar1, ".") _
& "|" & Nz(Me.isyeri2, ".") & "|" & Nz(Me.iskolu2.text, ".") & "|" & Nz(Me.yapis2, ".") & "|" & Nz(Me.isgirtar2, ".") & "|" & Nz(Me.isciktar2, ".") _
& "|" & Nz(Me.isyeri3, ".") & "|" & Nz(Me.iskolu3, ".") & "|" & Nz(Me.yapis3, ".") & "|" & Nz(Me.isgirtar3, ".") & "|" & Nz(Me.isciktar3, ".")
End Sub
Private Sub yapis2_Change()
Me.isgecmis = Nz(Me.isyeri1, ".") & "|" & Nz(Me.iskolu1, ".") & "|" & Nz(Me.yapis1, ".") & "|" & Nz(Me.isgirtar1, ".") & "|" & Nz(Me.isciktar1, ".") _
& "|" & Nz(Me.isyeri2, ".") & "|" & Nz(Me.iskolu2, ".") & "|" & Nz(Me.yapis2.text, ".") & "|" & Nz(Me.isgirtar2, ".") & "|" & Nz(Me.isciktar2, ".") _
& "|" & Nz(Me.isyeri3, ".") & "|" & Nz(Me.iskolu3, ".") & "|" & Nz(Me.yapis3, ".") & "|" & Nz(Me.isgirtar3, ".") & "|" & Nz(Me.isciktar3, ".")
End Sub
Private Sub isgirtar2_Change()
Me.isgecmis = Nz(Me.isyeri1, ".") & "|" & Nz(Me.iskolu1, ".") & "|" & Nz(Me.yapis1, ".") & "|" & Nz(Me.isgirtar1, ".") & "|" & Nz(Me.isciktar1, ".") _
& "|" & Nz(Me.isyeri2, ".") & "|" & Nz(Me.iskolu2, ".") & "|" & Nz(Me.yapis2, ".") & "|" & Nz(Me.isgirtar2.text, ".") & "|" & Nz(Me.isciktar2, ".") _
& "|" & Nz(Me.isyeri3, ".") & "|" & Nz(Me.iskolu3, ".") & "|" & Nz(Me.yapis3, ".") & "|" & Nz(Me.isgirtar3, ".") & "|" & Nz(Me.isciktar3, ".")
End Sub
Private Sub isciktar2_Change()
Me.isgecmis = Nz(Me.isyeri1, ".") & "|" & 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.text, ".") _
& "|" & Nz(Me.isyeri3, ".") & "|" & Nz(Me.iskolu3, ".") & "|" & Nz(Me.yapis3, ".") & "|" & Nz(Me.isgirtar3, ".") & "|" & Nz(Me.isciktar3, ".")
End Sub
Private Sub isyeri3_Change()
Me.isgecmis = Nz(Me.isyeri1, ".") & "|" & 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.text, ".") & "|" & Nz(Me.iskolu3, ".") & "|" & Nz(Me.yapis3, ".") & "|" & Nz(Me.isgirtar3, ".") & "|" & Nz(Me.isciktar3, ".")
End Sub
Private Sub iskolu3_Change()
Me.isgecmis = Nz(Me.isyeri1, ".") & "|" & 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.text, ".") & "|" & Nz(Me.yapis3, ".") & "|" & Nz(Me.isgirtar3, ".") & "|" & Nz(Me.isciktar3, ".")
End Sub
Private Sub yapis3_Change()
Me.isgecmis = Nz(Me.isyeri1, ".") & "|" & 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.text, ".") & "|" & Nz(Me.isgirtar3, ".") & "|" & Nz(Me.isciktar3, ".")
End Sub
Private Sub isgirtar3_Change()
Me.isgecmis = Nz(Me.isyeri1, ".") & "|" & 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.text, ".") & "|" & Nz(Me.isciktar3, ".")
End Sub
Private Sub isciktar3_Change()
Me.isgecmis = Nz(Me.isyeri1, ".") & "|" & 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.text, ".")
End Sub
bu kod ile tek bir alana kısa kısa bilgilerin olduğu 15 adet metin kutusu içeriğini yazdırıyorum
böyle yapmasam Form_BeforeUpdate olayında Me.isgecmis kutusunun değerini güncel şekilde alamıyorum
dikkat ettiyseniz her kutunun text özelliği için o kutuda olmam gerekiyor bu yüzden tek bir fonksiyon içine değer gönderip 15 adet yazmak yerine tek bir fonksiyon yazamıyorum. belki de ben yapamıyorum.
text özelliğini kullanmasam o zamanda metin kutusunun change olayını kullanamıyorum
böyle bir çıkmaz içinde çıkış yolu olarak bunu uzun yoldan yapmak zorunda kaldım
bunu kısa yoldan nasıl çözebilirdim
hem text özelliğini kullanacağım
hem change olayını kullanacağım
hem Form_BeforeUpdate olayını kullanacağım
Cvp: Metin Kutusu Birleştirmek Ve Text Özelliği - berduş - 20/03/2020
Isgecmis değeri hangi aşamada kullaniliyor
Cvp: Metin Kutusu Birleştirmek Ve Text Özelliği - accessman - 20/03/2020
Form_BeforeUpdate olayında
15 kutunun içini tek kutuda birleştiriyorum
bu tek kutunun içeriğinin değişmesi beforeupdate olayını tetkliyor
şimdilik bu kod kalabalığı çözümü sağlıyor ama daha kolay yolu olsa gerek diye düşünüyorum
diyelimki anket yapıyoruz ve bir sürü checkbox var bunların değerini tek kutuda birleştirsek her kutu için bu kodu yazmak gerekecek
Cvp: Metin Kutusu Birleştirmek Ve Text Özelliği - mehmetdemiral - 20/03/2020
Keşke örnek bir dosya atsaydınız. Böyle anlaması zor oluyor. Kendimi örneğinizin içinde bulmam lazım.
Cvp: Metin Kutusu Birleştirmek Ve Text Özelliği - accessman - 20/03/2020
örnek ekliyorum
ne demek istediğim umarım anlaşılmıştır
bir fonksiyon gibi bir şey yazayım yüzlerce metin kutusunun change olayını çok kısa bir şekilde halledeyim
Cvp: Metin Kutusu Birleştirmek Ve Text Özelliği - berduş - 20/03/2020
ö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
|