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

dormin · **Kayıt Tarihi:** 11.04.2022

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?

alperalper · 18-01-2023, 13:32

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

Gibi...

halily · 18-01-2023, 13:46

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

halily · 18-01-2023, 14:24

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

dormin · 18-01-2023, 14:29

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.

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

Oturum Aç




Beni Hatırla Şifremi Unuttum?

Access SQL