[FORM] Sürekli Formda Belli Bir Sütundaki Satırları Tek Bir Metin Kutusunda Birleştirme
#1
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?



  Alıntı
Bu mesajı beğenenler:
#2
Visual Basic
  1. MetinKutusu= MetinKutusu & " " & EklenecekAlan1 & " " & EklenecekAlan2




Gibi...



  Alıntı
Bu mesajı beğenenler:
#3
https://www.access-sql.com/Konu-Sutun-Bi...a-Yazdirma konusunu incelemek bir fikir verebilir. özellikle 9. mesajdaki kod benzer bir ihtiyacı gidermektedir



  Alıntı
Bu mesajı beğenenler:
#4
yalnız bu yöntem fazla kayıt varsa uzun sürebilir



  Alıntı
Bu mesajı beğenenler:
#5
Sayın halily cevap için teşekkürler. 

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

Visual Basic
  1. Dim lngLoop As Long
  2. Dim strIDs As String
  3. Dim kayitsayisi As Long
  4.  
  5. Me.Metin1 = ""
  6. DoCmd.RunCommand acCmdRecordsGoToFirst
  7.  
  8. kayitsayisi = DCount("sorgudaki alan ismi", "sorgu ismi")
  9.  
  10. If kayitsayisi > 0 Then 'Formdaki kayıt sayısı 0 dan büyük ise
  11.    strIDs = ""
  12.    For lngLoop = 1 To kayitsayisi - 1
  13.      strIDs = strIDs & Me.adi & " " & " soyadi - " & Me.yasi & ", "
  14.      DoCmd.RunCommand acCmdRecordsGoToNext
  15.    Next lngLoop
  16.    Me.Metin1 = strIDs
  17. Else
  18. Me.Metin1 = ""
  19. End If



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



  Alıntı
Bu mesajı beğenenler:


Benzer Konular...
Konu: Yazar Cevaplar: Gösterim: Son Mesaj
  [SORGU] Sayı Formatı Bozulmadan Metinle Birleştirme atyaty 2 66 08-12-2023, 18:57
Son Mesaj: atyaty
  [VBA] Sürekli Formda Combobox Güncelleme Sorunu benuva 6 164 20-11-2023, 11:56
Son Mesaj: benuva
  Birden Fazla Alandaki Veriyi Sorguda Alt Alta Birleştirme adnnfrm 3 148 18-11-2023, 19:54
Son Mesaj: dsezgin
  Sürekli Formda Kayda Uygun Resim Ekleme yahyamacit 2 101 18-11-2023, 10:56
Son Mesaj: yahyamacit
  Sürekli Formda Yeni Kayıt üstte Olsun hegu 4 165 05-10-2023, 20:55
Son Mesaj: hegu
  Birleştirme Hakkında. Satir 7 171 10-09-2023, 18:21
Son Mesaj: Satir
  Formda Isteğimize Göre Makbuzda Belli Yerlerin çıkmaması ankaram 4 119 03-09-2023, 23:16
Son Mesaj: ankaram
  Uzun Metin Formatını Sql De Kısa Metin Formatına çevirebilir Miyiz? adnnfrm 2 183 06-08-2023, 03:51
Son Mesaj: adnnfrm

Foruma Git:


Bu konuyu görüntüleyen kullanıcı(lar): 1 Ziyaretçi