جرب هذا
ID هو الرقم المعرف
اذا كان هناك رقم معرف فريد للموظف
Dim stLinkCriteria As String
Dim stDocName As String
stLinkCriteria = "[ID ]=" & Me![ID ]
stDocName = اسم النموذج"
DoCmd.OpenForm stDocName, , , stLinkCriteria
انظر هنا
https://www.google.com/url?q=http://www.officena.net/ib/index.php%3Fshowtopic%3D37285&sa=U&ei=35cIUfmCJIOt0QXW4IGoDw&ved=0CAcQFjAA&client=internal-uds-cse&usg=AFQjCNFIZUucqZnJDvgnYqeUZxZELLELWA
لاول مايعني
Quote
لو تغير الجدول لاصبحت نتيجة الكود خاطئة
المفترض ان يأخذ الكود رقم الحصة من جدول لا ان تضع الرقم داخل الكود
والشق الثاني
انظر آخر سطر في حدث مربع التحرير
حيث نقلنا التركيز الى عنصر تحكم النموذج الفرعي ( تم تعديل الاسم الى subfrm )
فإذا انتقل التركيز اليه سيكون التركيز الفعلي على اول حقل مجدول في النموذج الفرعي
وحقل الاسم في المثال يحمل رقم الجدولة صفر
بمعنى انه يمكنك جعل التركيز على اي حقل تريد من خلال رقم الجدولة
والاخير
كيف حولت القاعدة الى mdb
باستيراد الكائنات الى قاعدة جديدة
في حدث عند الطباعة يتم تحديث الحقل في الجدول بزيادة 1 من خلال السطر ادناه
DoCmd.RunSQL "UPDATE tbRePCountl SET tbRePCountl.RePCount = tbRePCountl.RePCount+1 "
ثم يتم جلب الرقم الحاصل الجديد بواسطة هذه العبارة
t1 = DLookup("RePCount", "tbRePCountl")
الاول/ اذهب الى تنسيق في خصائص الحقل وبدل قيمة "لغة لوحة المفاتيح" الى العربية
الثاني / نحن لا نستخدم الاستعلام لعرض البيانات مباشرة وانما نستخدمه كوسيط بين الجدول والنموذج او بين الجدول والتقرير
اما ان كنت مصر على فتح الاستعلام للعرض حينئذ يلزمك اغلاق النموذج
انظر مثالك بعد التعديل
STATU_2013_up.rar
يمكن تطبيق ما تفضلت به انظر مثالك بعد التعديل
ولكن هناك ملاحظات :
لا بد من توفر شرط مناسب حتى يتم احتواء الحصة الثانية
ايضا التنفيذ بهذه الطريقة ( داخل المحرر ) فائدته وقتية تنتهي بتغير الجدول
ملحوظة : تم تحويل المرفق الى امتداد mdb
db4.rar
قليلا من البحث لتجد بغيتك
https://www.google.com/url?q=http://www.officena.net/ib/index.php%3Fshowtopic%3D38510&sa=U&ei=incGUc-bO7TI0AGe1IHQBg&ved=0CBAQFjAD&client=internal-uds-cse&usg=AFQjCNEdXFsPrymJEyAGp9lH9BfoVyWsIA
https://www.google.com/url?q=http://www.officena.net/ib/index.php%3Fshowtopic%3D28731&sa=U&ei=mXkGUa2ZHIi3hAfIsIEo&ved=0CB8QFjAI&client=internal-uds-cse&usg=AFQjCNHKvrT0pVAUCzioBkBIfVpZhsmNSA
ارى انه لتحقيق الفكرة يجب التدرج بالخطوات التالية :
يفتح النموذج على تاريخ اليوم ( رقم اليوم )
يتم اختيار الحصة
فتنفتح قائمة بأسماء المنتسبين
يتم التأشير على الغائب
رقم اليوم في الاسبوع :
=Weekday(Date())
باعتبار اليوم الاول الافتراضي هو يوم الاحد
ولا شك قبل هذا يجب النظر في الجداول وتهيئتها لربط جدول الحصص بالطلاب
(ربط رقم الحصة بالطلاب رأس لاطراف)
ويبدو لي من خلال عملك ان المعلم هو من يقوم بالتحضير
لذا يلزم ايضا ربط المعلم بالحصة (رأس لاطراف )
هذه فكرة لا اعلم مدى امكانية تنفيذها .....
ما رأيك ؟
لم تتضح لي الرؤية بعد
ولكن اعلم انه يمكنك تحديد مصدر السجلات بناء على شرط
مثال : اذا كان الحقل الفلاني في النموذج يساوي كذا فاجعل مصدر التقرير هو الاستعلام 1 وإلا يكون مصدره الاستعلام 2
رأيتها على عجل بعد نقلها الى جهاز آخر
وقتي لا يسعفني للتفرغ لدراسة الفكرة ، وسأحاول ان شاء الله
هل وضفت الدالة Dlookup ؟
اعتقد ان الفترة هي الرابط بل مربط الفرس