Skip to main content

AccessTr.neT


Rapora Grup Altındaki Verilerin Metin Kutusunda Birleştirilmesi

Rapora Grup Altındaki Verilerin Metin Kutusunda Birleştirilmesi

Çözüldü #1
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.
.rar ÖrnekDeneme.rar (Dosya Boyutu: 24,45 KB | İndirme Sayısı: 6)
Cevapla
#2
ö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 Function
daha sonra raporunuzun veri kaynağına aşağıdaki sorgu kodunu ekleyin
SELECT Tablo2.araclar, xGrup([kimlik]) AS [Adı Soyadı]
FROM Tablo2;
son olarak Metin2'nin Denetim Kaynağını: Adı Soyadı olarak değiştirin
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
Cevapla
#3
(09/11/2022, 14:32)berduş yazdı: ö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 Function
daha sonra raporunuzun veri kaynağına aşağıdaki sorgu kodunu ekleyin
SELECT Tablo2.araclar, xGrup([kimlik]) AS [Adı Soyadı]
FROM Tablo2;
son olarak Metin2'nin Denetim Kaynağını: Adı Soyadı olarak değiştirin
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.
Cevapla
#4
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.
Cevapla
#5
Rica ederim
İyi çalışmalar)
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task