وضع قيم عدة حقول في حقل واحد

[alaa1x]

السلام عليكم

في المرفقات جدول للدورات وجدول للطلاب كل دورة فيها عدد من الطلاب وقد عملت حقل للطلاب في جدول الدورات

اريده ان يحتوي على كل اسماء الطلاب في هذه الدورة

ارجو المساعدة ولكم جزيل الشكر

a.zip

[Nofalnss]

إن شاء الله يمشي الحال هيك

ومن دون مؤاخذة بس عملتها عالسريع ومضطر سكر النت

nofal.zip

[alaa1x]

السلام عليكم

اخي نوفل ليس المقصود من سؤالي وضع اسماء الطلاب في قائمة منسدلة

ولاكن الهدف وضع جميع اسماء طلاب الدورة في حقل واحد يعني احمد - محمد - ابراهيم

ولك الشكر

[Dream_Works]

أرجو أن يكون هذا طلبك

Dream_a.zip

[alaa1x]

السلام عليكم

نعم اخي الكريم هذا طلبي ولاكن اريد ان تظهر اسما الطلاب في الدورة الواحدة معا وليس كل اسماء الطلاب

ولك الشكر

[Dream_Works]

تفضل

Dream_a.zip

[alaa1x]

الف شكر اخي الكريم

هذا هو المطلوب س بتمنى تشرحلي الكود

وجزاك الله كل خير

[Dream_Works]

لقد أضفت بعض السطور في الكود أرجو أن تضيفها عندك

Private Sub StudentNames()
Dim AllNames As String, rs As DAO.Recordset

Set rs = Me.ÇáØáÇÈ.Form.RecordsetClone

With rs
If .RecordCount = 0 Then
Me.äÕ11 = ""
Exit Sub
End If
.MoveFirst
While Not .EOF
AllNames = AllNames + " - " + .Fields("ÇÓã ÇáØÇáÈ")
.MoveNext
Wend
.Close
End With
AllNames = Right(AllNames, Len(AllNames) - 2)
Me.äÕ11 = AllNames
End Sub

1- تم تعريف متغير من نوع RecordSet ( مجموعة سجلات ... مثل الجدول العادي ) و هو rs

rs As DAO.Recordset

2- تم تخزين جميع البيانات الموجودة في النموذج الفرعي ( الطلاب ) في المتغير المذكور

Set rs = Me.الطلاب .Form.RecordsetClone

3 - التأكد من عدد السجلات الموجود في المتغير أكبر من صفر ( أرجو منك إضافة هذا الجزء بالكود ) حتى إذا انتقلت إلى سجل جديد لا يظهر لك خطأ

If .RecordCount = 0 Then
Me.نص11 = ""
Exit Sub
End If

4- المرور على أسماء الطلبة الموجودة بالمتغير واحداً بعد الآخر و تخزينهم في المتغير All Names مع وضع علامة ناقص بعد كل اسم .

MoveFirst
While Not .EOF
AllNames = AllNames + " - " + .Fields("اسم الطالب")
.MoveNext
Wend

5- إغلاق المتغير rs بعد الانتهاء منه و مسح محتوياته من ذاكرة الكمبيوتر

.Close

6- حذف علامة الناقص الزائدة الموجودة بعد آخر اسم في المتغير AllNames

AllNames = Right(AllNames, Len(AllNames))

تخزين محتويات المتغير AllNames في المربع المطلوب

Me.نص11 = AllNames

[Nofalnss]

أخي dream شرحك أحلى من الحل

الله يوفقك

[alaa1x]

اخي الكريم

الف شكر مرة اخرى

وجزاك الله كل خير