اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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


ch_aiman

الردود الموصى بها

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

 

اخي العزيز

 

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

 

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 هو اسم مربع النص بالتقرير

 

بالتوفيق

تم تعديل بواسطه يوسف أحمد
رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

×
×
  • اضف...

Important Information