طاهر اوفيسنا

منتظر مساعدتكم صياغة هذه الدوال بالأكسس للعلم ان $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

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

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

شكرا على النصيحة أخي ابو خليل وبارك الله فيك نعم تمت التصفية ولكن فكرة الصفحة البيضاء بين التقريرين هل من حل لها في التقرير المدمج rpt_Transfer

أخي ابوخليل حياك الله ممكن أضافة كود التصفية الذي قمت بوضعه انفا في إحدى الإستعلامات FROM Employee WHERE (((Employee.[Name COMPTE])=forms!FrmTransfer_Trésorie!NB)); على هذا الإستعلام الموحد qryTransfer_NEW SELECT Employee.ID, Employee.[Nom et Prénom], Employee.[Nom et Prénom_latin], Employee.[Name COMPTE], Employee.[N° COMPTE], Employee.[Agence],Employee.[Cité], +1 AS TheType, Sum(qryValues.TheValue) AS Total, Add_Observations([ID]) AS Obsérvation FROM Employee INNER JOIN qryValues ON Employee.EmployeeID = qryValues.EmployeeID WHERE (((Month([TheDate]))=Month(CDate([Forms]![FrmTransfer_Trésorie]![txtMonth]))) AND ((Year([TheDate]))=Year(CDate([Forms]![FrmTransfer_Trésorie]![txtMonth])))) GROUP BY Employee.ID, Employee.[Nom et Prénom], Employee.[Nom et Prénom_latin], Employee.[Name COMPTE], Employee.[N° COMPTE],Employee.[Agence],Employee.[Cité], +1, Add_Observations([ID]) UNION ALL SELECT Company.ID, Company.[N_fournisseur], Company.[N_fournisseur_latin], Company.[Name COMPTE], Company.[N° COMPTE], Company.[Agence],Company.[Cité], -1 AS TheType, qry_Bill.Total, qry_Bill.OBS FROM qry_Bill INNER JOIN Company ON qry_Bill.CompanyID = Company.ID; لأني صراحة حاولت ومافلحت ابدا دمج تقريرين بتصفية.rar

لم يعمل الكود أستاذ ابو خليل في حدث عند ' عدم وجود بيانات ' في التقرير rpt_Transfer

بورك فيك استاذنا هو المطلوب ولك الأجر إن شاء الله اكمل تعبك معي شوية عند فتح التقرير عند عدم وجود بيانات وضعت هذا الكود فلم أفلح Private Sub Report_NoData(Cancel As Integer) On Error GoTo Report_NoData_Err MsgBox " معذرة اخي الكريم .... لايوجد تحويلات مالية خلال هذا الشهر ", vbCritical, "تنبيه" Cancel = True Report_NoData_Exit: Exit Sub Report_NoData_Err: MsgBox Err.Number & " - " & Err.Description Resume Report_NoData_Exit 'If DCount("[]", "") = 0 Then 'End If End Sub

شكرا لك استاذ أبوخليل على المساعدة ولكن لم اعرف اين تم التعديل هذا من جهة ومن جهة أخرى لم تتم التصفية يبدو ان التقرير rpt_Transfer يفتح على تصفية إسم الحساب TRESOR فقط اين تصفية الحسابات الأخرى والصورة توضح ماهو المطلوب

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

اخي ابوخليل حياك الله تقبل الله صيامكم وقيامك بمزيدا من الأجر والثواب هاهو الحبل الذي يوصلك لمطلبي وهو : ظهور ماهو موجود بالملاحظات لكل الفورمات في الإستعلام qryTransfer مثلا ندخل على الفورم FrmMenah نجد ان الموظف عبد الله لديه ملاحظات وهي 'منحة ولادة' والموظف محمد لمين لديه ملاحظات مكتوب فيها 'منحة الزواج' ........ وهكدا ثم ندخل على الفورم الثاني وهو FrmCridi نجد ان الموظف عبد الله لديه ملاحظات وهي 'قرض مالي ' المطلوب : ظهور الملاحظات بالإستعلام qryTransfer كما في الصورة اتمنى اني وفقت في طرح مشكلتي وفهمك لها اخي ابو خليل

تم التصحيح وتم الرفع من جديد 20140716.rar

شكرا اخي أبو خليل نعم غير موجود في هذه ولكن موجود في جداول أخرى مثل جدول CRIDI و MENA7 وغيرهم ولكن هاذين الجدولين مربوطات بجداول اخرى وهذا الإستعلام qryTransfer الذي احبذ التعديل عليه هو مستقطب من الإستعلام الموحد qryvalues

السلام عليكم إخواني طلب مساعدة بالفورمات التالية :FrmMenah و FrmCridi وFrmMossa3da و غيرها بها حقول تسمى ملاحظات (Obsérvation) مكتوب بها "معلومات مثلا " أريد إظهارها في الإستعلام الموحد qryTransfer ملاحظة : انظر مثلا الفورم FrmMenah وادخل على العامل 'عبد الله' لديه منحة '3000.00' وملاحظة مكتوب بها ' منحة ولادة ' السؤال : لماذا مبلغ المنحة يظهر في الإستعلام الموحد والملاحظة لا تظهر ؟ الا يبدو ان هنا نقص في تركيبة الإستعلام ! على فكرة عملت تعديل بنفسي للإستعلام وكانت النتيجة الي عدلت من أجلها الملاحظة فارغة من المعلومات كما في الصورة (SELECT Company.ID , Company.[N_fournisseur] , Company.[Name COMPTE] , Company.[N° COMPTE] ,Company.[Obsérvation] , (SELECT SUM (Nz(mont20 , 0)) FROM Bill WHERE MONTH(CDate(Forms![FrmTransfer_Trésorie]![txtMonth])) = MONTH (BillDate) AND YEAR(CDate(Forms![FrmTransfer_Trésorie]![txtMonth])) = YEAR (BillDate)AND Company.ID = Bill.CompanyID) AS Total , -1 AS TheType FROM Company) UNION (SELECT Employee.ID ,[Nom et Prénom] ,[Name COMPTE] ,[N° COMPTE] ,[Obsérvation] , (SELECT SUM( [TheValue] ) From qryValues WHERE MONTH(CDate(Forms![FrmTransfer_Trésorie]![txtMonth])) = MONTH (TheDate) AND YEAR(CDate(Forms![FrmTransfer_Trésorie]![txtMonth])) = YEAR (TheDate) AND Employee.employeeID = qryValues.EmployeeID) AS Total , +1 AS TheType From Employee); 20140707.rar

شكرا اخي علي وهو كذالك دمت بالف خير

السلام عليكم إخواني رمضان كريم رجاءا مساعدة بخصوص جمع مبالغ التقرير rtpOtherDiscount وعدم تكرار الأسماء مثلا : بشيـــــــــــــر 2000.00 العروســــي 2000.00 حشيفــــــــة 2000.00 وهكذا Discount.rar

وهو كذالك استاذة شكرا لكم

koole.rar هو ده بالتوفيق ,,,, وتصميمك جميل جدا جدا جدا شكرا لك أخي ياريت يكون على أكسس 2003

السلام عليكم إخواني ارجو منكم مساعدة في ظهور المجموع الكلي عندما يكون ثمن القمامة يساوي 0.00 و عند السنة الحالية تساوي "نعم" في موضوع الإيراد "مياه 2014" في الكود التالي : Rar10:IIf([rar]=-1;[Mont_Eau]*10/100;IIf([Mont_Eau]>0;[Mont_Eau]=-1;IIf([Anneé]=-1;IIf([Mont_Eau]>0;0))))+IIf([rar]=-1;[Mont_Gom]*10/100;IIf([Mont_Gom]>0;[Mont_Gom]=-1;IIf([Anneé]=-1;IIf([Mont_Gom]>0;0)))) والمطلوب التعديل على الخطأ كما في الصورة و الصحيح كما يلي : المجموع الكلي.rar