ابوخليل

هو ما اريده بالضبط وسؤالي كان للتسهيل والتيسير سلمت أناملك استاذنا الكريم والف شكر لهذا الحل الرائع أحاطك الله بلطفه وعنايته وبارك لك في وقتك ومالك وأصلح لك في ذريتك

من خصائص النموذج / لسان التبويب : بيانات اجعل القيمة : اضافة = لا

اخوتي الاكارم السلام عليكم ورحمة الله وبركاته وبعد في المصنف المرفق صفحات عديدة تحتوي على اسماء الطلاب بالحروف العربية والانجليزية وايضا رقم الهوية المعرف المطلوب : بضغطة زر اريد ترحيل الاسماء العربية فقط وارقام المعرفات من الصفحات وضمها في صفحة جديدة واحدة بيانات طلاب.rar

اخونا الكريم ابراهيم الشال اداة جميلة نافعة جزاك الله خيرا

اخونا مصطفى تحية طيبة وحقيقة الصور توحي بعمل ممتاز وتستحق ان تفرد لها موضوعا يخصها بارك الله فيك وزادك علما اخواني الكرام اخواتي الكريمات اعتذر عن الانقاطاع وعدم المواصلة باستخراج التقارير وحقيقة يقف امامي في التقارير مشكلة التصميم والذي يأخذ حوالي 90% من الوقت للتنظيم والترتيب فقط وهذه هي مشكلتي الحقيقية حيث لا املك الهمة والوقت الكافيين اما الاخراج والربط وعمل المعادلات او الاكواد المساعدة والتي تصعب على الكثير فهذه امرها يسير بعد تسهيل الله ومما اذكر ان اخونا مصطفى صاحب المشاركة اعلاه كان يطرح السؤال ويطرح معه مثالا مكتملا قد صمم فيه النموذج والتقرير على اكمل وجه ويطلب مثلا كودا معينا خلف زر معين يقوم بمهمة معينة . sch12.rar

استخدم هذا داخل مربع النص او في الاستعلام اما في محرر الفيجوال فيجب استبدال العلامات الفاصلة =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