ابوخليل

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

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

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

اخوتي الكرام السلام عليكم ورحمة الله وبركاته العنوان ينطق بالمعنى كيف يعمل مستخدمون كثيرون ضمن نموذج واحد ولكن كل حسب صلاحيته وتطبيقه على ارض الواقع في البرنامج المدرسي حيث يتسنى لكل معلم ادخال درجات طلابه لا يشاركه في ذلك احد الا المسؤول عن البرنامج وهو جزء من درس احببت افراده ارفقت مثال بسيط عبارة عن جدولين ونموذجين يشتمل على 13 معلما ومسؤول واحد كلمات المرور للمعلمين تبدأ من 101 وحتى 113 وكلمة مرور المسؤول = 222 بيت القصيد والذي تدور عليه العمليه هو حقل رقم المعلم ويوجد مخفيا في حقل داخل النموذج لللاستزادة ورؤية التطبيق من هنا http://www.officena.net/ib/index.php?showtopic=55142&page=4#entry350160 آمل ان تجدوا الفائدة myUser.rar

ملاحظة جيدة حيث يجب ان تختفي الاسماء ولا تظهر الا بعد تحديث الصف والشعبة يجب وضع عبارة uid.Requery في حدث بعد تحديث حقل الفقرة تم التعديل وسنتداركها في المرفق القادم

في الصورة 1 لم يتم اختيار شيء بمعنى بعد اختيار الفصل والفترة : لا بد من اختيار الفصل والشعبة ثم بعدها نختار المادة في الصورة 2 صحيح : لأنه لا توجد أسماء في الشعب أ والشعبة ج وهذه ملاحظة جيدة حيث ان الفصل الذي لايوجد به طلاب يجب ان لا يظهر في مربع التحرير وسبب الخلل : مني حين عدلت على بيانات الطلاب ولم اعدل في جدول التوزيع حيث طلاب الصف الرابع فقط شعبة ب بينما المعلمين موزعين على اكثر من شعبة وهذا خطأ ! كيف نوزع معلمين على شعب فارغة لو جربنا وأسندنا الشعبة ب فقط للمعلمين لما ظهرت بقية الشعب في مربع التحرير الصورة رقم 3 كلامك صحيح والطريقة صحيحة 100% ملحوظة : يجب تجربة ادخال درجات طالب للفحص والتجربة فبعد اختيار الفصل والفترة يتم اختيار خانة درجات طالب