Taher DZ

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

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

أتمنى ان هذا مطلوبك ملاحظة ضفت لك إستعلام وبه هذا Expr1: Year(Date())-Year([BIR_DATE]) B60: DateAdd("yyyy";60;[BIR_DATE]) kri_db2.rar

لقد وجدت الفكرة في الوحدة النمطية أستاذ هل هذا صحيح ؟ Private Sub أمر8_Click() Dim rst As DAO.Recordset Dim lng3, lng4, lng5, lng2 As String Set rst = CurrentDb.OpenRecordset("QUp") On Error Resume Next rst.MoveFirst lng3 = rst.Fields(3) lng4 = rst.Fields(4) lng5 = rst.Fields(5) lng2 = rst.Fields(2) While rst.EOF = False rst.Edit rst.Fields(3) = lng3 rst.Fields(4) = lng4 rst.Fields(5) = lng5 rst.Fields(2) = lng2 rst.Update rst.MoveNext Wend rst.Close Set rst = Nothing DoCmd.SetWarnings False DoCmd.RunSQL "INSERT INTO OtherDiscount ( EmployeeID, Discount_Date, TheDiscount, Obsérvation ) " & vbCrLf & _ "SELECT QUp.EmployeeID, QUp.Discount_Date, QUp.TheDiscount, QUp.Obsérvation " & vbCrLf & _ "FROM QUp;" DoCmd.RunSQL "DELETE tmp.* FROM tmp" DoCmd.SetWarnings True Me.Requery End Sub

شكرا لك استاذ أبو خليل على الفكرة الرائعة نعم هو المطلوب ولكن فيه ملاحظة : أضفت في الإستعلام كما في الصورة فأصبحت في مربع نص ملاحظات تكتب "خصم ..................... لشهر .......2014 " إلا للسجل الأول فقط وبقية السجلات لا تكتب ماسر ذالك ؟

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

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

السلام عليكم إخواني أرجو مساعدة بخصوص تعميم توزيع المبلغ TheDiscount في النموذج لباقي السجلات اي لما اكتب المبلغ يدويا في السجل الأول يتم التوزيع آليا لكافة السجلات في النموذج الفرعي FrmOtherDiscount_sub مثلا في السطر الأول نكتب المبلغ 1000 ويظهر MsgBox"هل تريد تثبيت التاريخ " نعم او لا ثم MsgBox اخر"هل تريد كتابة الملاحظة " نعم او لا يكمل التوزيع على كافة السجلات آليــــــــا هذا بالنسبة للسطر الأول وكذالك للسطر الثاني والثالث . . . . . الخ حسب الصورة Discount.rar

اين انتم ياخبراء !!!!!!!!!!!!

السلام عليكم إخوني حدث لي مؤخرا مشكل بجهاز الحاسوب وهو عدم فتح ملفات ورد بتنسيق 2003 كما في الصورة المرفقة ارجو المساعدة وشكرا