طاهر اوفيسنا

استاذي العزيز ابو خليل بقيت دار لقمان لحالها لم يظهر الرصيد المتبقي ياترى مالمشكلة ؟

هاهو المثال الذي طبقت عليه مااشرت به سابقا ولم يظهر الرصيد المتبقي الا لما نضغط عليه يظهر ومن بعد الدخول مرة ثانية يختفي حساب اجازة2016.zip

ماسر مافعلت استاذي العزيز حتى ظهر الرصيد المتبقي علما اني طبقت ماتفضلت به في نموذج اخر ولم يظهر لي الرصيد المتبقي وشكرا مسبقا

استاذي العزيز ... هي مربوطة بالتقرير اي التقرير ماذا يظهر فيه اسفله عند الباقي

شكرا لك استاذ على الفكرة يبدو انها فكرة ممتازة ولو انه عندما نخصص الشركط لا تظهر الأرقام في مكانها المخصص

عيدك مبارك وكل عام وانت بالف خير استاذي وحبيبي العزيز ابو خليل اوافقك الراي ممكن نرى البصمات مستني ردك تقبل تحياتي القلبية الخالصة

انتظر مساعدتكم يا أساتذة

اين المساعدة يا أصحاب الخبرة

شكرا استاذ الوزير لسة المعادلة لا تفي بالشرط المطلوب =IIf([نوعية الإجازة].[column](0) Between 4 And 12;[TotLoh];IIf(IsNull([TotLoh]);"";Nz([TotLoh];0)-Nz([conH];0))) المطلوب : عندما نخصص من 4 الى 12 في نوعية الإجازة لاتحسب في الطرح في باقي له ويبقى اخر باقي محتفظ به من غير الموجود في اجمالي له اتمنى اني وضحت المطلوب

ّ السلام عليكم اخواني رمضان كريم المطلوب مساعدة بخصوص حساب اجازة عندما تكون نوعية الإجازة من الرقم 4 الى الرقم 12 لا يتم الإقتطاع ويترك باقي الإجازة كما هو اي التعديل على هذه الدالة : =IIf([نوعية الإجازة] Between 4 And 12;[TotLoh];IIf(IsNull([TotLoh]);"";Nz([TotLoh];0)-Nz([conH];0))) والصورة توضح المطلوب وشكرا حساب اجازة بشرط.rar

كل عام وامة الحبيب المصطفى بالف خير اللهم تقبل صيامنا وقيامنا

شكرا اخي ابو خليل على المساهمة سؤالي : هل من الممكن ان تكون نمط الإجازات كالتالي : الرصيد السابق مدة الإجازات إجازة السنة الحالية "50" الباقي ملاحظة : الباقي = الرصيد السابق - مدة الإجازة + إجازة السنة الحالية "50"(الإجازة الحالية تدخل حيز التنفيذ من كل سنة ابتداء من شهر جوان الى غاية اخر ديسمبر تضاف الى الرصيد السابق ) مثلا : عندي الرصيد السابق 47 مدة الإجازة = 15 الباقي : 32 في شهر جوان تضاف 50 يوم يصبح الباقي : 82 يوم هو الرصيد الكامل للإجازات أمل ان اجد حلا بواسطة طريقة العرض نماذج مستمرة

وهو كذالك استاذي شكرا لك

صح استاذي العزيز ... جعفر

ليست المشكلة بالعربي او بالأنحليزية المطلوب : جمع كل مايكتب قي الملاحظات "Remarks" لكل موظف مثلا : سنة 2015 " خصم من الراتب لشهر 2015/4 "و "خصم من الراتب لشهر 2015/7 " للموظف رقم 3 تظهر في الملاحظات كمايلي في التقرير امام العامل رقم 3 "خصم من الراتب لشهر 4 و 7 /2015 "

قصدي ظهور ماكتب في جدول tbl_Loans وخاصة عند مربع النص Remarks

شكرا لك استاذي الكريم جعفر وفقك الله لما يحبه ويرضاه استاذي الكريم العمل ممتاز ولكن هل يمكن استبدال بما يكتب في 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)

أساتذة الكرام إذا صعب الأمر عليكم ممكن نجمعها بهذه الكيفية "خصم من الراتب لإشتراك شهر 2015/4 و خصم من الراتب لإشتراك شهر 2015/7 " أو "خصم من الراتب لإشتراك شهر 2015/4 و شهر 2015/7" أو "خصم من الراتب لإشتراك شهر 2015/4 و 2015/7"

السلام عليكم أخواني ممكن مساعدة بخصوص جمع ملاحظتين مثلا عند احتيار سنة الإشتراك 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 هل يوجد شيء اخر عدلت فيه اخر عدلت فيه