كيف يتم ذلك عن طريق مربع تحرير وسرد

[محمدالشاعر2001]

السلام عليكم

رجاء ان اجد من يساعدني في عمل ذلك

كيف يتم ذلك اريد ان يظهر السجل الذي به اسم ورقم الطالب

كما يلي

رقم الطالب اسم الطالب مواد التخلف

1 محمد ادارة

محاسبة

اقتصاد

ولكم جزيل الشكر واتمني ان اجد المساعدة واتمني ان يتم توضيح كيف يتم ذلك

ومرفق المثال

_______________.rar

[جهراوي الكويت]

اخي الفاضل ..

الملف لم يفتح معي ..

[محمدالشاعر2001]

اخي الفاضل / جهراوي الكويت
شكرا علي الاهتمام وهذا الملف من جديد كيف يتم ذلك اريد ان يظهر السجل الذي به اسم ورقم الطالب
كما يلي
وللتوضيح
رقم الطالب اسم الطالب مواد التخلف
101 محمد حسين إدارة
محاسبة I
اقتصاد I

_______________.rar

تم تعديل نوفمبر 19, 2007 بواسطه محمدالشاعر2001

[bu_humaid]

السلام عليكم

هذا برنامج بسيط ( يمشي الحال )

_______________.rar

[محمدالشاعر2001]

الاخ الفاضل / bu_humaid

مشكور علي المساعدة ولكن ما فهمت ماذا تقصد

اخي اني اريد ان اسجل للطالب نفسه ثلاثة مواد مثلا في

فيكون نفس رقم الطالب ونفس اسم الطالب ولكن مواد التخلف ثلاثة مواد

ارجوا التوضيح

[منذر عساج]

اخي اني اريد ان اسجل للطالب نفسه ثلاثة مواد مثلا في

فيكون نفس رقم الطالب ونفس اسم الطالب ولكن مواد التخلف ثلاثة مواد

أخي الكريم

في هذه الحالة أنت بحاجة الى جدولين (جدول للطلاب) وجدول (المواد) تربط بينهما بعلاقة رأس بأطراف عن طريق رقم الطالب

[zahrah2016]

اخواني الكرام

بارك الله فيكم جميعا على المشاركه

وهذا أحد الحلول المقترحه

za_StudentAndCourse.rar

[محمدالشاعر2001]

لا ادري كيف اشكرك علي هذا العمل الاكثر من رائع

انا اتابع موضوعاتك بكل دقة

واشكرك علي هذا المعروف

بس لي رجاء كيف استطيع ادخال البيانات

وكيف بنيت الاستعلام برقم الطالب انه اكثر من رائع ارجوا التوضيح حتي اتعلم

شكرا جزيلا

[zahrah2016]

اخي الفاضل محمد الشاعر

بالنسبة لموضوع ادخال البيانات فتستطيع انشاء زر امر لإضافة سجل جديد ولا يوجد به مشكله ومن ثم تستطيع ادخال البيانات اما اذا كنت تقصد في النموذج الفرعي السفلي للمواد لنفس الطالب فتستطيع ادخال المواد بدون مشكله .

اما ما يخص الإستعلام عن طالب معين بالرقم فهذا ناتج عن الخصائص الموجوده في مربع التحرير والسرد حيث ان مصدر الصف يكون منشيء استعلام وليس استعلام حقيقي حسب العبارة التالية :

SELECT tblStudent.ID, tblStudent.Id_ST FROM tblStudent;

ثم نضع هذا الكود في حدث بعد التحديث لمربع التحرير والسرد الخاص برقم الطالب

Private Sub NCombo_AfterUpdate()
Dim rs As Object
Set rs = Me.Recordset.Clone
rs.FindFirst "[ID] = " & Str(Nz(Me!NCombo, 0))
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub

وهذا الملف بعد التعديل

za_StudentAndCourse_UP.rar