Foksh

وعليكم السلام ورحمة الله وبركاته .. برأيي .. عند إغلاق النموذج ، إذا كان السجل الحالي في وضع تحرير ( Dirty ) ، فإن اكسيس ( للأسف ) يقوم بمحاولة حفظه تلقائياً . لكن !!! في بعض الحالات ، إذا كان المستخدم لم "يخرج" من آخر حقل عدله ( يعني لا يزال المؤشر في نفس الحقل ) . أو أن حدث الإغلاق يتم تنفيذه بسرعة قبل أن ينتهي الحفظ ، فإن acCmdSaveRecord لا يتم تننفيذه فعلياً كما تتصور ,, لذلك ، تشغيل استعلام إلحاق بعد هذا الحدث مباشرة قد يتم قبل ما اكسيس ينتهي فعلياً من حفظ السجل ، وده يسبب إن الاستعلام ما يشتغل بشكل صحيح "إلا بعد المحاولة الثانية" . ومن الحلول التي يمكنك الاعتماد عليها .. If Me.Dirty Then Me.Dirty = False فمن وجهة نظري هذا السطر ⬆ أقوى من acCmdSaveRecord لأنه :- أولاً ( وللأسف أيضاً ) يجبر اكسيس على حفظ السجل الحالي يدوياً ، بدون الاعتماد على واجهة المستخدم أو الأحداث التلقائية . لتنفيذ الحفظ في حدث BeforeClose أو BeforeUnload أو Form_BeforeUpdate ، حاول استخدام الفكرة التالية :- Private Sub Form_Unload(Cancel As Integer) If Me.Dirty Then Me.Dirty = False End If DoCmd.SetWarnings False DoCmd.OpenQuery "اسم استعلام الإلحاق الخاص بك" DoCmd.SetWarnings True End Sub

تعقيباً على النقطة التالية .. يعني لو موظف جاوب على سؤال 1 ، وكانت اجابته صحيحة !!! وانتهى الوقت ، هل سيتم اعتبار نسبة التقييم مبنية على عدد الاسئلة التي اجاب عليها ومنها يتم احتساب المتوسط !!!!! يعني لو اجابة الموظف صحيحة على السؤال الوحيد = فهو ناجح ( او اي كان التقييم ) .. هل بتصورك هذا الاسلوب صحيح !!

وعليكم السلام ورحمة الله وبركاته 🤗 .. تفضل البرنامج ، اضغط هنا .

وعليكم السلام ورحمة الله وبركاته ,, هلا أوضحت ما المشكلة ؟

هذه الفكرة التي اقترحتها .. تم تطبيقها على نموج فرعي واحد ، ونفس الفكرة طبقها على النماذج الفرعية التي تريدها Personnel_affairs.zip

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

عن نفسي ، ليس لدي ما أدلي به لأنه ليس لدي دلو من الأساس 😅 وليس لي حمل على النقاش .

لا اعلم فعلاً إن كان المحتوى واحد ,, .. وكيف أفتي في مدينتكم ..

المشكلة محصورة في الأوفيس أو الويندوز

أعتقد هذا يحتاج موضوع جديد 😅 لأن المطلوب الثاني مختلف عن عنوان المشاركة والطلب الأول .

إذا وُجد الحل فهذا دلالة على أن المشكلة قد عُرفت ،، وللأسف ليس لي فكرة عن السبب الرئيسي للمشكلة.. 🤗

تأكد من إعدادات النظام الإقليمية Unicode على الأجهزة التي تظهر المشكلة .

إليك هذا التعديل اخي الكريم :- Private Sub C8_AfterUpdate() Me.s1 = Null Me.s2 = Null Me.s3 = Null Me.s4 = Null Select Case Me.C8.ListIndex Case 0 Me.s1 = "X" Case 1 Me.s2 = "X" Case 2 Me.s3 = "X" Case 3 Me.s4 = "X" End Select End Sub

حسناً.. سألقي نظرة على الملف حال وصولي للكمبيوتر 🤗

ما شاء الله عليك ،، ابدعت بتحوير الفكرة للمطلوب الذي تريده . بهذا تستطيع اغلاق الموضوع باختيار أفضل إجابة 😇 .

وعليكم السلام ورحمة الله وبركاته .. أولاً يجب تنبيهك الى ضرورة حذف المسافة الزائدة من الاختيار الرابع من الكومبوبوكس C8 الآن في حدث بعد التحديث ، استعمل الكود التالي :- Private Sub C8_AfterUpdate() Me.s1 = False Me.s2 = False Me.s3 = False Me.s4 = False Select Case Me.C8.Value Case "سكن اجتماعي" Me.s1 = True Case "سكن أقارب" Me.s2 = True Case "سكن مؤجر" Me.s3 = True Case "محل غير قابل للسكن (مستودع، فوضوي، قبو)" Me.s4 = True End Select End Sub حيث استخدمت الدالة Case بدلاً من الجمل الشرطية If وطبعاً يوجد حل آخر بعيد عن تحديد القيم النصية من الكومبوبوكس ( وخصوصاً أنها باللغة العربية ) ، بحيث نستخدم الـ Index أو فهرس الكومبوبوكس نفسه كالتالي :- Private Sub C8_AfterUpdate() Me.s1 = False Me.s2 = False Me.s3 = False Me.s4 = False Select Case Me.C8.ListIndex Case 0 Me.s1 = True Case 1 Me.s2 = True Case 2 Me.s3 = True Case 3 Me.s4 = True End Select End Sub وهذا أيضاً حل ثالث :- Private Sub C8_AfterUpdate() Me.s1 = (Me.C8.Value = "سكن اجتماعي") Me.s2 = (Me.C8.Value = "سكن أقارب") Me.s3 = (Me.C8.Value = "سكن مؤجر") Me.s4 = (Me.C8.Value = "محل غير قابل للسكن (مستودع، فوضوي، قبو)") End Sub IF.accdb

وهذه فكرة كما أشرت لك بتغيير نوع مربع نص Gender إلى مربع تحرير وسرد حيث سيكون له الحدث بعد التحديث = Private Sub Gender_AfterUpdate() If Me.Gender.Value = "ذكر" Then Me.الديانه.RowSource = "مسلم;مسيحي" Me.الديانه.Value = "مسلم" Me.الحالة_الاجتماعية.RowSource = "متزوج;أعزب;مطلق;أرمل" Me.الحالة_الاجتماعية.Value = "متزوج" ElseIf Me.Gender.Value = "أنثى" Then Me.الديانه.RowSource = "مسلمة;مسيحية" Me.الديانه.Value = "مسلمة" Me.الحالة_الاجتماعية.RowSource = "متزوجة;آنسة;مطلقة;أرملة" Me.الحالة_الاجتماعية.Value = "متزوجة" End If End Sub بيانات المدرسين (1).mdb

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

حسناً الآن لتلافي عدم تمكنك من الدخول الى وضع التصميم ولا اعلم السبب ( إلا اذا كنت قد منعت مفتاح الـ Shift ) . عليك ما يلي :- 1. انشاء قاعدة بيانات جديدة فارغة . 2. استيراد جميع العناصر المكونة لمشروعك من قاعدة البيانات التي لم تستطع الدخول لها في وضع التصميم . 3. التأكد من جميع المكتبات التي كانت هناك في المصدرالتالف بإضافتها الى القاعدة الجديدة .

وعليكم السلام ورحمة الله وبركاته ,, اعتقد ان هناك نقطة تفصل بين المنطق والتطبيق .. المنطق ان يتم جعل مربع النص = مربع تحرير وسرد يحتوي قيمتين ( ذكر ، أنثى ) بحيث اذا كان ذكر يتم عرض القيم الذكورية في مربعي التحرير والسرد ( الحالة الاجتماعية و الديانه ) والعكس عندما تكون قيمة كومبوبوكس النوع = أنثى . التطبيق اذا كان هذا النموذج الموضح في الصورة هو فقط لإدخال البيانات فلا اعتقد انك تحتاج تعقيد في منطق التصميم لأن البيانات والقيم سيتم ادخالها بشكل يدوي من قبل الموظف ، صحيح ؟؟

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

اذاً الأمر بسيط أخي الكريم .. أولاً ادخل الى التقرير في وضع التصميم ، وقم بتغيير الخط كخطوة أولى لضمان أن المشكلة ليست في آكسيس ثانياً اذا اشتغلت معك قاعدة البيانات بشكلها الطبيعي السابق ، تأكد أولاً من أخذ نسخة احتياطية منها ، ثم إزالة الخط الذي تم اضافته . قد يكون هناك مشكلة في بنية الخط وعدم توافقه مع واجهة معظم التطبيقات كما حصل معك . ثالثاً في حال عدم نجاح أي من هذه الخطوات ، قم بتجربة استخدام الخط مرة أخرى في التقرير ، من ثم ضغط وإصلاح قاعدة البيانات . كلها مجرد احتمالات ما دام الأمر يمنعك من رفع الخط و قاعدة البيانات . أيضاً كخطوة استفسارية .. هل الخط يتم تثبيته من خلال أكواد VBA أو ليس لهذا الموضوع اي وجود في مشروعك ؟؟

وعليكم السلام ورحمة الله وبركاته .. على ما أسلف به أستاي ومعلمي الأستاذ أبو خليل .. ما توضح لي هو أنك تريد تنظيم امتحانات لطلاب في مرحلتين :- الاختبار الشفوي : يقسم الطلاب لمجموعات في جلسات صباحية ومسائية . اختبار اللياقة : يجمع الطلاب من مجموعات شفوية مختلفة في جلسات أكبر . في المرحلة الأولى : كفكرة سنحاول التقسيم للاختبار الشفوي بحيث نأخذ كل صف دراسي على حدة ، ثم نقسم طلاب الصف لمجموعات ( كل مجموعة 20-25 طالب حسب حجم القاعة ) → على سبيل المثال طبعاً ؛ ثم نوزع المجموعات بين الفترتين الصباحية والمسائية . على سبيل المثال :- الصف الثالث ( 275 طالب ) → 12 مجموعة ( 6 صباحاً ، 6 مساءً ) أما في المرحلة الثانية = التوزيع لاختبار اللياقة ، سنأخذ المجموعات الشفوية الجاهزة وندمجها لتكوين مجموعات لياقة أكبر ( 70 صباحاً ، 60 مساءً ) . قد نأخذ جزء من مجموعة شفوية ونضيفها لمجموعة لياقة ، على سبيل المثال :- مجموعة شفوي 1 ( 22 طالب ) + مجموعة 2 ( 22 طالب ) + مجموعة 3 ( 22 طالب ) + ( 4 طلاب ) من مجموعة 4 = 70 طالب ( جلسة لياقة صباحية ) هذا ما توضح لي كفكرة من خلال سياق التوضيح الذي أوضحه أخونا @أحمد عمروف .

سؤال يطرح نفسه ,, هل البرنامج ما زال بصيغة Accdb ؟؟