Taher DZ

بارك الله فيك استاذنا على الفكرة ولو أني ماوصلت الى حل نهائي اضفت للمرفق نموذج f1 لكي يتم إضافة الإجازات لكل موظف ومن ثمة وجدت الصعوبة 2.1.rar

شكرا لك أخي ابو خليل 1- مقدار الإجازة السنوية معلوم عندنا حقا وهو 50 يوم ولكن يوجد موظفين لديهم مخلفات إجازات سابقة اي إجازات سنوات سابقة لم يتحصل عليها طبقا لمركز منصبه وإحتياج الإداره له 2 - مفهوم 3- مشكلة ألإستعلام وهو الذي وقع به خطأ مافهمت كيف يتم التعديل عليه حسب المرفق وهو الإستعلامين "سنوية" او "رصيد السنوية" آمل أن يتم التعديل على مثالي وبارك الله فيكم

استاذنا الجليل أبو خليل في انتظار مرورك بالموضوع ومساعدتك

السلام عليكم إخواني ممكن مساعدة بخصوص حساب باقي الإجازات وترصيده الى سنة جديدة مثلا موظف لديه إجازة سنوية لسنة 2014 مقدرة ب 50 يوم وله باقي إجازات سنوات أخرى مقدر ب 70 يوم إستهلك منها 30 يوم باقي له 90 يوم هذه 90 يوم ترصد الى السنة القادمة 2015 مثلا مع العلم ان كل عامل إذا بلغ سنوات العطل تحسب له العطلة 50 إبتداء من شهر جويلية 2013 إلى غاية شهر جوان 2014 ومدة الإجازة 50 يوم ارجو المساعدة اجازة.rar

اخي الكريم يوجد برنامج على اكسس 2003 اتمنى ان يكون فيه طلبك AKSAT.rar

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

طلب مساعدة بارك الله فيكم

هل من معين ؟ بارك الله فيك

روووووعة أخي سلمت يداك

السلام عليكم إخواني 40 مشاهدا ولا أحد فهم مشكلتي او وضع بصماته وطلب مني توضيح أكثر او حاول مساعدتي

السلام عليكم إخواني عندي مشكل بخصوص ظهور ماكتب بالملاحظات عبر الجداول التالية : Bill و Cridi و Mena7 و Mosa3da و Scolaire في التقرير rptTransfer لقد عمل لي أحد الإخوة جزاه الله خيرا دالة بالوحدة النمطية تسمى fAdd_Observations وهي بدورها تجمع كل الملاحظات بعلامة الجمع "+" ولكن هذه الدالة لم توفق في العمل الصحيح الذي اريده حسب الصورة مع إعتقادي ان المشكل يكمن في ربط العلاقات وخاصة: Bill مرتبطة مع Company و Cridi و Mena7 و Mosa3da و Scolaire مرتبطات مع Employee ارجو المساعدة بارك الله فيكم Obsérvation2014-09-28.rar

السلام عليكم ورحمة الله تعالى وبركاته لقد إتبعت خطوات برنامج أخر شبيه بقاعدتي في ظهور الملاحظات بالتقرير مع جمع القيم او الأسماء ولكن وقعت بخطأ كما هو مبين بالصورة أدناه وبعد الضغط تكرارا على 'موافق' يفتح التقرير على صحة جمع المبالغ ولكن بدون ظهور الملاحظات او جمعها مثلا كريمو 1 لديه 10.000.00 + 1250.00 تساوي 11.250.00 --------- هذا صحيح ولكن الملاحظات ' قرض مالي + العمليات الجراحية ' لا تظهر آمل أن اجد حلا لهذه المشكلة تقبلو تحياتي الخالصة Obsérvation2014_2014-09-23.rar

المساعدة بارك الله فيكم

انظر المرفق وجرب حذف سجل من السجلات 2014.rar

إنسخ هذا في مربع نص الترقيم التلقائي طبعا إذا كان مربع النص التلقائي اسمه ID =RcNum([Form];"ID";[ID]) ثم انسخ الكود هذا في الوحدة النمطية Function RcNum(frm As Form, fldName As String, mID As Variant) As Variant Dim RstClone As Recordset Dim Fld As Field Dim I As Long RcNum = Null If IsNull(mID) Then Exit Function Set RstClone = frm.RecordsetClone If RstClone.RecordCount = 0 Then Exit Function Set Fld = RstClone.Fields(fldName) With RstClone .MoveFirst Do Until .EOF I = I + 1 If Fld = mID Then Exit Do .MoveNext Loop End With RstClone.Close RcNum = I End Function

شكرا استاذنا على الفكرة

للرفع

منتظر مساعدتكم صياغة هذه الدوال بالأكسس للعلم ان $N$6 و $B$5 ....... الخ هي تحديد حقول من... الى.... في الإكسل و AncienBareme بالأكسل يوازيه جدول BaremENC بالأكسس و Grades بالأكسل يوازيه Grades بالأكسس و Bareme 2008 في الإكسل يوازيه Baremes بالأكسس وغيرهم =(INDEX(Baremes!$B$5:$R$21;F4;2))*45 =(INDEX(Baremes!$B$5:$R$21;IF($D$7=1;$F$7;$F$4);$F$5+3))*45 =IF($F$4>=9;($N$4+$N$5)*$N$7/100;0) =IF($H$10=1;($N$17+$N$18)*10/100;0) =IF($N$7>0;INDEX('95-28 et 95-300'!$E$2:$E$224;$E$9);0) =(VLOOKUP($N$3;AncienBareme;12))*INDEX(Divers!$K$2:$K$11;$H$9;1)/100 =(K3+K4)*(INDEX(Grades!$F$3:$F$74;$D$2;1))/100 =($K$3+$K$4)*(INDEX(Grades!$G$3:$G$74;$D$2;1))/100 =IF($D$4=2;0;IF($D$6=1;0;IF($H$6=0;5.5;800))) =((ROUND(K23/10;0))*10)*9/100 =(IF(N23>120000;29500+(N23-120000)*0.35;IF(N23>30000;2500+(N23-30000)*0.3;IF(N23>28750;2250+(N23-28750)*0.2;IF(N23>22500;1500+(N23-22500)*0.12;IF(N23>15000;(N23-15000)*0.2;0)))))) =IF(OR(N7=35;N7=45;N7=80;N7=90);1;0) =(((VLOOKUP(IF($D$7=1;$N$6;$N$3);AncienBareme;13))*(VLOOKUP(IF($D$7=1;$N$6;$N$3);AncienBareme;(IF($F$5>10;10;$F$5))+14)))) =IF(AND($F$4>=9;$F$4<=11);INDEX('95-28 et 95-300'!$D$2:$D$224;$E$9;1);0) =INDEX(Divers!$K$2:$K$11;$H$9;1) =VALUE((LEFT($H$7;LEN($H$7)-2)&RIGHT($H$7))) =(((VLOOKUP(IF($D$7=1;$N$6;$N$3);AncienBareme;13))*(VLOOKUP(IF($D$7=1;$N$6;$N$3);AncienBareme;(IF($F$5>10;10;$F$5))+14)))) =VALUE((LEFT($F$6;LEN($F$6)-2)&RIGHT($F$6))) =((ROUND(K23/10;0))*10)*9/100

رووعة استاذنا ابوخليل ما شاء الله عليك

أخي علي لقد غيرت فكرة الدوال بالإكسل التي كنت طلبت المساعدة الى دوال أخرى بالمرفق بالإكسل Paie_Personnels والتي هي يبدو سهلة وكتابتها في الفورم Paie في الأكسس أرجو المساعدة منك او من ألاستاذ ابو خليل Table.rar

للأسف اخي علي لم تتم النتيجة مانعرف وين المشكلة

اخي علي المثال الذي ارفقته معقد ولما افتحه في وضع التصميم لكي انسخ صيغة الدالة يخرج الأكسس نهائيا رجاءا كتابة هذين الدالتين هنا بدون المثال على فكرة مربعات النص هي تلك الأسماء الموضوعة في الأمثلة بالأكسل نفسها بألأكسس

وهذه الدالة اخي علي =[AH1]-[AL1]-[AI1]-Value(Right(Text([AH1]-[AL1]-[AI1];"0,00");4)) غيرتها ولكن لم تعطي نتيجة والنتيجة كانت خطا في الصيغة "#Name?" =[AH1]-[AL1]-[AI1]-Value(Right(Format([AH1]-[AL1]-[AI1];"0,00");4))

شكرا لك اخي المثال لم يعمل يبدو انه به مشكل ولكن احبذ التصحيح لكل الدوال فقط لا داعي لمثال وشكرا

السلام عليكم إخواني لديا مجموعة من الدوال مكتوبة بالإكسل إريد كتابتها بالأكسس فكيف يتم تعديلها =IIF(OR(D1="INGENIEUR/ETAT";D1="ADMINISTRATEUR";D1="CONSEILLER/TECH");ROUND((BU1+BV1)*0,3;2);0) =VALUE(RIGHT(TEXT(AH1;"0,00");4)) =IIf([CF1]>=5;[AH1]-[CF1]+10;[AH1]-[CF1]) =IIf([CH1]<30010;(1,4*([CH1]-16660)/10)+932,4;[CN1]) =[AH1]-[AL1]-[AI1]-Value(Right(Text([AH1]-[AL1]-[AI1];"0,00");4)) =IIf([CH1]<16670;(2*([CH1]-15010)/10)+602;[CM1]) =((30-[BG1])/30)*(IIF([AX1]>120000;29500+([AX1]-120000)*0,35;IIF([AX1]>30000;2500+([AX1]-30000)*0,3;IIF([AX1]>28750;2250+([AX1]-28750)*0,2;IIF([AX1]>22500;1500+([AX1]-22500)*0,12;IIF([AX1]>15000;([AX1]-15000)*0,2;0)))))) =(Int((([AH1]-[AL1]-[AE1]-[AD1])-(([AH1]-[AL1]-[AE1]-[AD1])-Int([AH1]-[AL1]-[AE1]-[AD1])))/10))*10