محمد ايمن

أخي الكريم قبل ان تجاهم و تتهم بعدم الاهتمام و الاهتمام باشخاص معنين انت لم تتبع قواعد المنتدى يجب عليك اضافة موضوع جديد بعنوان واضح لمشكلتك لا ان تضع مشكلتك في اكثر من موضوع فهذا في بعض الاحيان لن يجديك نفعا المرفق الذي ارسلته يحتوي مشاكل جملة و تفصيلا نموذج البحث مصدره استعلام غير موجود افتح موضوعا جديدا وارسل فيه مرفقا صحيحا و ستجد من يساعدك بكل تاكيد

ارفق مثلا اخي الكريم

تفضل اخي الكريم 23.rar

تفضل اخي الكريم في المرفق استعلام لاظهار الاسماء المكررة كما تم تعديل مشكلة منع تكرار الاسم قاعدة بيانات3.rar

مباركة جهودك وجزاك الله كل خير

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

تفضل اخي الكريم قاعدة بيانات2.rar

تفضل اخي الكريم Database2.rar

السبب اخي الكريم هو خطأ مني في بناء عبارة SQL تفضل التعديل و تقبل اعتذاري Database5.rar

عذرا اخي الكريم لكن المرفق بصيغة accde اما ان ترسل المرفق الاصلي بصيغة accdb او ان الموضوع مخالف لقوانين المنتدى

تفضل اخي الكريم 22.rar

تحية طيبة اخي الكريم الكود السابق فيه اخطاء في بناء جملة SQL هل تريد عرض اجمالي الغياب لكل طالب ؟؟ انظر الى الاستعلام QryGyabTotal Database4.rar

تفضل اخي الكريم Database3.rar

تحية طيبة استاذي الكريم اعود اليكم مع النتائج عند استخدام (قبل التحديث) مع الحقل و استخدام خاصية cancel كانت تظهر رسالة لم يتم العثور على الخاصية عند استخدام (قبل التحديث) مع النموذج واستخدام خاصية cancel تظهر رسالة ان الاسم مكرر و لكن لا يحدث شيئ !! ملاحظة لم انتبه سابقا الى ان اخينا ابا جودي استخدم الكود على مستوى النموذج و ليس على الحقل

تحية طيبة استاذي رمهان استاذي الكريم انا من يثقل عليك لا انت انا فعلا استخدمت الكود قبل التحديث و لكن ليس كما ذكرت انت فقد استخدمته كالتالي Private Sub OrderDate_BeforeUpdate(Cancel As Integer) Dim Uvar1 As Variant Uvar1 = DCount("PtNo", "OrderTbl", "[OrderDate]=[Forms]![MainFrm].[OrderSubFrm]![OrderDate] AND [PtNo]=[forms]![mainfrm]![PtID]") If Uvar1 > 0 Then MsgBox ("الاسم مكرر") Me.Undo End If End Sub وكانت تظهر لي رسالة بشكل دائم ( لم يتم العثور على الخاصية )!!!!!!!!!!!!!!!!!! وحتى عند تجربة الكود الذي ارسلته انت و الكود المرفق من اخي ابا جودي كانت تظهر نفس الرسالة !!!! بصراحة بدات اشك ان هناك خطب ما سانشئ المثال من جديد و اجرب و اعود اليكم بالنتائج

السلام عليكم ورحمة الله و بركاته استاذي رمهان تحية طيبة بعد التمعن في المرفقات و التجارب كانت النتائج الآتية مرفق اخينا صالح حمادي فهو كما تفضلت اذا كان التعديل في منتصف السجلات سيذهب الى السجل الاخير مما يجعلك تعيد البحث عن السجل المطلوب مرفق اخينا ابا جودي كان هو الحل الشافي و كما تفضلت يكفي استخدام التراجع عن الحدث ( بعد التجربة كانت النتيجة واحدة ) الغريب في الموضوع اني جربت التراجع عن الحدث سابقا ولكن دون فائدة !! ولله حكمته في ان يكون الحل على يد اخينا ابا جودي اما استخدام cancel=true فهو لم يجدي نفعا ابدا !!!!

لاحظ اخي الكريم انك لست بحاجة لتسجبل الحضور فقط الغياب لان جميع الطلاب مسجلين حضور بشكل افتراضي ومع ذلك لك ما طلبت فقط امهلني بعض الوقت

تحية طيبة اخي الكريم لماذا تريد تسجيل الحضو في جدول و الغياب في جدول ؟؟ يمكنك تسجيل الحضور و الغياب في نفس الجدول و عن طريق الاستعلامات تظهر لك البيانات المطلوبة انظر الى المرفق Database2.rar

جرب هذا الامر اخي الكريم DoCmd.RunCommand acCmdSelectRecord عوضا عن DoCmd.RunCommand acCmdDeleteRecord

تحية طيبة اخي ابا جودي ارجو منك شرح المعادلة الموجودة في حقل actual_time في الاستعلام qry_actual_time

تحية طيبة اخي الكريم جاري النظر في الموضوع .....

بارك الله فيك استاذي الكريم

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

الاصدقاء الاكارم تحية طيبة في المثال التالي كود لعدم تكرار التاريخ في النموذج الفرعي في حال التكرار تظهر رسالة و يتم تنفيذ الامر Undo لكن المشكلة انه بعد التراجع عن الادخال يذهب الاكسس الى السجل التالي هل من حل لهذه المشكلة ؟؟ قاعدة بيانات1.rar

تفضل اخي الكريم قاعدة بيانات1.rar