طاهر اوفيسنا

السلام عليكم أخواني ممكن مساعدة بخصوص جمع ملاحظتين مثلا عند احتيار سنة الإشتراك 2015 يظهر لي إسم الموظف ومبلغ المشاركة وملاحظات مبلغ المشاركة كل سنة ب 2000.00 (1000.00 خلال شهر افريل و1000.00 خلال شهر جويلية) ولكن في التقرير كان بظهر كمايلي : كريمو2 1000.00 خصم من الراتب لإشتراك شهر 2015/4 كريمو2 1000.00 خصم من الراتب لإشتراك شهر 2015/7 فبمساعدة الإخوة تمت تجميع المبلغ ولكن بقيت الملاحظات الصحيح هو : كريمو2 2000.00 خصم من الراتب لإشتراك لشهري 4 و 7 /2015 ملاحظة : اذا كان اقتطاع واحد يظهر لوحده فقط او دفع عن طريق البريد يظهر كذالك ارجو المساعدة Discount.rar

هل يمكن ظهور ID على النحول التالي 2016/001 Me!ID = prtyr & "/" & Format(xNext, "000")

وهو كذالك استاذي الكريم شكرا لك الله مايحرمنا من تواجدك معنا دائما ومد يد العون ستجدها في ميزان حساناتك ان شاء الله

شكرا استاذي الكريم ... جعفر لقد جربت ماتفضلت به وكانت النتيجة :

السلام عليكم إخوتي الكرام لديا زر أمر "طباعة" المطلوب عند الضغط عليه يظهر ميساج ولايقوم بمعاينة الطباعة الا إذا تم الضغط على مربع إختيار نعم/لا Private Sub إجازة_سنوية_Click() On Error GoTo Err_إجازة_سنوية_Click Dim stLinkCriteria As String stLinkCriteria = "[IDmozf] =" & Me![IDmozf] stDocName = "إجازة سنوية" DoCmd.OpenReport stDocName, acPreview Exit_إجازة_سنوية_Click: Exit Sub Err_إجازة_سنوية_Click: If err = 2501 Then Resume Exit_إجازة_سنوية_Click End If End Sub

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

معذرة استاذ لقد وجدت مشكلة في الإستعلام الذي انشئته إذ مسحت المعيار في الإستعلام يظهر الميساج في الفورم وإذا تركته لا يظهر شيئا ملاحظة : انت انشئت استعلام 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 سنوات تقف في اقدمية الجنوب وليست في المجموع الذي يجمع اقدمية الجنوب مع الخدمة الفعلية حسب التعديل تقف في المجموع