+- 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ığı: Rapora Grup Altındaki Verilerin Metin Kutusunda Birleştirilmesi (/konu-rapora-grup-altindaki-verilerin-metin-kutusunda-birlestirilmesi.html)
Rapora Grup Altındaki Verilerin Metin Kutusunda Birleştirilmesi - orderyazbim - 09/11/2022
Tüm form üyesi arkadaşlara iyi çalışmalar dilerim. Konuyla ilgili bir örnek vt hazırladım Vt deki raporda tabloya bağlı araçlar bazında gruplandırılmış olup ayrıntı bölümünde kullanıcılar var. Bu kullanıcıları Gurup üstbilgisi satırında bulunan Kullanıcılar etiketli metin kutusunda birleştirmek istiyorum. Örn; Kemal, Mehmet gibi.Raporda da gerekli açıklamaları örnekle yaptımı. Yardımlarınız için şimdiden teşekkür eder saygılarımı sunarım.
RE: Rapora Grup Altındaki Verilerin Metin Kutusunda Birleştirilmesi - berduş - 09/11/2022
öncelikle bir modül oluşturup aşağıdaki fonksiyonu ekleyin
Function xGrup(xID As Long) As String
xSQL = "select [Adısoyadi] from [tablo1] where aracID=" & xID
Set rs = CurrentProject.Connection.Execute(xSQL)
'recordset.GetString(StringFormat, NumRows, ColumnDelimiter, RowDelimiter, NullExpr)
xGrup = rs.getstring(, , , ", ", "")
xKes = InStrRev(xGrup, ",") - 1
xGrup = Left(xGrup, xKes)
End FunctionSELECT Tablo2.araclar, xGrup([kimlik]) AS [Adı Soyadı]
FROM Tablo2;dilerim işinize yarar
Not: Fazla isim olduğunda rapordaki metin kutusuna sığmayabileceği için Metin2'nin Büyüyebilir özelliği EVET olarak değiştirilmelidir
RE: Rapora Grup Altındaki Verilerin Metin Kutusunda Birleştirilmesi - orderyazbim - 09/11/2022
(09/11/2022, 14:32)berduş yazdı: öncelikle bir modül oluşturup aşağıdaki fonksiyonu ekleyin
daha sonra raporunuzun veri kaynağına aşağıdaki sorgu kodunu ekleyin
Function xGrup(xID As Long) As String
xSQL = "select [Adısoyadi] from [tablo1] where aracID=" & xID
Set rs = CurrentProject.Connection.Execute(xSQL)
'recordset.GetString(StringFormat, NumRows, ColumnDelimiter, RowDelimiter, NullExpr)
xGrup = rs.getstring(, , , ", ", "")
xKes = InStrRev(xGrup, ",") - 1
xGrup = Left(xGrup, xKes)
End Function
son olarak Metin2'nin Denetim Kaynağını: Adı Soyadı olarak değiştirinSELECT Tablo2.araclar, xGrup([kimlik]) AS [Adı Soyadı]
FROM Tablo2;
dilerim işinize yarar
Not: Fazla isim olduğunda rapordaki metin kutusuna sığmayabileceği için Metin2'nin Büyüyebilir özelliği EVET olarak değiştirilmelidir
Sayın Berduş, ilgi ve alakanıza teşekkür ederim. Verdiğiniz kodu deneyip olumlu yada olumsuz geri dönüş yapacağım. Saygılarımla iyi çalışmalar.
RE: Rapora Grup Altındaki Verilerin Metin Kutusunda Birleştirilmesi - orderyazbim - 09/11/2022
Sayın berduş, konuyla ilgili hazılamış olduğunuz fonksiyonu örnek üzerinde denedim ve kusursuz çalıştı. İlginize ve emeğinize çok teşekkür ederim. İyiki varsınız. Saygılarımı sunar iyi çalışmalar dilerim.
RE: Rapora Grup Altındaki Verilerin Metin Kutusunda Birleştirilmesi - berduş - 09/11/2022
Rica ederim
İyi çalışmalar)