alaa1x قام بنشر أبريل 21, 2009 مشاركة قام بنشر أبريل 21, 2009 السلام عليكم في المرفقات جدول للدورات وجدول للطلاب كل دورة فيها عدد من الطلاب وقد عملت حقل للطلاب في جدول الدورات اريده ان يحتوي على كل اسماء الطلاب في هذه الدورة ارجو المساعدة ولكم جزيل الشكر a.zip رابط هذا التعليق شارك More sharing options...
Nofalnss قام بنشر أبريل 21, 2009 مشاركة قام بنشر أبريل 21, 2009 إن شاء الله يمشي الحال هيك ومن دون مؤاخذة بس عملتها عالسريع ومضطر سكر النت nofal.zip رابط هذا التعليق شارك More sharing options...
alaa1x قام بنشر أبريل 22, 2009 الكاتب مشاركة قام بنشر أبريل 22, 2009 السلام عليكم اخي نوفل ليس المقصود من سؤالي وضع اسماء الطلاب في قائمة منسدلة ولاكن الهدف وضع جميع اسماء طلاب الدورة في حقل واحد يعني احمد - محمد - ابراهيم ولك الشكر رابط هذا التعليق شارك More sharing options...
Dream_Works قام بنشر أبريل 22, 2009 مشاركة قام بنشر أبريل 22, 2009 أرجو أن يكون هذا طلبك Dream_a.zip رابط هذا التعليق شارك More sharing options...
alaa1x قام بنشر أبريل 23, 2009 الكاتب مشاركة قام بنشر أبريل 23, 2009 السلام عليكم نعم اخي الكريم هذا طلبي ولاكن اريد ان تظهر اسما الطلاب في الدورة الواحدة معا وليس كل اسماء الطلاب ولك الشكر رابط هذا التعليق شارك More sharing options...
Dream_Works قام بنشر أبريل 24, 2009 مشاركة قام بنشر أبريل 24, 2009 تفضل Dream_a.zip رابط هذا التعليق شارك More sharing options...
alaa1x قام بنشر أبريل 24, 2009 الكاتب مشاركة قام بنشر أبريل 24, 2009 الف شكر اخي الكريم هذا هو المطلوب س بتمنى تشرحلي الكود وجزاك الله كل خير رابط هذا التعليق شارك More sharing options...
Dream_Works قام بنشر أبريل 24, 2009 مشاركة قام بنشر أبريل 24, 2009 لقد أضفت بعض السطور في الكود أرجو أن تضيفها عندك 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 رابط هذا التعليق شارك More sharing options...
Nofalnss قام بنشر أبريل 25, 2009 مشاركة قام بنشر أبريل 25, 2009 أخي dream شرحك أحلى من الحل الله يوفقك رابط هذا التعليق شارك More sharing options...
alaa1x قام بنشر أبريل 25, 2009 الكاتب مشاركة قام بنشر أبريل 25, 2009 اخي الكريم الف شكر مرة اخرى وجزاك الله كل خير رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.