Taher DZ

شكرااااا استاذي الكريم

معذرة استاذ لقد وجدت مشكلة في الإستعلام الذي انشئته إذ مسحت المعيار في الإستعلام يظهر الميساج في الفورم وإذا تركته لا يظهر شيئا ملاحظة : انت انشئت استعلام SELECT Cridi.DiscountEndDate FROM Cridi WHERE (((Cridi.DiscountEndDate) Is Not Null) AND ((Cridi.[EmployeeID])=1)) ORDER BY Cridi.ID DESC; وفي مربع النص وضعت هذا الكود في حدث قبل التحديث Private Sub DiscountStartDate_BeforeUpdate(Cancel As Integer) 'get the last Discount End Date 'mySQL = "SELECT DiscountEndDate FROM Cridi" 'mySQL = mySQL & " WHERE DiscountEndDate Is Not Null AND EmployeeID =" & Me.EmployeeID 'mySQL = mySQL & " ORDER BY ID DESC" 'Debug.Print mySQL ' 'Dim rst As DAO.Recordset 'Set rst = CurrentDb.OpenRecordset(mySQL) 'rst.MoveLast: rst.MoveFirst 'Last_Disc_End_Date = rst!DiscountEndDate Last_Disc_End_Date = DLookup("[DiscountEndDate]", "qry_Last_Disc_End_Date") If Me.DiscountStartDate <= Last_Disc_End_Date Then MsgBox " تاريخ بداية الخصم أكبر أو يساوي تاريخ نهاية الخصم السابق" Cancel = True Me.Undo End If End Sub هل يوجد شيء اخر عدلت فيه اخر عدلت فيه

شكرا لكم استاذي العزيز على المساعدة بقيت مشكلة وهي الكود لا يقبل تاريخ إضافة قرض للشهر البعد الأخير مثلا : نهاية الخصم 2016/08/01 لايقبل إضافة قرض ثاني في 2016/09/01 بل يقبل الا في 2016/10/01 او 2016/11/01 وغيرهم ارجو تصحيح الكود

للرفع

شكرا استاذي العزيز ... جعفر لقد وضعت الكود في الحدث "قبل التحديث" عند مربع النص DiscountStartDate وظهر التنبيه عندما يكون اكبر او اصغر او مساو ولكن عندما نضغط على نعم يقبل التاريخ المطلوب : لا يقبل التاريخ المساو او الاصغر من تاريخ النهاية ملاحظة : تاريخ نهاية الخصم تكتب تلقائيا لا فائدة من وضع الحدث فيها FrmCridi.rar

السلام عليكم بالصورة المطلوب ظهور msgbox عندما يتم إدخال تاريخ بداية الخصم أصغر من تاريخ نهاية الخصم مثلا :2016/01/01 الى 2016/08/01 هنا عند إدخال تاريخ بداية الخصم أقل او يساوي من 2016/08/01 يظهر msgbox تنبيه بأن " القرض المالي الحالي لم يكتمل إقتطاعه ولايمكن اضافة قرض أخر" علما ن مربع النص تاريخ بداية الخصم هو DiscountStartDate ومربع النص تاريخ نهاية الخصم هو DiscountEndDate وشكرا

شكرا لك اخي تاريخ التجديد ظهر 1/1/2016 كيف يتم اظهاره بهذه الصيغة 2016/01/01 اي رقمين باليوم ورقمين بالشهر ملاحظة : بقي تنبيه msgbox عندما يكون تاريخ التجديد مساو لتاريخ اليوم

للرفع

السلام عليكم أساتذة الكرام بالمرفق لديا طلب وهو معرفة تاريخ تجديد عقد العمل لكل عامل علما ان التجديد يتم كل سنة "مثلا تاريخ العمل 2010/05/01 يكون التجديد 2016/05/01" مع ظهور msgbox تذكرني بقائمة العمال الذين تجدد عقود عملهم في ذات اليوم بعد السنة مع الغاء التنبيه في ذات اليوم بجانب العامل fon2016.rar

شكرا على المداخلة و التوضيح أستاذ جعفر في اي حدث يوضع الكود حتى يظهر مع اكسس 2003

اخي علي المصري العنوان TT في التقرير Report_Contractiel_5H ذو الحدث Private Sub Report_Load() Me.TT = "القائمة الإسمية للأعوان المتعاقدين بالتوقيت الجزئي محدد المدة " & [Forms]![F2]![Report_Title] _ & " الى غاية : " & Format([Forms]![F2]![txtMonth], "yyyy/mm/dd") End Sub ظهر في أكسس 2010 ولم يظهر في أكسس 2003 ماسبب المشكلة

شكرا لك أخي علي ربي يبارك فيك

اخي علي الكتابة بالعنوان مثل الصورة

شكرا اخي علي على المساعدة ولكن بقي العنوان بالتقرير

السلام عليكم إخواني في المرفق وفي الفورم f2 كما في الصورة 01- عندما نخصص العمال التابعين للمطعم المدرسي لا يظهر في التقرير غيرهم 02- عندما نخصص العمال التابعين للمدارس الإبتدائية لا يظهر في التقرير غيرهم 03- عندما نخصص العمال التابعين لمصالح البلدية لا يظهر في التقرير غيرهم مع مراعات الإسم في العنوان بالأعلى بالتقرير ارجو المساعدة 55.rar

شكرا وليلتك سعيدة دمت في حماية رب العزة

اشرت لك سابقا ان عندما تصبح اقدمية الجنوب تساوي 06 سنة فإنها لا تجمع مع الخدمة الفعلية ابدا يصبح المجموع يساوي الخدمة الفعلية فقط *- ملاحظة : حسب اخر تحديث للكود فان مربعات أقدمية الجنوب لا يظهر بها شيئا تقبل تحياتي القلبية الخالصة جرب المرفق الذي به أخر تحديث للكود 237.حساب اقدمية.rar

لقد انخلطت الامور أستاذي الكريم واسف اتعبتك معايا الليلة جرب أدخل تاريخ التعيين 1985/01/01 والحساب الى غاية 2015/12/31 الصحيح : اقدمية الجنوب 06 سنة 00 شهر 00 يوم الخدمة الفعلية 31سنة 00 شهر 00 يوم المجموع 31سنة 00 شهر 00 يوم

يا استاذ جعفر لم يتم التعديل في مشكلة الـ 06 سنوات بقيت تقف عند المجموع والاصح تقف عند أقدمية الجنوب مثل الصورة

شكرا استاذي الكريم الان بقيت الخدمة الفعلية ايضا تحسب 12 شهر اليست تساوي 01 سنة استاذي العزيز جعفر 06 سنوات تقف في اقدمية الجنوب وليست في المجموع الذي يجمع اقدمية الجنوب مع الخدمة الفعلية حسب التعديل تقف في المجموع

وعليكم السلام أخي حعفر شكرا لك اخي على المجهودات المبذولة من اجل مساعدة جميع الإخوة ربي يجعلها في ميزان حسانتك ان شاء الله فيه بعض الملاحظات واتمنى ان تصحيحها يكون بسيط دائما في اقدمية الجنوب *- إذا افترضنا ان تاريخ التعيين 2014/01/01 وان D2 هو 2015/12/31 فأقدمية الجنوب تكون 08 أشهر وليس 07 أشهر و 29 يوم حسب التعديل بالنسبة للأيام في الأقدمية اذا كانت تساوي 30 فتلقائيا تجمع مع مربع نص الأشهر وتصبح زيادة بشهر ولا تكتب 30 يوم ملاحظة1 : بالنسبة للباقي في الأيام في الأقدمية : من وجهة نظري ارى انها صعبة الحساب وخاصة لما يكون يوم بداية التعيين لا يبدأ بـ 01/YY/MM او 10/YY/MM او 20/YY/MM ملاحظة 2 : أقدمية الجنوب في حدود 06 سنوات فقط اي لا تفوق هذا العدد ابدا وبعد هذا العدد تظهر في مربع نصها ولا تحسب في الزيادة مع الخدمة الفعلية اي المجموع

ايه

تحسب 02 أشهر و 05 ايام

اتمنى ان الصورة توضح المطلوب اساتذة

اعجزتم ايها الاساتذة الكرام عن حل ماهو المطلوب حساب أقدمية الجنوب القاعدة تقول : كل 01 سنة تحسب فيها 04 اشهر كل 06 اشهر تحسب فيها 02 اشهر كل شهر تحسب فيها 10 ايام كل 10 ايام تحسب فيها 03 ايام