Gamal.Saad

File Dialog يحتاج لاضافة Reference : MicroSoft Office 14 Object Library ورقم 14 هو اصدار الأوفيس ويتغير حسب ما لديك بنظام التشغيل

بعد اذن أستاذ أبوياسين : الخطأ بسبب قيمة NULL لمربع النص X بالنموذج والحل: اكتب بعد السطر الرابع (بعد تعيين قيمة Y ) : x = y

يارب يبارك فيك ... ويعطيك مثلما تدعو ... ويزيدك من فضله

أنت عملت في التقرير control Source لمربع نوع الانذار الكود السابق وهو تقريبا صحيح لكن طبعا لن يتم تنفيذه لأن الشرط في جميع حالات Switch يحتوي على معامل مقارنة + قيمة المقارنة ولكن لا يحتوى على العنصر المراد تطبيق الشرط عليه بمعنى اكتبه في التقرير هكذا : =Switch([S]>=26;"راسب بسبب الغياب";[S]>=25;"انذار نهائي";[S]>=20;"إنذار رابع";[S]>=15;"إنذار ثالث";[S]>=10;"إنذار ثاني";[S]>=5;"انذار اول") وفي الاستعلام هكذا : A: Switch([All_Sum]>=26;"راسب بسبب الغياب";[All_Sum]>=25;"انذار نهائي";[All_Sum]>=20;"إنذار رابع";[All_Sum]>=15;"إنذار ثالث";[All_Sum]>=10;"إنذار ثاني";[All_Sum]>=5;"انذار اول")

تم قسمة مجموع الهروب على 4 راجع النتيجة غياب 7.mdb

جهازك أصيب بأحد أنواع البرمجيات الخبيثة Malware اختصار ل Malicious Software وهذا النوع يسمى : فيروسات الفدية Ransomware و يقوم بالدخول الي جهازك و تشفير ملفاتك علي القرص الصلب و يطلب منك فدية او مال لفك تشفير ملفاتك وعندما تتواصل إما تدفع الفدية وتحصل علي مفتاح فك التشفير وإما تتعرض لضرر أكبر وعملية نصب واختراق جديد وبرامج الحماية من الفيروسات المفترض لا تزيل الفيروسات فقط وإنما تحتوى على أدوات لازالة باقي أنواع المالوير Malware والمعروف منها : Virus Worm Trojan Spyware Adware Crimeware Crapware Bot والحل : أقترح تبحث في الانترنت عن أداة لإزالة Ransomware pezi أو قم بتحميل برنامج قوي للحماية من الفيروسات أو نظام تشغيل به جدار ناري محدث Firewall وبعض الأحيان تجد ملفات تم تغيير امتداداها ولم يحدث لها تشفير لكن هذا احتمال ضعيف بس جرب تغير الامتداد مش هتخصر حاجة

عند فتح التقرير ضع المعيار : DoCmd.OpenReport "rpt_To_Father_Fail", acViewPreview, , "SumOfwww > 25" وبهذا سيقوم باظهار السجل بالكامل المحتوى على هذا الشرط ويخفي باقي السجلات غياب 6.mdb

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

شهر فبراير أو شهر شباط February هو الشهر رقم 2 شهر إبريل أو شهر نيسان April هو الشهر رقم 4 وشهر مايو أو شهر آيار May هو الشهر رقم 5 وهو المسجل بالجدول والمفروض بجدول الأشهر أن يكون ترتيب شباط هو رقم 2 وليس رقم 5 ID month_name 1 كانون الثاني 2 شباط 3 آذار 4 نيسان 5 آيار 6 حزيران 7 تموز 8 آب 9 أيلول 10 تشرين الأول 11 تشرين الثاني 12 كانون الأول جرب المرفق غياب 5 وشغل شهر مايو آيار غياب 5.mdb

يعطيك رسالة خطأ أم ماذا ؟ لأنه التقرير يعمل عندي التقرير التسلسل به أبجدي ، وطبعاً ترتيب اسم : "علي" قبل اسم "قاسم" ع غ ف ق ك ل م ن ه و ي على ما أتذكر وممكن تجعل الترتيب حسب الكود كما بالجدول مفيش مشكلة فعلاً يوجد للطالب "علي" غياب واحد فقط مسجل كما بالمثال المرفق الأخير غياب 3 وهو يوم 12/5/2020 وهو موجود بالجدول Subst وموجود بالاستعلام Qry_Student_Type وموجود بالتقرير Form3 وٍسأرفق لك تعديل الترتيب حسب الكود بالجدول غياب 4.mdb

غياب 3.mdb

يا باشا ايه اللمحات الفنية دي دي لوحة فنية مش نموذج أنا أقترح تعلقها على سور المدرسة هههههه نعم حدثت مشكلة ، ومشكلة كبيرة كمان وهذه المرة ربنا ستر في التقرير مربع نص اسمه month2 يأخذ قيمته من كومبوبكس month_no داخل نموذج Form1 وطبعا حاليا Form1 تغير إلى Form3 والتحديث التلقائي لاسم الكائن لا يتم إلا في أجزاء معينة من البرنامج وفي أجزاء أخرى لا يتم مثل داخل كود Vba أو كود SQL أو خصائص control source المهم إما ترجع اسم Form1 أو تغير مصدر بيانات مربع month2 بالتقرير وتشير إلى Form3

Me.Recordset.FindFirst "[inv_id_h] = 0 And [inv_type_h] = 2" Me.Recordset.FindFirst "[inv_id_h] = " & Me.inv_id_h & " And [inv_type_h] = " & Me.inv_type_h & "" شغال ، جرب المرفق مثال اوفيسنا الانتقال الى سجل محدد 2.accdb

تمام جرب فكرة الحل المرفق وهي باختصار : تقرير عن جميع الطلبة وأمام كل منهم يوم محدد من الشهر هل غاب أم لا (Choice box) وهو يوضح أيام الغيابات فقط (وطبعا ممكن نضيف باقي الحالات شرط أن توضح مكانها بالتقرير) مربع المجموع ومصدر بياناته مجموع قيم مربعات الاختيار choice وطبعا هيكون المجموع بالسالب ووقتها تضيف دالة ABS واستعلام واحد فقط أهم به حقل كود الطالب واسمه وفي التقرير كل مربع اختيار عن يوم محدد به معادلة عامة : DCount("MainId";"subst";" Day([Tdate]) = '1' And Month([Tdate]) = " & [Reports]![قيمة من التقرير وممكن من النموذج] & " AND [MainId] = " & [Reports]![rpt_Absent_All]![MainId] & " And [type] = 'K'") ومعنى الشروط لكي يكون قيمة مربع الاختيار = -1 هي: Day([Tdate]) = '1' اليوم الأول من التاريخ المسجل بالجدول الموضح للحالة غياب أم هروب وخلافه Month([Tdate]) = أن يكون قيمة الشهر لهذا التاريخ تساوي قيمة الشهر المختار من النموذج أو التقرير Type = 'K' طبعاً حالة الغياب MainID = كود الطالب غيابات 2.mdb

تمام الجزء الأول: الجزء الثاني الجزء الثالث أجيبك على الجزء الثالث كما أرى بالصورة أنت تحتاج أن تسجل أمام كل يوم من الشهر هل تغيب الطالب أم لا ؟ أم تحتاج أن تسجل مجموع الغياب خلال الشهر في مربع نص خاص بذلك أمام كل طالب ؟