منتصر الانسي

غير متأكد إذا فهمت الطلب صح ولكن تفضل جرب المرفق
وحدة الاجازات السنوية.accdb

تم تعديل المرفق بحيث يتم تجميع عدد الأيام من حقل Mod2 في الإستعلام وتم إضافة دالة لتحويل عدد الأيام هذه إلى سنة - شهر - يوم
تحياتي
وحدة الاجازات السنوية.accdb

كان ينقصك ترحيل بيانات الجدول Tbl_Lab_Requests الخاصة بالسجل المحدد
تم تعديل المرفق
lab.rar

الملف المرفق في المنتدى غير مطابق لما جاء في الفيديو ففي الفيديو كان هناك وحدة نمطية تضم حميع الأكواد المطلوبة بينما في المثال الذي شاركه الأخ @Foksh كانت جميع الأكواد خلف النموذج
لذا قمت بتحويل الوظائف الأساسية الواردة في المثال إلى وظائف عامة داخل وحدة نمطية مع توضيح الأسطر التي يجب نسخها إلى النموذج
قمت كذلك بتطبيق الحل على نموذج جديد بإسم Form1 ومع إحترامي لصاحب الفيديو فالتعديلات التي قام بها على خصائص النموذج كأن يكون منبثق أو التوسيط التلقائي .... إلخ ليست من شروط تنفيذ الكود (وهذا ما سنجده في النموذج Form1 فلم يتم تعديل أي خاصية من الخصائص الواردة في الفيديو) وأعتقد أن سبب ذكره لها هو للوصول إلى النتيجة التي إستعرضها بداية الفيديو والغرض منها هو غرض جمالي لاغير , حبيت أوضح النقطة لأي شخص سيواجه أي تعارضات في عمله مع ماذكر من التعديلات
التعديل الجوهري المطلوب كشرط لتنفيذ الكود هو شرط إظهار مقطعي رأس وتذييل النموذج (ستجد في نموذج Form1 كل مايجب عمله للإستفادة من الكود)
تحياتي
ملاءمة عناصر النموذج حسب حجم النموذج ☺.mdb

بعد إذن أخي @Foksh المشكلة مرتبطة بإستخدام صندوق الحوار TaskDialog الخاص بقائمة الخيارات RadioButton فعند إستخدام هذا النوع فإنه بحاجة إلى حدثين 
الأول يخص حدث إظهار مربع الحوار (قد يكون النقر على زر أو النقر المزدوج على عنصر تحكم أو أي حدث آخر) وتكون القيمة الراجعة منه رقم الزر الذي سيتم نقره في مربع الحوار
أما الحدث الثاني فهو حدث TaskDialog_RadioButtonClick والذي يرجع قيمة الخيار الذي تم إختياره
والمشكلة أن الأخ @jo_2010 نفذ الأول ولم ينفذ الثاني ولو كان قد ركز قليلا في كود هذا النوع ضمن أداة مربع حوار المهام لوجد أنها مكونة من الحدثين المذكورين أعلاه
عموما قمت بتعديل المثال المرفق بعد إضافة الحدث TaskDialog_RadioButtonClick وتم تنفيذ العمل بدون أخطاء
تحياتي 
TEST.rar

هذا هو الحل المنطقي ولكن ولأن الأخ أحمد في ظل الأمر الواقع فلماذا لا نصل لهذه النتيجة بطريقة أخرى؟
قمت بإرفاق المثال بعد إنشاء إستعلام توحيدي يضم الثلاثة الجداول مع إضافة حقل (داخل الإستعلام) بإسم ClassNo يتم فيه إضافة رقم الصف لكل جدول وجعلت هذا الإستعلام هو مصدر بيانات التقرير
ثانيا من زر أمر فتح التقرير لكل نموذج قمت بإضافة معيار رقم الصف لتصفية بيانات التقرير مثلاً في النموذج الأول سيصبح معيار التصفية كالتالي
ClassNo=1 And onlyyou=true ثالثاً بإستخدام دالة Choose قمت بكتابة رقم الصف في التقرير
لا أعلم إذا كان هذا الحل سيناسب أخونا @أحمد العيسى أم أن هناك مشاكل أخرى ستظهر عنده؟
ملاحظة أخيرة : جدول الصف الثالث لم يحتوي على الحقول (Address + Work_father + Telephone) لذلك قمت بإضافتها في الإستعلام مع تعيين قيم فارغة لها
تحياتي
db.mdb

السبب كما ذكره الاخ @Moosak فإن الحركة هذه تحدث نتيجة ظهور واختفاء شريط التمرير بينما في نسخة 2003  وماقبلها فإن الشريط لايختفي أساساً

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

فرغم أن الشريط يظهر ويختفي بسلاسة ولاتحدث تلك الحركة التي تشتكي منها وأرفق لك المثال للتأكد
تحياتي
 
 
db.mdb

طالما أن النموذج هو نموذج فرعي فهذا معناه أنه مرتبط بالنموذج الرئيسي بحقل وبالتالي يمكنك أن تجعل الأمر الذي يقوم به الزر هو إدراج سجل جديد يحتوي قيمة الحقل المرتبط ثم تحديث النموذج الفرعي
ولكن ولأن المثال الذي ارفقته لايحتوي على جدول رئيسي وجدول فرعي فقد قمت بوضع حل يناسب هذا الوضع
هذا الحل سيكون مناسبأ سواء كان النموذج هو نموذج مستقل أو نموذج رئيسي أو فرعي 
تم توضيح وظيفة كل سطر بالتعليقات
تحياتي
12 (6).accdb

كما يقول المثل (تاهت ولقيناها)
بإستخدام المثال الخاص بالأخ @jjafferr قمت بتعديل الحل كما ستجد في المرفق
لاحظ أنه عند فتح المجلد ستجد أنه لايحتوي إلا على التطبيق قم بفتحه وتجربة إيقاف العجلة ستجده يعمل بشكل صحيح وعند إغلاق التطبيق لن يكون هناك أي ملف إلى جواره
أعتقد بهذه الطريقة لن يلاحظ المستخدم أي شيئ
 
إيقاف عجلة الماوس.rar

بعد إذن أخي @Foksh
أعتقد أن لدى الأخ @أحمد العيسى لبس بسيط فبحسب كلامه هذا
فأنه يعتقد أن إختيار عدد السجلات هو شرط من شروط عمل الأداة وهذا غير صحيح فالغرض من تحديد السجلات كان لتوضيح الفكرة للأعضاء كيف سيكون شكل التقرير إذا كان عدد السجلات أقل من صفحة أو مساويا لها أو أكبر ولكن في الواقع العملي هذا لايصح
أعتقد لو إطلعت على التحديث الخاص بهذا الموضوع فستتعرف على عمل هذه الأداة بشكل أفضل
هذا مايخص أولا أما مايخص ثانيا فالمشكلة تظهر عندك ولم تظهر عندي لذلك فإنها ستكون غالبا مرتبطة بإعدادات الصفحة من حيث حجم الورقة أو الهوامش أو كليهما ففي المثال كنت قد صممت التقرير على صفحة A4 والهوامش 5 ملم (أي نصف سم) وأغلب الظن أن حجم الورق عندك سيكون Letter/ANSI A أو الهوامش أكبر من 5 ملم أو كليهما فأرجو التأكد 
تحياتي

يوجد لطلبك حلين 
الأول حل بسيط وهو مجرد مضاعفة إرتفاع الصف ليشغل كل صف مكان صفين
الحل الثاني برمجي ويعتمد على قيمة مربع النص (م) أي المسلسل بحيث يتم فرض صفحة جديدة عندما تكون قيمة المسلسل يقبل القسمة على 10 بدون باقي
ملاحظة إضافية الحل الذي كان موجود في مثالك فيه مشكلتين الأولى أنه يقوم بإخفاء السجلات التي بعد السجل العاشر ولا يقوم بنقلها إلى الصفخات التالية والمشكلة الثانية تخص اللغة فيبدو أنك نسخت الكود من مثال من نسخة اوفيس انجليزية والملف المرفق تم إنشاؤه في أوفيس نسخة عربية لذلك فالكود التالي مثلاً
Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer) ' زيادة العداد بمقدار 1 لكل سجل intRecordCount = intRecordCount + 1 ' تغيير الرقم 10 إلى أي عدد تريده (20، 50، 100...) If intRecordCount > 10 Then ' ?? غير هذا الرقم حسب حاجتك ' إلغاء طباعة هذا السجل وما بعده Cancel = True End If End Sub يجب أن يكون بهذا الشكل
Private Sub تفصيل_Format(Cancel As Integer, FormatCount As Integer) ' زيادة العداد بمقدار 1 لكل سجل intRecordCount = intRecordCount + 1 ' تغيير الرقم 10 إلى أي عدد تريده (20، 50، 100...) If intRecordCount > 10 Then ' ?? غير هذا الرقم حسب حاجتك ' إلغاء طباعة هذا السجل وما بعده Cancel = True End If End Sub لاحظ إسم المقطع (Detail سيصبح تفصيل)
وهذه الملاحظة جانبية حبيت أضيفها لتنبيهك فقد تقوم بالإستفادة من أكواد أخرى مشابهة لهذا وعند تجربتها تجدها لا تعمل فتظن أن الكود غير صحيح والسبب لايكون منه
تحياتي
 
New Microsoft Access Database.accdb

لم أعرف أي التقريرين تريد تطبيق طلبك عليه ولكني رأيت أن تقرير (مناداة قديم) هو الاقرب فقمت بتنفيذ الحل فيه
ارجو أن يكون هذا الحل هو ماتريده بالضبط
تحياتي
111.rar

جرب التعديل المرفق
db3.mdb

تفضل الملف بعد التعديل
saad.accdb

وهذا نفس الكلام الذي قلته
شوف أخ @jo_2010 الحل مش صعب وانا ارفقت لك ملفك بعد التعديل إنما طريقة تصميم قاعدة البيانات مش صح
TEST -2.rar

بارك الله فيك اخي والحقيقة كان كلامك في البداية في محله ونسأل الله الهداية
اما عن سؤالك
سأقوم بتجزئته إلى جزئين
(التوقعات بشأن قواعد بيانات أكسس كإطار عمل) و (التوقعات بشأنه مع تطور الذكاء الصناعي)
فيما يخص الجزء الأول من السؤال فبالمناسبة دائما ما يُسأل لي وتكون إجابتي غلى شكل مثال كالتالي
تخيل أن لدينا سيارة نقل صغيرة ذات 4 عجلات وشاحنة نقل كبيرة ذات إثنا عشرة عجلة وانت صاحب بقالة صغيرة وأغلب عملك اليومي يقتصر على توريد بضاعة صغيرة (كرتون واحد من كذا صنف مثلاً) فهل سيكون من الأجدى لك إستئجار السيارة الصغيرة أم الشاحنة الكبيرة؟
وهذا هو الحال مع قواعد البيانات (أو بالأصح مع البرامج والتطبيقات الخاصة بقواعد البيانات) حيث سيكون من الأجدى لأصحاب المشاريع الصغيرة إستخدام تطبيق تم تطويره بإستخدام أكسس لأكثر من سبب منها على سبيل المثال لا الحصر:
- غالبا من يبدأ بتأسيس المشاريع الصغيرة يكونون من الشباب رواد الاعمال وهذا يعني أنه من الوارد أن يتم تعديل آليات العمل أكثر من مرة حتى يتم التوصل إلى آلية عمل شبه ثابتة ومن هذا المنطلق فأيهما سيكون الأرخص والأكثر مرونة أن يتم تنفيذ التعديل بإستخدام أكسس أم بإستخدام أحد البرامج الكبيرة الأخرى؟
- وحتى لو قلنا أن هذا المشروع قد أنشئ بعد دراسة كافية ووافية ولن يتطلب أي تعديلات (والذي من واقع خبرتي أراه شبه مستحيل) فهل سيتطلب حجم البيانات لمشروع صغير يعمل فيه عشرة موظفين وحجم تعاملاته لاتتجاوز مائة أو مائتين الف دولار شهريا لبرنامج وقاعدة بيانات سيكلف المشروع الاف الدولارات للدعم الفني فقط؟
- أهم مايميز اكسس هو أنها بيئة قواعد بيانات علائقية وهذا يعني أن أسلوب تصميم وبناء قاعدة البيانات فيه هو نفس الأسلوب لتصميم وبناء قواعد البيانات في أي بيئة أخرى وهكذا فعندما يكبر حجم المشروع سيكون من السهل نقل (هجرة) البيانات إلى أي قاعدة بيانات أخرى
- في الاونة الاخيرة بدأت مايكروسوفت ببعض الاضافات والتحسينات كما رأينا في إضافة كائن عنصر تحكم متصفح Edge او تحديث عنصر تحكم الرسوم البيانية وكذا محرر الاستعلامات موناكو وغيرها من الاضافات والتحسينات التي سيتم اضافتها في المستقبل وأعتقد أن مايكروسوفت لم تقم بهذه التحديثات إلا على ضوء نتائج دراسة للسوق قامت بها وجعلها تستشعر أهمية هذا التطبيق من أوفيس (المظلوم من حيث التحديثات مقارنة ببقية تطبيقات أوفيس الأخرى) وهذا إن دل على شيئ فإنما يدل على أن هناك توجه كبير نحو العمل بإستخدام أكسس في المستقبل.
وفيما يخص الجزء الثاني من السؤال (التوقعات بشأنه مع تطور الذكاء الصناعي) فوجهة نظري أن المبالغة في إستخدامه لن يفيد أحد
- الغير فاهم سيخاطر بإستخدام برنامج لايعلم إن كان صحيحاً أم مليئا بالأخطاء والأخطار التي قد يتسبب بها على المدى القريب او البعيد
- المبتدئ الذي يريد التعلم لن يتعلم شيئاً فمن خلال رحلة تعلمي لم أجد أفضل طرق للتعلم إلا شيئ واحد هو التجربة والخطأ فإذا لم يمارس المبتدئ العمل بنفسه ويظل يجرب ويخطئ فلن يتعلم أي شيئ
- المحترف لابأس في أن يستخدم الذكاء الصناعي للمساعدة في حل جزئية معينة (جزئية وليس الكل) كذلك يمكن إستخدامه للمساعدة في تصور شكل النماذج والتقارير أو إقتراح الخطوط العريضة للبرنامج لإستخدامها للعصف الذهني لإستنباط الأفكار فقط أما أن يستخدمه في إنشاء برنامج من الألف إلى الياء فهذا أنا ضده تماماً.
فكما يعلم الجميع فأن كتابة البرنامج من الصفر أسهل من مراجعة برنامج قام به شخص آخر والشيئ الثاني أن قيام المطور بكتابة الكود بنفسه يجعله ملماً بأدق تفاصيله وعند حدوث أي خطأ يكون من السهل معرفة موقعه ومعرفة تأثير التعديل الذي سيتم على الكود لإصلاح الخطأ على بقية الأكواد
وحتى ولو إفترضنا جدلاً أن الذكاء الصناعي قام بإنشاء تطبيق صحيح 100% (سواء كان أكسس أو غيره) فهل سيتمكن المطور من حل أي مشكلة قد تظهر في المستقبل؟ وإذا كان يعمل ولم تظهر أخطاء فهل سيكون لدى المطور الذي سيدّعي القيام بالعمل الثقة الكافية فيه أم سيظل حاطط يده على قلبه في إنتظار المكالمة التي تخبره بظهور خطأ ... والا أنتو إيه رأيكو 😅؟
 

تفضل التعديل
استوك2.accdb

هذا لأنك أدخلت السجل بدون أن تدخل التاريخ 
قمت أنا بإضافة سجل جديد بالرقم 110001 وعندما رجعت للجدول وجدت أن حقل التاريخ فارغ قمت بإدخال تاريخ اليوم ثم قمت بفتح النموذج وأضفت سجل وحددت الرقم 2 فقط فتم تعديله إلى 110002 آلياً كما بالصورة

لا تنسى بأن الكود يقوم بإستخراج أحدث تاريخ ثم إستخراج آخر رقم تم إدخاله في هذا التاريخ ليتم الإعتماد عليه أي أنه يعتمد على التاريخ أولاً ثم على أخر رقم في هذا التاريخ
لمعالجة المشكلة قمت بتعديل النموذج ليتم تعيين تاريخ اليوم لأي سجل جديد 
جربه الان وتأكد من النتائج
 
 
Lab.rar

تم إضافة رسائل تنبيه
dbexample.mdb

قمت بتعديل الملف وان شاء الله يكون هو المطلوب
SaadPermissionsLast.rar

تم تعديل مثالك ليتم إظهار الجداول في القائمة وحذف بيانات الجدول المحدد وإعادة الترقيم من 1
نسخ قاعدة البيانات قبل الحدف.accdb

جرب الان قمت بكل التعديلات المطلوبة
Bilal_Yamen.rar

قم بإزالة علامتي التنصيص حول كلمة red لتصبح بهذا الشكل
<font color=red> بدلاً من هذا
<font color='red'> تحياتي

تفضل اخي الكريم
اخفاء و اظهار.accdb

اخي الكريم يجب عليك التفريق بين حالتين (الجداول/الإستعلامات و النماذج/التقارير) من حيث طريقة إستعراض البيانات المرتبطة بين جدولين 
ففي الجداول والاستعلامات يتم إظهارها بإستخدام ورقة البيانات الفرعية Subdatasheet وهي عبارة جدول أو إستعلام آخر مرتبط بهذا الجدول أو الإستعلام
وبنفس الفكرة إذا أردنا إستعراض بيانات أخرى مرتبطة ببيانات النماذج والتقارير فيجب أن تكون فيما يسمى (النماذج الفرعية Subform أو التقارير الفرعية Subreport)
بالتالي فإذا أردنا إظهار البيانات بالشكل المطلوب داخل النموذج فيجب أن تكون البيانات ضمن نموذج آخر يتم إدراجه كنموذج فرعي
مرفق لك الملف بعد التعديل
 
Sub-data_sheet.accdb