ابوخليل

الآن اخذنا منعطف آخر ويلزم ارفاق جزء من مشروعك حتى يتم التطبيق عليه فالمطلوب منك التالي : - فتح موضوع جديد يكون اسمه مثلا ( تطبيق قانون الترقيات على الموظفين ) - ترجمة بنود القانون الى العربية ففهمي في هذه اللغة ضعيف و( google يصاب بالحول عند الترجمة ) - ( ارفاق آخر مثال هنا + جزء من مشروعك ) ليتسنى لي او احد اخوتنا المساعدة وعمل اللازم ، واحرص ان يكون على صيغة mdb وفقك الله لكل خير ،،،

صحيح .. الشرط كان (اكبر) وجعلناه ( اكبر او يساويه ) انظر الآن بعد التعديل الترقيات3.rar

ارفق مثالك مبينا عليه مطلوبك حتى تعين اخوانك على مساعدتك

اجعل مصدر بيانات النموذج الفرعي استعلام ، واضبط القيم العليا في الاستعلام على 4

اكمالا لموضوع ادخال درجات طلاب المدرسة هنا 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 هناك اكثر من حل احدها ان تجعل المكتبة ضمن مرفقات البرنامج وتعمل على نسخها وتسجيلها عند تنصيب البرنامج الثاني اعتقد بوجود وحدة نمطية تقوم بعمل هذه المكتبة وتدرج داخل البرنامج ( سابحث لك عنها )