خروج البرنامج نهائيا عند الدخول الى هذا التقرير

وعليكم السلام :)

ممكن تشرح ايش اللي تريده من هذه المعادلة مثلاً:

Between CDate(Format(Format([DiscountStartDate],"yyyymm") & "01","#\/#\/#")) And CDate(Format(Format([DiscountEndDate],"yyyymm") & Day(DateSerial(Year([DiscountEndDate]),Month([DiscountEndDate])+1,0)),"#\/#\/#"))

والتي تنسيقها Date Format يجب ان يكون هو نفسه للمعادلة التالية:

CDate([Forms]![FrmDiscountReport]![txtMonth])

فالظاهر ان مثل هذه المعادلات معقدة للإستعلام ويجب تسهيلها :)

اكتب لي صيغتها النهائية (اعطني مثال لوسمحت للخانه قبل وبعد التنسيق) ، وانا سأحاول تبسيطها للإستعلام ، هي واخواتها في الاستعلامات الاخرى :)

جعفر

jjafferr كتب:

وعليكم السلام :)

 

ممكن تشرح ايش اللي تريده من هذه المعادلة مثلاً:

 

Between CDate(Format(Format([DiscountStartDate],"yyyymm") & "01","#\/#\/#")) And CDate(Format(Format([DiscountEndDate],"yyyymm") & Day(DateSerial(Year([DiscountEndDate]),Month([DiscountEndDate])+1,0)),"#\/#\/#"))

والتي تنسيقها Date Format يجب ان يكون هو نفسه للمعادلة التالية:

CDate([Forms]![FrmDiscountReport]![txtMonth])

هذه المعادلة تستخرج تاريخ وانا عملت المعادلة الأولى لكي تستخرج لي مبلغا ماليا

فالظاهر ان مثل هذه المعادلات معقدة للإستعلام ويجب تسهيلها :)

 

اكتب لي صيغتها النهائية (اعطني مثال لوسمحت للخانه قبل وبعد التنسيق) ، وانا سأحاول تبسيطها للإستعلام ، هي واخواتها في الاستعلامات الاخرى :)

 

جعفر

شكرا لك أخي جعفر وعيدك مبارك وكل عام وانت بألف خير

أخي لما تدخل على البرنامج ادخل على الإستعلام qryDiscountReport

حيث تلاحظ  مبلغ الإقتطاع الشهري للقرض الذي هو بدوره بين تاريخين تاريخ البداية وتاريخ النهاية

SSSS_Cridi: (SELECT SUM(DiscountPerMonth) FROM Cridi WHERE Cridi.EmployeeID = Employee.EmployeeID AND (CDATE([Forms]![FrmDiscountReport]![txtMonth])  BETWEEN CDATE(format(format(DiscountStartDate , "yyyyMM") &"01" , "####/##/##")) AND CDATE(format(format(DiscountEndDate , "yyyyMM") &Day(DateSerial(Year(DiscountEndDate), Month(DiscountEndDate) + 1, 0)) , "####/##/##") )) AND  DiscountStartDate IS NOT NULL AND  DiscountEndDate IS NOT NULL)

وأيضا تلاحظ  مبلغ الإقتطاع الشهري للكهرومنزلية الذي هي بدورها بين تاريخين تاريخ البداية وتاريخ النهاية

SSSS_ElectroMeng: (SELECT SUM(DiscountPerMonth) FROM ElectroMeng WHERE ElectroMeng.EmployeeID = Employee.EmployeeID AND (CDATE([Forms]![FrmDiscountReport]![txtMonth])  BETWEEN CDATE(format(format(t1 , "yyyyMM") &"01" , "####/##/##")) AND CDATE(format(format(n1 , "yyyyMM") &Day(DateSerial(Year(n1), Month(n1) + 1, 0)) , "####/##/##") )) AND  t1 IS NOT NULL AND  n1 IS NOT NULL)

وأيضا تلاحظ مبلغ الإقتطاع الشهري لحاجات أخرى التي هو بدورها بين تاريخين تاريخ البداية وتاريخ النهاية

SSSS_OtherDiscount: (SELECT Sum(TheDiscount) FROM OtherDiscount WHERE OtherDiscount.EmployeeID = Employee.EmployeeID AND MONTH(CDATE([Forms]![FrmDiscountReport]![txtMonth])) = MONTH(Discount_Date) AND YEAR(CDATE([Forms]![FrmDiscountReport]![txtMonth])) = YEAR (Discount_Date)   AND Discount_Date IS NOT NULL)

وأيضا تلاحظ  مبلغ الإقتطاع الشهري للأفرشة الذي هي بدورها بين تاريخين تاريخ البداية وتاريخ النهاية

SSSS_Africha: (SELECT SUM(DiscountPerMonth) FROM Africha WHERE Africha.EmployeeID = Employee.EmployeeID AND (CDATE([Forms]![FrmDiscountReport]![txtMonth])  BETWEEN CDATE(format(format(FrechStartDate , "yyyyMM") &"01" , "####/##/##")) AND CDATE(format(format(FrechEndDate , "yyyyMM") &Day(DateSerial(Year(FrechEndDate), Month(FrechEndDate) + 1, 0)) , "####/##/##") )) AND  FrechStartDate IS NOT NULL AND  FrechEndDate IS NOT NULL)

من بعد المجموع الكلي للإقتطاعات الأربعة

TheSum: Nz([SSSS_Cridi];0)+Nz([SSSS_ElectroMeng];0)+Nz([SSSS_OtherDiscount];0)+Nz([SSSS_Africha];0)

ارجو اني قد وفقت في تبسيط الفكرة

حاول انت بعد فهمك تبسيط الإستعلامات

وفقك الله

نعم دخلت اﻻستعﻻم وحصلت على الذي اخبرتني عنه، لكن سؤالي هو رجاء كتابة شكل التاريخ الذي عملت المعادلة ﻻجله.

جعفر

jjafferr كتب:

نعم دخلت اﻻستعﻻم وحصلت على الذي اخبرتني عنه، لكن سؤالي هو رجاء كتابة شكل التاريخ الذي عملت المعادلة ﻻجله.

جعفر

اخي لم افهم منك كتابة شكل التاريخ الرجاء الإتصال بي على السكايب taherlamichi

اعتذر منك ، فانا لا استخدم سكايب :(

وساشرح لك سؤالي:

1. الخانة في النموذج [Forms]![FrmDiscountReport]![txtMonth] بصيغة نص ، وقيمتها الان وطريقة عرضها:

August - 2013

2. الخانتان مثلا: [DiscountStartDate] و [DiscountEndDate] بصيغة تاريخ وقيمتها مثلا ، وطريقة عرضها: 

01-Jul-13

والسبب اني اقول مثلاً ، لان هناك خانات اخرى مشابهه :)

3. سؤالي هو: هل اذا كان الشهر - السنة في 1. يقع بين التاريخين في 2. فإنك تريد تحديده ، وتعمل عملياتك الحسابيه الاخرى على اساسه؟

اي: اذا كان التاريخ في النموذج: August - 2013

والتواريخ في [DiscountStartDate] و [DiscountEndDate] فيها شهور بين August - 2013 ، فإنك تريد تحديد هذه التواريخ ، وتعمل عملياتك الحسابيه الاخرى على اساسها؟

ارجو ان يكون سؤالي واضح الآن :)

والسبب في سؤالي هو ان طريقة تنسيقك ومعادلتك في الاستعلام معقدة ، ولا استطيع ان اعرف ماذا عملها بالضبط :(

جعفر

jjafferr كتب:

وساشرح لك سؤالي:

1. الخانة في النموذج [Forms]![FrmDiscountReport]![txtMonth] بصيغة نص ، وقيمتها الان وطريقة عرضها:

August - 2013

هذه للكل

2. الخانتان مثلا: [DiscountStartDate] و [DiscountEndDate] بصيغة تاريخ وقيمتها مثلا ، وطريقة عرضها: 

01-Jul-13

هذه خاصة بإقتطاعات أخرى

والسبب اني اقول مثلاً ، لان هناك خانات اخرى مشابهه :)

الخانات المتشابهة في الحقيقة ليست متشابهة مثلا  تاريخ بداية ونهاية  الخصم في القرض DiscountStartDateوDiscountEndDate

 تاريخ بداية الخصم في الأدوات الكهرومنزلية   t1 و  n1

.....................وهكذا

3. سؤالي هو: هل اذا كان الشهر - السنة في 1. يقع بين التاريخين في 2. فإنك تريد تحديده ، وتعمل عملياتك الحسابيه الاخرى على اساسه؟

نعم الشهر في الأولى يكون بين التاريخين المحددين

اي: اذا كان التاريخ في النموذج: August - 2013

والتواريخ في [DiscountStartDate] و [DiscountEndDate] فيها شهور بين August - 2013 ، فإنك تريد تحديد هذه التواريخ ، وتعمل عملياتك الحسابيه الاخرى على اساسها؟

ارجو ان يكون سؤالي واضح الآن :)

والسبب في سؤالي هو ان طريقة تنسيقك ومعادلتك في الاستعلام معقدة ، ولا استطيع ان اعرف ماذا عملها بالضبط :(

نعم حتى انا ريتها معقد فهل من تنسيقات أخرى غير معقدة وتعطي نفس النتيجة

 

جعفر

الإجابة عن الإسئلة باللون ألأحمر

اخي العزيز السلام عليكم

مع ان المعادلة السابقة لمقارنة التاريخ معقدة:

CDate([Forms!FrmDiscountReport!txtMonth])
Between CDate(Format(Format([DiscountStartDate],"yyyymm") & "01","#\/#\/#")) And CDate(Format(Format([DiscountEndDate],"yyyymm") & Day(DateSerial(Year([DiscountEndDate]),Month([DiscountEndDate])+1,0)),"#\/#\/#"))

واني استبدلتها بهذه المبسطة:

(([Forms]![FrmDiscountReport]![txtMonth]) Between [DiscountStartDate] And [DiscountEndDate])

إلا ان المشكلة لم تكن هنا :(

المشكلة كانت في مكانين في التقرير:

1. المجاميع Sum ، والتي استبدلت طريقتها بطريقة اخرى ،

2. الفلتر Filter لإختيار نوع الموظفين ، والذي اعتقد ان التقرير لم يمكنه القيام بالفلتر بسبب المجاميع في الاستعلام مسبقا ، وقد تغلبت على هذه الخطوة بعمل استعلام خاص لكل زر مع مراعاة عدم تغيير التقرير ، ولكني في الحدث عند فتح التقرير كنت ارسل الاستعلام المناسب له كـ Record Source :)

لم تكن المسأله سهله ، ولكن والحمدلله :)

جعفر

50.04082013.mdb.zip

الف شكرا لك اخي جعفر

وهو كذالك

ربي يبارك فيك

أخي فيه طلب أخر وعلى نفس النموذج

وهو جمع الإستعلامين qryTransfer وqryValues

في الإستعلام الآول qryTransfer

حياك الله :)

سؤالك التالي انت الوحيد الذي يمكنك حله :)

union query تجمع فيها اكثر من استعلام مع بعض ، والشرط في هذا الجمع ، ان تكون عدد الخانات في كل الاستعلامات متساوية :)

ولكن ، qryTransfer فيها 6 خانات ، بينما qryValues فيها 3 خانات ، لذا لا يمكن جمعها مع بعض :(

والسبب اني قلت انك الوحيد الذي يمكنك ان تحل هذا المعضلة ، وهي ان ترتب الخانات في qryValues بحديث انها تكون في نفس خانات/اعمدة qryTransfer ، والخانات التي لا علاقة لها بخانات/اعمدة qryTransfer ، فيمكنك ان تجعلها خانات قيمتها لاشي ، مثلاً:

a:""

وعندما تعمل 6 خانات ، عندها تقدر تدمج الاستعلامين بكلمة Union او Union All :)

جعفر

jjafferr كتب:

حياك الله :)

 

سؤالك التالي انت الوحيد الذي يمكنك حله :)

union query تجمع فيها اكثر من استعلام مع بعض ، والشرط في هذا الجمع ، ان تكون عدد الخانات في كل الاستعلامات متساوية :)

ولكن ، qryTransfer فيها 6 خانات ، بينما qryValues فيها 3 خانات ، لذا لا يمكن جمعها مع بعض :(

 

والسبب اني قلت انك الوحيد الذي يمكنك ان تحل هذا المعضلة ، وهي ان ترتب الخانات في qryValues بحديث انها تكون في نفس خانات/اعمدة qryTransfer ، والخانات التي لا علاقة لها بخانات/اعمدة qryTransfer ، فيمكنك ان تجعلها خانات قيمتها لاشي ، مثلاً:

a:""

 

وعندما تعمل 6 خانات ، عندها تقدر تدمج الاستعلامين بكلمة Union او Union All :)

 

جعفر

ممكن توضيح أكثر اخي

أو اعطيني مثال نتقيد به وخاصة عندما نكمل الخانات الغير موجود بـــ ,a:""

ساعدني علشان اساعدك :)

انا فهمي في المصطلحات الفرنسية = صفر :)

لذا اطلب منك ان تعمل في برنامج الاكسل مثلا ، تضع جميع الخانات التي في qryTransfer ، وتضع تحت كل واحدة منها الخانات من qryValues المطابقة لها ، مثل:

واترك الخانات الاخرى فارغة ، وانا سأساعدك في الباقي ان شاء الله تعالى :)

جعفر

اليك المطلوب بالإكسل

qryTransfer.xls

اخي الكريم :)

اعتقد باننا نتكلم عن شيئين مختلفين :(

انا كان فهمي من طلبك:

جمع الإستعلامين qryTransfer وqryValues

في الإستعلام الآول qryTransfer

هو ان نأخذ البيانات في qryValues ونضمها الى البيانات في qryTransfer ،

هكذا:

(انا غيرت مكان TheValue لانها ارقام ووضعتها تحت خانة Total لان الخانتين ارقام ، وكذلك شفت ان خانة التاريخ ما لها مكان صح ، فغيرت مكانها ايضا كما تلاحظ) 

وبعد ان ندمج الاستعلامين ، ستصبح النتيجة هكذا:

هذا فهمي لطلبك ، فهل هذا المطلوب ، وان لم يكن كذلك ، رجاء التوضيح :)

شكرا

جعفر

نعم اخي فهمك صحيح

هذا هو المطلوب

انا الي كنت فاكر شيء اخر

رجاء التعديل على المرفق في أول المشاركة

تقبل تحياتي أخي

تفضل اخي ، الاستعلامين مدموجين معاً :)

(SELECT Company.ID , Company.[إسم المؤسسة] , Company.[رقم حسابها البريدي] , Company.[مفتاح حسابها] , (SELECT SUM (Nz(mont20 , 0)) FROM Bill WHERE MONTH(CDate(Forms![FrmTransfer]![txtAwardMonth])) = MONTH (BillDate) AND YEAR(CDate(Forms![FrmTransfer]![txtAwardMonth])) = YEAR (BillDate)AND Company.ID = Bill.CompanyID) AS Total , -1 AS TheType FROM Company)

UNION

(SELECT Employee.ID ,[Nom et Prénom] ,[N° compt CCP] ,[Cle CCP] , (SELECT SUM( [TheValue] ) From qryValues WHERE MONTH(CDate(Forms![FrmTransfer]![txtAwardMonth])) = MONTH (TheDate) AND YEAR(CDate(Forms![FrmTransfer]![txtAwardMonth])) = YEAR (TheDate) AND Employee.employeeID = qryValues.EmployeeID) AS Total , +1 AS TheType From Employee)

UNION

(SELECT EmployeeID , "" AS a, "" AS b, "" AS c, Nz(mont1, 0) + Nz(mont2, 0) + Nz(mont3, 0)+ Nz(mont4, 0)+ Nz(mont5, 0)+ Nz(mont6, 0)+ Nz(mont7, 0)+ Nz(mont8, 0)+ Nz(mont9, 0)+ Nz(mont10, 0)+ Nz(mont11, 0)+ Nz(mont12, 0) AS TheValue , Menha_Date AS TheDate FROM Award)

UNION ALL

(SELECT EmployeeID , "" AS a, "" AS b, "" AS c, Nz(Cridi_Value , 0) AS TheValue, Cridi_Date AS TheDate FROM Cridi )

UNION ALL

(SELECT EmployeeID , "" AS a, "" AS b, "" AS c, (Nz(NesbaValue,0) + Nz(Mossa3dat,0) + Nz(Takrim , 0)) AS TheValue , Mosa3da_Date AS TheDate FROM Mosa3da )

UNION ALL (SELECT EmployeeID, "" AS a, "" AS b, "" AS c, Mscholaire AS TheValue , Scolaire_Date AS TheDate FROM Scolaire);

جعفر

شكرا اخي جعفر

فيه ملاحظتين

01- غير مقيدة بالشهرtxtAwardMonth

02- لما total يساوي صفر ارجو ان لايظهر إسمك المستفيد

السلام عليكم اخي :)

عذرا ، فانا دمجت الاستعلامين فقط حسب طلبك ، بما كانوا يملكون من حقول ومعادلات ، ولم اغير شئ فيها!!

فاذا كانت عندك ملاحظات عن كيفية عمل الاستعلامين ، فرجاء تعديلهم ، لاني وكما قلت لك سابقا ، مجرد اني دمجت الاستعلامين.

جعفر

أخي بالمرفق بالمشاركة رقم 8 المنجزة من طرفك

لو حبذا تعديل التقرير  rptDiscount كما في الصورة أدناه

نمحي كلمة الموظفين ونستبدلها بمربع نص فارغ

ملاحظة : إذا كان 'موظف = detach' يكتب الموظفين

إذا كان ' متعاقد كامل او متعاقد جزئي او عون نظافة = detach' يكتب المتعاقدين

إذا كان 'منتدب= detach' يكتب المنتدبين

هذا في مربع نص الصورة الفارغ

وشكرا

تفضل اخي :)

واعتذر عن التأخير :(

انا غيرت في طريقة عرض المسميات في التقرير ، بحيث جمعت الكلمات والمسميات مع بعض في نص واحد ،

بهذه الطريقة ، كلمات النص تتمدد وتنكمش حسب طول المسمى :)

التغييرات صارت في النموذج ، والتقرير.

كان لك سؤال/طلب في دمج الاستعلامات ، فهل تم اللازم ، ام انك بحاجة الى مساعدة؟

جعفر

50.04082013.mdb.zip

شكرا لك اخي جعفر وهو كذالك

انت مبدع حقا

ربي يبارك فيك ويجعلك ذخرا للمنتدى النير

اما بخصوص السؤال الأول بخصوص دمج إستعلامين

لا مازلت لم أجد حلا لحد الساعة

آمل ان اجده منك

التوضيح كما في الصورة

البرنامج عندك اخي ، وفيه الاستعلام اللي طلبت فيه دمج الاستعلامين ، والنتيجة تطلع مثل الصورة اعلاه ، لكن ليس بنفس الترتيب.

رجاء فتح الاستعلام ، اخذ صورة منه ، ثم ابدي ملاحظاتك لوسمحت :)

شكرا

جعفر

jjafferr كتب:

البرنامج عندك اخي ، وفيه الاستعلام اللي طلبت فيه دمج الاستعلامين ، والنتيجة تطلع مثل الصورة اعلاه ، لكن ليس بنفس الترتيب.

 

رجاء فتح الاستعلام ، اخذ صورة منه ، ثم ابدي ملاحظاتك لوسمحت :)

 

شكرا

 

جعفر

بارك الله بك اخي جعفر

اخي اني اقصد التعديل في الإستعلام qryValues وزيادة الإسم واللقب ورقم الحساب فيه

قبل دمجه بالإستعلام qryTransfer

ارجو ان وفقت في التوضيح

ان شاء الله غدا سانظر في البرنامج ، ولكن ما قصدك في كلمة بدون تكرار؟

واذا في تكرار ، ماذا تريد ان تفعل؟

شكرا

جعفر

jjafferr كتب:

ان شاء الله غدا سانظر في البرنامج ، ولكن ما قصدك في كلمة بدون تكرار؟

واذا في تكرار ، ماذا تريد ان تفعل؟

 

شكرا

 

جعفر

قصدي عدم تكرار الإسماء والألقاب

كل واحد يقابله رقم حسابه والمبلغ المستفيد به

اي كل شخص في سطر فقط

لا يتكرر بالأسفل