تجميع قيم سجلات متتالية لحقل واحد في مربع نص

[ch_aiman]

السلام عليكم 

عندي حقل اسمه اسم العامل به 10 سجلات اريد أن يظهر في التقرير اسماء العمال ليست متتالية تحت بعضها ولكن متجاورة في مربع نص واحد يفصاها علامة الفاصلة 

[يوسف أحمد]

و عليكم السلام

 

اخي العزيز

 

في حدث عند التنسيق لمنطقة تفصيل التقرير ضع الكود التالي 

 

Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim strTxt As String

Set db = CurrentDb
Set rs = db.OpenRecordset("tbl1")

rs.MoveFirst

Do Until rs.EOF
    strTxt = strTxt & rs!eName & "،"
    rs.MoveNext
Loop

Me.txt1 = Left([strTxt], Len([strTxt]) - 1)

rs.Close
db.Close
Set rs = Nothing
Set db = Nothing

 

حيث ان :

tbl1 هو اسم الجدول

eName هو اسم الحقل

 txt1 هو اسم مربع النص بالتقرير

 

بالتوفيق

تم تعديل يونيو 28, 2017 بواسطه يوسف أحمد