لدي مثلا حقل الاسم فيه الأسماء في كل سجل
محمد
صالح
عمر
أريد أن أتمكن من رصها ووضعها في تذييل التقرير بهذا الشكل
محمد / صالح / عمر
كيف أقوم برص البيانات في تذييل التقرير
ضع حقل غير منظم في تذييل التقرير
واكتب الكود التالي في مصدر عنصر التحكم للحقل
=[الحقل1] & "/ " & [الحقل2] & "/" &[الحقل3]
بالتوفيق
سيد الاستغفار
{ اللهم أنت ربي لا إله إلا أنت خلقتني وأنا عبدك وأنا على عهدك ووعدك ما استطعت أعوذ بك من شر ما صنعت أبوء لك بنعمتك علي وأبوء لك بذنبي فاغفر لي فإنه لا يغفر الذنوب إلا أنت}
من قالها من النهار موقنا بها فمات من يومه قبل أن يمسي فهو من أهل الجنة ومن قالها من الليل وهو موقن بها فمات قبل أن يصبح فهو من أهل الجنة .رواه البخاري
malik2010 كتب:ضع حقل غير منظم في تذييل التقرير
واكتب الكود التالي في مصدر عنصر التحكم للحقل
=[الحقل1] & "/ " & [الحقل2] & "/" &[الحقل3]بالتوفيق
أخي العزيز
أشكرك على تجاوبك معي
لكن أعرف أن إجابتك هذه تصلح في حال كانت البيانات موجودة في أكثر من حقل
لكن البيانات التي أريد رصها هي موجودة في حقل واحد وعدة سجلات
في الملف المرفق أريد أن يكون تذييل الحقل في التقرير name
عمر / صالح / علي
إذا سمحت أخي ولكن ممكن تشرح لي السبب في عمل ذلك ؟ 
إذا كان لديك تفاصيل التقرير للكل فلماذا تريد جمع الاسماء في ذيل التقرير 
، قد يكون هنالك طريقة أخرى تحقق الهدف دون عمل هذه الحركة والتي ستكون معقدة جدا ، وسامحني على السؤال 
.
superhot3000 كتب:إذا سمحت أخي ولكن ممكن تشرح لي السبب في عمل ذلك ؟
أشكرك أخي الكريم
أحتاج إلى هذه الطريقة بالضبط كما شرحتها
وحتى أعطيك فكرة تقريبية لنفترض أن هناك حقلا أخيرا اسمه الاشتراك وفيه قيمة رقم معين
فأريد أن يكون تذييل التقرير للمشتركين في المنطقة الأولى هم
عمر / صالح / علي وإجمالي اشتراكهم (تجميل الاشتراكات)
إذا كانت هناك طريقة أخي الكريم
أتمنى أن تعطيني هي كوني لي مجالات أخرى أحتاج لهذه الطريقة لتطبيقها
ولك كل الشكر والتقدير
كتبت لك أخى هذه الدالة
Public Function JoinRecords(sors As String, fld As String, delim As String) As String
On Error Resume Next
Dim rst As Recordset, r As Integer
Set rst = CurrentDb.OpenRecordset("select " & sors & "." & fld & " from " & sors & ";")
If rst.RecordCount > 0 Then
rst.MoveLast
rst.MoveFirst
r = rst.RecordCount
For i = 1 To r
JoinRecords = IIf(i = 1, rst.Fields(0), JoinRecords & delim & rst.Fields(0))
rst.MoveNext
Next
End If
rst.Close
Set rst = Nothing
End Functionفى مصدر مربع النص ضع هذا الكود
=joinrecords("tdate";"tname";"/")لاحظ أخى أننى غيرت اسم الجدول الى tdate
و اسم الحقل الى tname
لان تسمياتها عبارة عن كلمات محجوزة و هذا خطأ سيسبب لك مشاكل كثيرة
أستاذنا أبو سيف
والأخ غرام العقول
اللسان يعجز عن الشكر
أفاد الله بعلمكما وجعله في ميزان حسناتكما
بحثت عن الإجابة في المنتديات الأجنبية
ولم أحصل على الإجابة إلا في هذا المنتدى المبارك
لكم كل الشكر والتقدير
غرّام العقول كتب:وهذه طريق أخرى , أضعها لتعم الفائدة
أيضاً قمت بتغيير اسم الجدول واسم الحقل -كما فعل أستاذنا أبو يوسف- لأنهما من الأسماء المحجوزة التي يجب عدم تسمية الكائنات بها
انظر التقرير المرفق في المثال بعد التعديل
ظهرت لدي المشكلة في التقرير في الملف المرفق
عندما أقوم بفرز الحقول
حيث أريد أن يكون التجميع بحسب zone على سبيل المثال
omr_g كتب:ظهرت لدي المشكلة في التقرير في الملف المرفق
عندما أقوم بفرز الحقول
حيث أريد أن يكون التجميع بحسب zone على سبيل المثال
هذا بسبب أنك نقلت مربع النص المسمى Txt11 من تذييل التقرير إلى تذييل الصفحة. قم بإرجاعه إلى تذييل التقرير.
غرّام العقول كتب:هذا بسبب أنك نقلت مربع النص المسمى Txt11 من تذييل التقرير إلى تذييل الصفحة. قم بإرجاعه إلى تذييل التقرير.
لأني أريد أن يتم رص البيانات الذين موجودين في كل منطقة في تذييلها
مثلا المنطقة الأولى
سعيد / علي / صالح / عمر
المنطقة الثانية
غرام العقول
أتمنى مساعدتي في المشكلة التي ظهرت لي
ولكم جزيل الشكر
الامر بسيط أخى
يمكن تعديل الدالة التى ارفقتها لك من قيل لتعطيك ما تريد
حاول و ان شاء الله تصل الى ما تريد
و ان لم تستطيع سأقوم بتعديلها لك غدا ان شاء الله
لانى مشغول اليوم
Abo_Yossof كتب:الامر بسيط أخى
يمكن تعديل الدالة التى ارفقتها لك من قيل لتعطيك ما تريد
حاول و ان شاء الله تصل الى ما تريد
و ان لم تستطيع سأقوم بتعديلها لك غدا ان شاء الله
لانى مشغول اليوم
حفظك الله أخي العزيز
ونفع بعلمك
منكم نستفيد إن شاء الله بما وصلتم إليه فنحن لا نزال مبتدئين في هذا المجال
وأنا بانتظار تعديلك للدالة ولك تقديري
وجزاك الله خيرا
Abo_Yossof كتب:التعديل بالمرفق
ألف ألف شكر أخي العزيز
وزادك الله من العلم ونفع بك
تحياتي القلبية
المنتدي جميل جدا ومفيد فعلا . .
فالصداقة بئر يزداد عمقا كلما أخذت منه . . شكرا للجميع .
:bye: