طاهر اوفيسنا

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

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

شكرا لك أخي ابو خليل على كل المساعدات اول مرة في حياتي ارى تقريرا معقدا أخي ابو خليل كل التقارير تعمل صحيحة حسب تصفية إسم الحسابات إلا التقرير الذي يتضمن تصفية حسب 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