+- 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)
Cvp: Metin Kutusu Birleştirmek Ve Text Özelliği - berduş - 21/03/2020
Isterseniz sorulara taşıyayım siz de uygun bir zamanda çalışmanızı ekleyin?
Cvp: Metin Kutusu Birleştirmek Ve Text Özelliği - feraz - 21/03/2020
Taşıyın abey.Sadece gözüme çarpanları yazmıştım.Benzer örnek denerim kendimde olmazsa konu açarım..
Geeçekten güzel kodlar olmuş class alternatifi olarak
Hayırlı geceler.
Cvp: Metin Kutusu Birleştirmek Ve Text Özelliği - berduş - 21/03/2020
Size de)
Cvp: Metin Kutusu Birleştirmek Ve Text Özelliği - accessman - 21/03/2020
ByRef ctl As Control ile giren ctl hiç kullanılmamış
Aktif control bunun yerine mi kullanılmış
Cvp: Metin Kutusu Birleştirmek Ve Text Özelliği - berduş - 21/03/2020
(21/03/2020, 07:08)accessman yazdı: Aktif control bunun yerine mi kullanılmışevet aslında activecontrol.name yerin ctl.name de kullanılabilirdi yada
Private Sub Form_Load()
Dim ctl As Control
For Each ctl In Me
If ctl.Tag = "degistiginde" Then
ctl.OnChange = "=Degisti()"
End If
Next ctl
End Sub
Public Function Degisti()
Dim ctl As Control
Me.Metin0 = ""
For Each ctl In Me
If ctl.Tag = "degistiginde" Then
If ctl.Name = ActiveControl.Name Then _
Me.Metin0 = Me.Metin0 & "|" & IIf(Len(Nz(Trim(ctl.Text))) = 0, ".", Trim(ctl.Text)) Else _
Me.Metin0 = Me.Metin0 & "|" & Nz(Trim(ctl), ".")
End If
Next ctl
Me.Metin0 = Mid(Me.Metin0, 2)
End Function
Cvp: Metin Kutusu Birleştirmek Ve Text Özelliği - accessman - 21/03/2020
bu kod iyi oldu ama genel olarak diğeri daha güzel