İsimleri Ayırma - Baskı Önizleme +- 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ığı: İsimleri Ayırma (/konu-isimleri-ayirma.html) |
İsimleri Ayırma - zaferlacin - 07/10/2019 metin1 kutusunda aralarında - (çizgi) işareti olan isimleri ayrı ayrı metin kutularına yazdırmak istiyorum metin kutusu yetersiz olduğu durumlarda yeni metin kutusunu otamatik eklemek istiyorum yardımcı olursanız sevinirim teşekkürler kolay gelsin Cvp: İsimleri Ayırma - berduş - 07/10/2019 emin değilim ama Excel formlarında olmasına rağmen Access fromlarda, herhangi bir formu tasarım modunda açmadan, yeni komtrol eklenemiyor. tam olarak yapmak istediğiniz ne? neden hepsini farklı metin kutularına aktarmak istiyorsunuz? Cvp: İsimleri Ayırma - zaferlacin - 07/10/2019 bir formda isimler kutusuna birden fazla isimi aralarında - işaretini koyarak yazmak zorunda kalıyoruz ama raporlar iken isimleri ayrı ayrı yazmam gerekiyor metin kutusu eklemek zorunda değiliz en fazla 6 isim oluyor 6 metin kutusunu görünmez yapıp isim sayısına göre görünür de yapılabilinir Cvp: İsimleri Ayırma - berduş - 07/10/2019 ama liste kutusu, açılır kutu yada belki geçici bir tablo oluşturulup tabloya bağlı bir alt form aracılığıyla isteğinize yakın bir sonuç elde edilebilir. ama tam olarak amacınızı bilmeden hangisi en uygunudur söylemek zor. Cvp: İsimleri Ayırma - zaferlacin - 07/10/2019 Public Function SplitT(Metin As String, Ayrac As String, Sayi As Integer) SplitT = Split(Metin, Ayrac)(Sayi) End Function Private Sub Komut75_Click() a = SplitT(Me.Metin1, "-", 0) b = SplitT(Me.Metin1, "-", 1) c = SplitT(Me.Metin1, "-", 2) d = SplitT(Me.Metin1, "-", 3) end sub buna benzer birşey yapmaya çalışıyorum bunda isim sayısı 4 ten eksik olursa hata veriyor yani bir isim varsa sadece a=birinci isim diğerleri ise boş olacak iki isim varsa a= ilk isim b= ikinci isim ve diğerleri boş olacak inşallah anlatabilmişimdir teşekkür ederim Cvp: İsimleri Ayırma - berduş - 07/10/2019 öncelikle 10 metin kutusu ekleyin isimleri-->metin1,metin2,.... metin10 metin kutularının etiketlerinin isimleri de etiket1, etiket2,.....etiket10 olsun buton75 tıklama olayının kodu dilerim işinize yarar Kod:
Private Sub Komut75_Click() |