اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

طاهر اوفيسنا

04 عضو فضي
  • Posts

    1088
  • تاريخ الانضمام

  • تاريخ اخر زياره

كل منشورات العضو طاهر اوفيسنا

  1. شكرا استاذ الوزير لسة المعادلة لا تفي بالشرط المطلوب =IIf([نوعية الإجازة].[column](0) Between 4 And 12;[TotLoh];IIf(IsNull([TotLoh]);"";Nz([TotLoh];0)-Nz([conH];0))) المطلوب : عندما نخصص من 4 الى 12 في نوعية الإجازة لاتحسب في الطرح في باقي له ويبقى اخر باقي محتفظ به من غير الموجود في اجمالي له اتمنى اني وضحت المطلوب
  2. ّ السلام عليكم اخواني رمضان كريم المطلوب مساعدة بخصوص حساب اجازة عندما تكون نوعية الإجازة من الرقم 4 الى الرقم 12 لا يتم الإقتطاع ويترك باقي الإجازة كما هو اي التعديل على هذه الدالة : =IIf([نوعية الإجازة] Between 4 And 12;[TotLoh];IIf(IsNull([TotLoh]);"";Nz([TotLoh];0)-Nz([conH];0))) والصورة توضح المطلوب وشكرا حساب اجازة بشرط.rar
  3. كل عام وامة الحبيب المصطفى بالف خير اللهم تقبل صيامنا وقيامنا
  4. شكرا اخي ابو خليل على المساهمة سؤالي : هل من الممكن ان تكون نمط الإجازات كالتالي : الرصيد السابق مدة الإجازات إجازة السنة الحالية "50" الباقي ملاحظة : الباقي = الرصيد السابق - مدة الإجازة + إجازة السنة الحالية "50"(الإجازة الحالية تدخل حيز التنفيذ من كل سنة ابتداء من شهر جوان الى غاية اخر ديسمبر تضاف الى الرصيد السابق ) مثلا : عندي الرصيد السابق 47 مدة الإجازة = 15 الباقي : 32 في شهر جوان تضاف 50 يوم يصبح الباقي : 82 يوم هو الرصيد الكامل للإجازات أمل ان اجد حلا بواسطة طريقة العرض نماذج مستمرة
  5. ليست المشكلة بالعربي او بالأنحليزية المطلوب : جمع كل مايكتب قي الملاحظات "Remarks" لكل موظف مثلا : سنة 2015 " خصم من الراتب لشهر 2015/4 "و "خصم من الراتب لشهر 2015/7 " للموظف رقم 3 تظهر في الملاحظات كمايلي في التقرير امام العامل رقم 3 "خصم من الراتب لشهر 4 و 7 /2015 "
  6. قصدي ظهور ماكتب في جدول tbl_Loans وخاصة عند مربع النص Remarks
  7. شكرا لك استاذي الكريم جعفر وفقك الله لما يحبه ويرضاه استاذي الكريم العمل ممتاز ولكن هل يمكن استبدال بما يكتب في Remarks تلقائيا بدون كتابة الشرط الذي وضعته Discount for the months Get_Dates = "Discount for the month " & Format(rst!Payment_Month, "m/yyyy") Get_Dates = "Discount for the months " & Mid(Get_Dates, 5)
  8. أساتذة الكرام إذا صعب الأمر عليكم ممكن نجمعها بهذه الكيفية "خصم من الراتب لإشتراك شهر 2015/4 و خصم من الراتب لإشتراك شهر 2015/7 " أو "خصم من الراتب لإشتراك شهر 2015/4 و شهر 2015/7" أو "خصم من الراتب لإشتراك شهر 2015/4 و 2015/7"
  9. السلام عليكم أخواني ممكن مساعدة بخصوص جمع ملاحظتين مثلا عند احتيار سنة الإشتراك 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
  10. هل يمكن ظهور ID على النحول التالي 2016/001 Me!ID = prtyr & "/" & Format(xNext, "000")
  11. وهو كذالك استاذي الكريم شكرا لك الله مايحرمنا من تواجدك معنا دائما ومد يد العون ستجدها في ميزان حساناتك ان شاء الله
  12. شكرا استاذي الكريم ... جعفر لقد جربت ماتفضلت به وكانت النتيجة :
  13. السلام عليكم إخوتي الكرام لديا زر أمر "طباعة" المطلوب عند الضغط عليه يظهر ميساج ولايقوم بمعاينة الطباعة الا إذا تم الضغط على مربع إختيار نعم/لا 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
  14. معذرة استاذ لقد وجدت مشكلة في الإستعلام الذي انشئته إذ مسحت المعيار في الإستعلام يظهر الميساج في الفورم وإذا تركته لا يظهر شيئا ملاحظة : انت انشئت استعلام 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 هل يوجد شيء اخر عدلت فيه اخر عدلت فيه
  15. شكرا لكم استاذي العزيز على المساعدة بقيت مشكلة وهي الكود لا يقبل تاريخ إضافة قرض للشهر البعد الأخير مثلا : نهاية الخصم 2016/08/01 لايقبل إضافة قرض ثاني في 2016/09/01 بل يقبل الا في 2016/10/01 او 2016/11/01 وغيرهم ارجو تصحيح الكود
  16. شكرا استاذي العزيز ... جعفر لقد وضعت الكود في الحدث "قبل التحديث" عند مربع النص DiscountStartDate وظهر التنبيه عندما يكون اكبر او اصغر او مساو ولكن عندما نضغط على نعم يقبل التاريخ المطلوب : لا يقبل التاريخ المساو او الاصغر من تاريخ النهاية ملاحظة : تاريخ نهاية الخصم تكتب تلقائيا لا فائدة من وضع الحدث فيها FrmCridi.rar
  17. السلام عليكم بالصورة المطلوب ظهور msgbox عندما يتم إدخال تاريخ بداية الخصم أصغر من تاريخ نهاية الخصم مثلا :2016/01/01 الى 2016/08/01 هنا عند إدخال تاريخ بداية الخصم أقل او يساوي من 2016/08/01 يظهر msgbox تنبيه بأن " القرض المالي الحالي لم يكتمل إقتطاعه ولايمكن اضافة قرض أخر" علما ن مربع النص تاريخ بداية الخصم هو DiscountStartDate ومربع النص تاريخ نهاية الخصم هو DiscountEndDate وشكرا
  18. شكرا لك اخي تاريخ التجديد ظهر 1/1/2016 كيف يتم اظهاره بهذه الصيغة 2016/01/01 اي رقمين باليوم ورقمين بالشهر ملاحظة : بقي تنبيه msgbox عندما يكون تاريخ التجديد مساو لتاريخ اليوم
  19. السلام عليكم أساتذة الكرام بالمرفق لديا طلب وهو معرفة تاريخ تجديد عقد العمل لكل عامل علما ان التجديد يتم كل سنة "مثلا تاريخ العمل 2010/05/01 يكون التجديد 2016/05/01" مع ظهور msgbox تذكرني بقائمة العمال الذين تجدد عقود عملهم في ذات اليوم بعد السنة مع الغاء التنبيه في ذات اليوم بجانب العامل fon2016.rar
  20. شكرا على المداخلة و التوضيح أستاذ جعفر في اي حدث يوضع الكود حتى يظهر مع اكسس 2003
×
×
  • اضف...

Important Information