ابوخليل

اكمالا لموضوع ادخال درجات طلاب المدرسة هنا http://www.officena.net/ib/index.php?showtopic=55142&page=5#entry350282 حيث تمت عملية الادخال وايضا تهيئة الدرجات للاخراج والعرض وهنا نتابع السير _مستعينين بالله _ لعرض نتائج المدخلات ماهي التقارير المطلوبة الاحتمالات الواردة : 1- تقرير لعرض النتيجة الشهرية 2- تقرير لعرض المحصلات 3- تقرير لعرض الاختبارات 4- تقرير النتيجة النصفية 5- تقرير النتيجة النهائية 6- تقرير شامل 7- الشهادات

تم التعديل جرب اعمل الترقية مثلا من الدرجة 8 ستيب 7 الى الدرجة 10 انظر وافدني بالنتيجة ومرئياتك الترقيات2.rar

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

تحية طيبة اخونا مصطفى عن نفسي : لا اعرف كيف اساعدك ؟ اقرأ سؤالك وافتح مثالك ولكن ما يفتح الله علي فيه شيء

الحمد لله ،،، وفقك الله وزادك من فضله

Private Sub com1_Click() Dim AllTel As String, rs As DAO.Recordset Set rs = CurrentDb.OpenRecordset("Qry1") With rs .MoveFirst While Not .EOF AllTel = AllTel & "," & .Fields("list1") .MoveNext Wend .Close End With AllTel = Right(AllTel, Len(AllTel) - 2) txt1 = AllTel End Sub باعتبار Qry1 هو مصدر مربع القائمة بفرضية كونه استعلام list1 هو حقل الارقام في المصدر

[تاريخ نهاية الاشتراك] = DateAdd("m", 4, [تاريخ بدء الاشتراك]) الرقم 4 هو عدد الشهرور المراد زيادتها والحرف m يعني اننا سنضيف شهورا ولزيادة سنوات استبدل m بــ yyyy وللايام d الكود اعلاه تكتبه في حدث بعد التحديث لتاريخ الاشتراك

تم تعديل المرفق حسب الشرط علما انه يمكننا بعد الترقية الى المرتبة التالية اظهار والاطلاع على ( الدرجة المبدئية المقاربة لراتبه السابق ) تجد في المرفقات نسختين 2003 و 2007 Downloads.rar

لا ادري ولكن هكذا توقعت يمكن النموذج مسوي حدث وخلل اخرجه من عائلة النماذج

جزيت خيرا ،،،

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

عندي لك حل انت تستخدم اكسس 2007 ؟ افتح قاعدة بيانات جديدة ثم استورد جميع كائنات برنامجنا اليها حينها اتوقع انها ستعمل

المخرجات : استعلام qryDrjat ملحوظة : يجب استبعاد جميع الامثلة القديمة ( اجعلوها في مجلد خاص ) واستخدام الاحدث فالاحدث لاني اقوم بالتعديل باستمرار مثلا في المرفق التالي عملت استعلام واحد بجميع مخرجات الدرجات التي يحتاجها البرنامج وايضا قبل ذلك قمت بالتعديل على خصائص الحقول الرقمية في الجدول ( يمكنكم الاطلاع والمقارنة بالسابق ) وكتبت ايضا بقية التسميات التوضيحية داخل الجدول الخطوة القادمة ان شاء الله هي عرض المخرجات sch11.rar

لا عليك من الكلمة او من العناوين حيث سيتم حفظ وترحيل الشركات فقط في جدول آخر يوميا ويمكنك مستقبلا من الرجوع اليها واجراء عملياتك عليها

لا يوجد جدول في المثال ! الموجود جدول مرتبط لذا لا يمكن التعديل على المثال ولكن يمكن تحقيق مطلبك بان تجعل مصدر بيانات التقرير استعلام وتضع في حقل المعرف المعيار التالي : forms!tcni!NUMSERIE

استاذ علي : هذا على إكسل هل انقله الى منتدى اكسل ؟ ام انك ستحوله الى اكسس ؟

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

الخطوة التالية : المخرجات والمطلوب الآن ادخال درجات الطلاب الموجدين في المثال كاملة عندنا فصل رابع ب وفصل ثامن أ اختبار الفترات للفصلين الدراسيين والاختبار النصفي الاول والثاني حيث على ضوء ذلك سيتم استخراج : - اشعار الفترة - الاشعار الفصلي الاول والثاني - النتيجة النهائية يجب ان يوجد تفاوت في الدرجات لتظهر في المجاميع لاستخراج الاوائل آمل عمل ذلك ثم رفع المثال

السبب هو عند تنسيق النماذج الفرعية استخدمنا خاصية النسخ واللصق للحقول المتشابهة وغفلنا عن الاحداث الخاصة بها ، فتعطلت . تم التعديل واستبدال المرفق اعلاه هذه فائدة جزاك الله خيرا

وجدتها : تم ارفاق المثال نفسه بعد التعديل وتم الاستغناء عن المكتبة المذكورة جرب ووافنا بالنتيجة changePic2.rar

سبب ظهور المشكلة ان المكتبة تكون في موقع يختلف عن الجهاز الآخر ستقع في هذه المشكلة بالتأكيد اذا اختلفت الانظمة بين 32 و 64 بت لاختلاف موقع الملفات المكتبة المسؤولة اسمها mso.dll هناك اكثر من حل احدها ان تجعل المكتبة ضمن مرفقات البرنامج وتعمل على نسخها وتسجيلها عند تنصيب البرنامج الثاني اعتقد بوجود وحدة نمطية تقوم بعمل هذه المكتبة وتدرج داخل البرنامج ( سابحث لك عنها )

هذا هو الكود المسؤول Option Compare Database Dim Stest As Byte Private Sub sOK_Click() Dim i As Boolean Dim x As String i = Nz(DLookup("pass", "tblUsers", "pass = forms!frmsecurity!text2")) x = Nz(DLookup("UserId", "tblUsers", "pass = Forms!frmsecurity!text2")) If i = True Then If Stest = 1 Then myuser = x DoCmd.Close DoCmd.OpenForm "frmDrjat", acNormal Else myuser = "" DoCmd.Close DoCmd.OpenForm "frmDrjat", acNormal End If Else MsgBox "كلمة المرور غير صحيحة فضلاً تأكد وحاول مجدداً" Text2 = Null End If End Sub علما ان myuser هو متغير نصي تم الاعلان عنه في وحدة نمطية عامة و Stest متغير رقمي يمثل اول رقمين من كلمة المرور وطريقة الوصول الى الكود هو عند تشغيل المثال : نضغط على shift وفي نفس الوقت ننقر على البرنامج فيفتح على التصميم نفتح نموذج frmsecurity على التصميم ثم ننقر Alt+F11

الخطوة التالية ربط نموذج الدخول بنموذج الدرجات ارقام المعلمين تبدأ بالرقم 10 اجباريا بداية من 101 يحق لكل معلم تغيير كلمة المرور الخاصة به فقط واكسس هو من يضيف الرقم 10 المسؤول رقمه حاليا 111 ويستطيع تغيير رقم اي معلم ورقمه يبدأ اجباريا بـ 11 جعلت للمعلمين نموذج لتغيير السري يخصهم كما جعلت للمسؤل واحدا آخر ويمكن جمعهم في نموذج واحد ونحتاج حينها لزيادة بعض الاكواد انظروا اللمسات الفنية والاخراج في نموذج الدرجات تصميم واحدة من اولادي بداية ارجو الدخول والتجربة من الباب ثم ادخلوا كيف شئتم بعد ذلك وابحروا sch10.rar

كل شيء تمام اسم المستخدم الذي سجل دخوله يظهر على الاطار الازرق اما العد التنازلي فهو من ابتكار الاستاذ علي المصري وكنت شريكه في التنفيذ والعداد لم اضفه ابتداء بل كان موجود ضمناً ، ويمكن الاستغناء عنه وايقافه

قبل المخرجات بدا لي ان اربط نموذج الدرجات بالمعلمين كل حسب صفه ومادته لذا صنعت مدخلا الى البرنامج عبر ما يسمى بالصلاحيات كمثال وعرضته لوحده لخصوصيته وحتى تعم الفائدة وسأضمه الى مشروعنا في المرفق القادم ان شاء الله من هنا http://www.officena.net/ib/index.php?showtopic=55353