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