FORM Sürekli Formda Belli Bir Sütundaki Satırları Tek Bir Metin Kutusunda Birleştirme

[FORM] Sürekli Formda Belli Bir Sütundaki Satırları Tek Bir Metin Kutusunda Birleştirme - Yazdırılabilir Sürüm

+- Access SQL (https://www.access-sql.com)
+-- Forum: ACCESS SORULARI VE ÖRNEK UYGULAMALARI (https://www.access-sql.com/Forum-ACCESS-SORULARI-VE-ORNEK-UYGULAMALARI)
+--- Forum: ACCESS SORULARI (https://www.access-sql.com/Forum-ACCESS-SORULARI)
+--- Konu: [FORM] Sürekli Formda Belli Bir Sütundaki Satırları Tek Bir Metin Kutusunda Birleştirme (/Konu-Surekli-Formda-Belli-Bir-Sutundaki-Satirlari-Tek-Bir-Metin-Kutusunda-Birlestirme)

Sürekli Formda Belli Bir Sütundaki Satırları Tek Bir Metin Kutusunda Birleştirme - dormin - 18-01-2023

Merhaba Arkadaşlar. Konu başlığında yazdığım gibi Sürekli Formda sadece belli bir sütundaki tüm kayıtları yine aynı form içine ekleyeceğim bir metin kutusuna birleştirerek yazdırmak istiyorum. Bunu nasıl yapabilirim.

ÖRNEĞİN : "Tablo1" isimli bir tablom var. Bu tabloda "adi" , "soyadi" ve "dogumtarihi" alanları var diyelim.

Bir sorgu oluşturup, doğum tarihilerinden yaşlarını hesaplatıp, yaşı 30'dan büyük olanlar için ölçüt kullanarak bir sorgu oluşturduk diyelim.

Bu sorgu için SÜREKLİ FORM oluşturup, bu formun ÜST veya ALT BİLGİ kısmına ekleyeceğimiz Metin Kutusuna Formda gösterilen kayıtları "Ahmet 38 yaşında, Mehmet 41 yaşında, Hasan 34 yaşında ........" şeklinde nasıl yazdırabiliriz?

Bunun için hangi döngüyü nasıl kullanmalıyım?

RE: Sürekli Formda Belli Bir Sütundaki Satırları Tek Bir Metin Kutusunda Birleştirme - alperalper - 18-01-2023

Visual Basic
MetinKutusu= MetinKutusu & " " & EklenecekAlan1 & " " & EklenecekAlan2

Gibi...

RE: Sürekli Formda Belli Bir Sütundaki Satırları Tek Bir Metin Kutusunda Birleştirme - halily - 18-01-2023

https://www.access-sql.com/Konu-Sutun-Birlestirip-Yan-Yana-Yazdirma konusunu incelemek bir fikir verebilir. özellikle 9. mesajdaki kod benzer bir ihtiyacı gidermektedir

RE: Sürekli Formda Belli Bir Sütundaki Satırları Tek Bir Metin Kutusunda Birleştirme - halily - 18-01-2023

yalnız bu yöntem fazla kayıt varsa uzun sürebilir

RE: Sürekli Formda Belli Bir Sütundaki Satırları Tek Bir Metin Kutusunda Birleştirme - dormin - 18-01-2023

Sayın halily cevap için teşekkürler.

Ben sorunumu şu şekilde çözdüm;

Visual Basic
Dim lngLoop As Long
Dim strIDs As String
Dim kayitsayisi As Long
 
Me.Metin1 = ""
DoCmd.RunCommand acCmdRecordsGoToFirst
 
kayitsayisi = DCount("sorgudaki alan ismi", "sorgu ismi")
 
If kayitsayisi > 0 Then 'Formdaki kayıt sayısı 0 dan büyük ise
    strIDs = ""
    For lngLoop = 1 To kayitsayisi - 1
      strIDs = strIDs & Me.adi & " " & " soyadi - " & Me.yasi & ", "
      DoCmd.RunCommand acCmdRecordsGoToNext
    Next lngLoop
    Me.Metin1 = strIDs
Else
Me.Metin1 = ""
End If

Bu kodu formda bir buttonun tıklandığı olayına ekledim. Tam olarak istediğimiz yapıyor.