ابوخليل

استخدم هذا داخل مربع النص او في الاستعلام اما في محرر الفيجوال فيجب استبدال العلامات الفاصلة =Format(DateAdd("yyyy";5;[date_start]);"yyyymmdd")

هذا ممكن وهو موجود في التوضيح اعلاه وهذا مثال آخر محدث استبدلنا فيه حقول المسارات بمتغيرات نصية ويحفظ النسخة داخل مجلد البرنامج Public Function DBOld() DBOld = CurrentDb.Name ' قاعدة البيانات الحالية 'DBOld = Application.CurrentProject.Path & "\dbData.db"' قاعد اخرى موجودة بالمسار نفسه End Function طبعا ستختار واحدة فقط والاخرى يلزم تعطيلها او حذفها Public Function DBNew() DBNew = Application.CurrentProject.Path & "\" 'الموقع الجديد للنسخة داخل مجلد البرنامج End Function Public Function BKUp() On Error Resume Next Dim OldFile As String, DBwithEXT, DBwithoutEXT, NewFile As String, CopyMyDB OldFile = DBOld DBwithEXT = Dir(OldFile) DBwithoutEXT = Left(DBwithEXT, Len(DBwithEXT) - 4) Application.SetOption "Use Hijri Calendar", False NewFile = DBNew & "\" & Format(Now, "yyyymm") & ".txt" CopyMyDB = "cmd.exe /C copy " & """" & OldFile & """" & " " & """" & NewFile & """" Shell CopyMyDB, 0 Exit Function End Function Private Sub zerExit_Click() BKUp DoCmd.Close End Sub نسخة احتياطية .rar

اللقب : اذا يضاف حقل في الجدول للقب التقديرات : سؤالي عن الضابط ؟ متى يستحق جيد ومتى يستحق جيد جدا ... وهكذا ؟

جزاك الله خيرا

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

استفسار : استوقفتني بعض الملاحظات داخل المرفق ارجوا تفسيرها 1- مربعات الخيار اعلى الشهادة ماذا تعني 2- يوجد مربع اعلى النتيجة النصفية هل هو شعار ام صورة الطالب ؟ 3- اللقب / موجود داخل حقل ولا يوجد فراغ لكتابة شيء ما فماذا يعني 4-يلزم بيان ضابط التقديرات يوجد تقديرات لــ 20 و 50 و 120 و 300

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

اولا يجب ان تعمل على اكسس 2003 لان الاصدارات الاحدث لا تدعم صفحات الوصول الى البيانات ثانيا/ عملك صحيح 100% في ربط الجدول بصفحة محفوظة ولكن المشكلة ان الصفحة تبقى جامدة وتحتاج الى مزامنة ويمكن تخطي هذه المشكلة بان تقوم بربط صفحة الوصول الموجودة في اكسس 2003 بصفحة الموقع ثم تحفظ نسخة يوميا باستخدام تصدير (وهذه الآلية تسمح لك باللصق فوق النسخة السابقة ) ويمكن توظيف كود برمجي يقوم بالمهمة بضغطة زر بدلا من التصدير اليدوي وهذه الصفحة الحاصلة هي التي نربطها بالجدول اعمل الخطوات السابقة واذا لم تصل لنتيجة مرضية ارفق ما توصلت اليه

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