ظهور ماكتب بالملاحظات بالتقرير VIREMENT_CCP

للرفع

اخي كريمو :)

1. Obsérvation غير موجود في النموذج FrmMenah ، وانما موجود في النموذج الفرعي FrmMenah_Sub ،

2. النموذج الفرعي FrmMenah_Sub يأخذ معلوماته من الجدول Mena7 ،

3. الإستعلام الموحد qryTransfer ليس للجدول Mena7 !

4. الإستعلام الموحد qryTransfer يأخذ معلوماته من الجدولين Company و Employee فقط ، وليس من الجداول التي تتعامل معها النماذج التي ذكرتها!!

جعفر

jjafferr كتب:

اخي كريمو :)

 

1. Obsérvation غير موجود في النموذج FrmMenah ، وانما موجود في النموذج الفرعي FrmMenah_Sub ،

2. النموذج الفرعي FrmMenah_Sub يأخذ معلوماته من الجدول Mena7 ،

3. الإستعلام الموحد qryTransfer ليس للجدول Mena7 !

4. الإستعلام الموحد qryTransfer يأخذ معلوماته من الجدولين Company و Employee فقط ، وليس من الجداول التي تتعامل معها النماذج التي ذكرتها!!

 

جعفر

شكر أخي جعفر على الإهتمام

دائما سباق للمساعدة بورك فيك وفي وقتك الثمين الذي تمنحه لمساعدة إخوانك الذين هم في أمس الحالة للمساعدة في مشاكلهم البرامجية

1.Obsérvation غير موجود في النموذج FrmMenah (ولكنه موجود بالجدول Mena7)

3. الإستعلام الموحد qryTransfer ليس للجدول Mena7 !(ولكنه توحيد بين الجداول 'Cridi و ElectroMeng و Mena7 و Mosa3da و غيرهم '  

4. الإستعلام الموحد qryTransfer يأخذ معلوماته من الجدولين Company و Employee فقط ،ولكن يأخذ القيم من نفس الجداول التي أشرت اليها بالأعلى في الإستعلام qryValues الذي يؤخذ منه الإستعلام 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);

اخي كريمو :)

هذا كل ما استطعت عمله ، فارجو ان يكون طلبك ، لأن الاستعلامات عندك معقدة ومن الصعب فك شفرتها :)

الاستعلام الجديد هو qryTransfer_New ،

وكما ترى من الصورة ادناه ، فلقد وضعت لك اسهم حمراء على الاستعلامات الجديدة التي عملتها ،

وفي الواقع هذه الاستعلامات هي عملية فك qryTranfer الى مكوناتها (استعلاماتها) ، ثم ربطها مرة اخرى عن طريق استعلام عادي يمكن تغييره ببساطة :) ،

في الوهلة الاولى يترائى لك ان النتائج مختلفة ، ولكن في واقع الامر النتائج هي نفسها ، ولكن بعد ازالة المجاميع الفاضية (وحاولت ان اعيدها ولكني لم استطع :( ).

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

جعفر

202.20140707.mdb.zip

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

الله مايحرمنا من مساعدتك وعلمك الذي فضلك الله به

اعرف أني أثقلت كاهلك

ربي يبارك فيك

صبرا معنا قليلا بمناسبة هذا الشهر الفضيل

العملية تقريبا صحيحة

ولكن ينقصها شيئا في حالات التكرار

مثلا

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

كما في الصورة

حياك الله اخي كريمو :)

انا كنت اعرف انك راح ترجع لي لهذه النقطة :) ، ولكن الوصول لهذه النقطة استنفذ وقتي البارحة :(

الان يمكنني ان اقول:

الطريقة الاسهل لعمل اللي تريده هو:

1. عمل وحدة نمطية ، ترسل لها رقم الموظف ، وبه تعمل Dlookup للحقل Obsérvation لكل جدول على حدة ،

2. تدمج نتائج هذه الجداول (مثل ما تريدني ان افعل) ، وترسلها مرة اخرى للاستعلام :)

وينتهي الامر :)

3. تستطيع عمل هذا حتى على استعلامك السابق :)

ولكن لدي سؤال: عندما يكون عندك اكثر من معلومة في Obsérvation في اكثر من جدول ، فكيف ستدمجها ، يعني اكتب لي النص بالضبط :)

طبعا انت تستطيع القيام بهذه المهمة :)

جعفر

jjafferr كتب:

حياك الله اخي كريمو :)

 

انا كنت اعرف انك راح ترجع لي لهذه النقطة :) ، ولكن الوصول لهذه النقطة استنفذ وقتي البارحة :(

 

الان يمكنني ان اقول:

الطريقة الاسهل لعمل اللي تريده هو:

1. عمل وحدة نمطية ، ترسل لها رقم الموظف ، وبه تعمل Dlookup للحقل Obsérvation لكل جدول على حدة ،

2. تدمج نتائج هذه الجداول (مثل ما تريدني ان افعل) ، وترسلها مرة اخرى للاستعلام :)

وينتهي الامر :)

3. تستطيع عمل هذا حتى على استعلامك السابق :)

 

ولكن لدي سؤال: عندما يكون عندك اكثر من معلومة في Obsérvation في اكثر من جدول ، فكيف ستدمجها ، يعني اكتب لي النص بالضبط :)

طبعا انت تستطيع القيام بهذه المهمة :)

 

جعفر

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

وكل سنة وانت بالف خير يارب

أسفين والله على إهتمامك البليغ بموضوعي

عَنْ أَبِي هُرَيْرَةَ ، قَالَ : قَالَ رَسُولُ اللَّهِ صَلَّى اللَّهُ عَلَيْهِ وَسَلَّمَ : " مَنْ سَتَرَ أَخَاهُ الْمُسْلِمَ ، سَتَرَهُ اللَّهُ يَوْمَ الْقِيَامَةِ ، وَمَنْ نَفَّسَ عَنْ أَخِيهِ كُرْبَةً مِنْ كُرَبِ الدُّنْيَا ، نَفَّسَ اللَّهُ عَنْهُ كُرْبَةً مِنْ كُرَبِ يَوْمِ الْقِيَامَةِ ، وَإِنَّ اللَّهَ فِي عَوْنِ الْعَبْدِ مَادَامَ الْعَبْدُ فِي عَوْنِ أَخِيهِ " .

لو كنت افقه جيدا الإستعلامات الموحدة لما طرحت معضلتي بالمنتدى

هذا من جهة

ومن جهة أخرى عندما يكون عندك اكثر من معلومة في Obsérvation في اكثر من جدول ، فكيف ستدمجها ، يعني اكتب لي النص بالضبط

النص مثلا : منحة ولادة + منحة ختان + قرض مالي + ارجاع مبلغ + مساعدة طبية ..... الخ

ليس بالضرورة تكون دائما على هذا النحو يمكن زوج او ثلاثة (نادرة ) ومعظمها واحدة ولكن المبرمج يؤخذ كل الإحتياطات

تأمر :)

عطني شوية وقت لوسمحت واشوف لك ان شاء الله :)

وعلى فكرة ، انا ما راح استعمل استعلام دمج ، وانما استعلام عادي ، ووحدة نمطية :)

جعفر

تفضل :)

1. الاستعلام ، ومنه ننادي الوحدة النمطية اللي فيها كل الشغل:

2. جزء من الوحدة النمطية ، وعملتها بالطريقة المطولة ، بس علشان اجمع جميع البيانات ،

3. والنتيجة في الاستعلام ،

4. وفي التقرير ،

جعفر

202.20140707.mdb.zip

هو المطلوب

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

تقبل الله صيامك وقيامك

شكرا لك

شكرا على منح ساعة او سويعات من وقتك الثمين من اجل مساعدتي

والآن لوضع أخر لمسات

اريد معرفة هل مازلنا نتعامل مع هذه الإستعلامات بعد التعديل الأخير ام لا

ام من الممكن حذفها

qry_1_Comp_Bill 

qry_1_Emp_qryValues

qry_1_Emp_qryValues_OLD

qry_Bill

qryTransfer_NEW1

واخيرا اطلب الله عز وجل ان يغفر لك ويكرمك بجنة الفردوس نزلا مع الصديقين والشهداء والأبرار وحسن أولئك رفيقا

حياك الله اخي كريمو ، ولك ولمن أحببت مثل ما دعوت لي إن شاء الله :)

انا لست من محبي الاستعلام الموحد ، لانه معقد ، ويعقد الشخص اللي يشتغل فيه ، وخصوصا اذا اراد التعديل عليه :(

لهذا ، انا استمريت في العمل على استعلاماتي (والتي هي عبارة عن تفكيك جزئي للاستعلام الموحد qryTransfer) ،

لذلك الاستعلامات التالية البرنامج محتاج لها:

جعفر

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

نعم هي معقدة بالطبع وخاصة للمبتدئيين

مشكور 

استاذ جعفر حياك الله

وقعت بمشكلة وهي عندما كثر عدد العاملين وبلغ عدد 1028 عامل أصبح qryTransfer_NEW  لا يكتب الملاحظات التي عولجت سابقا من طرفك

مالمشكلة ياترى

هلا والله بأخي كريمو :)

المفروض ان البرنامج لا يتوقف عند عدد معين من السجلات ، لذا

لو سمحت ترفق لي البيانات علشان نرى في اي جدول المشكلة :)

جعفر

اخي واستاذي جعفر

السلام عليكم ورحمة الله تعالى وبركاته

اخي واستاذي جعفر

السلام عليكم ورحمة الله تعالى وبركاته

لقد إتبعت كل الخطوات التي أعنتني بها سابقا في ظهور الملاحظات بالتقرير مع جمع القيم او الأسماء

ولكن وقعت بخطأ كما هو مبين بالصورة أدناه

وبعد الضغط تكرارا على 'موافق' يفتح التقرير على صحة جمع المبالغ ولكن بدون ظهور الملاحظات او جمعها 

مثلا كريمو 1 لديه 10.000.00 + 1250.00 تساوي 11.250.00 --------- هذا صحيح

ولكن الملاحظات ' قرض مالي + العمليات الجراحية ' لا تظهر 

آمل أن اجد حلا لهذه المشكلة

تقبل تحياتي الخالصة

 Obsérvation2014_2014-09-23.rar

ارجو المساعدة بالمطلوب أعلاه

Obsérvation2014_2014-09-28.rar

منتظر مساعدتكم

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

في الوحدة النمطية fAdd_Observations ،

غير السطر التالي:

If Err.Number = 3021 Then

الى

If Err.Number = 3021 Or Err.Number = 3061 Then

جعفر

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

نعم وهو كذالك قضي على الميساج

ولكن بقي مشكل لازلت اعاني منه منذ تعديلك اول مرة على برنامجي ولكن تفطنت اليه مؤخرا

وهو عدم ظهور ملاحظات الممون في الفورم FrmCompany في التقرير 

وحسب رأي يوجد اختلاط بين ارقام الموظفين بارقام الممونين اي CompanyID مختلطة ب EmployeeID

حسب النموذج السالف الذكر اريد التصحيح حسب الصورة التالية

امل ان اجد حلا سريعا لهذه المشكلة على هذا النموذج

تقبل تحياتي اخي العزيز جعفر

واسف اني اخذت من وقتك الكثير

اخي كريمو :)

حاولت ان انظر في البرنامج ، ولكني وللأسف لم اتوصل الى شئ :(

رجاء توضيح المطلوب ، وتوجيهي الى مكان المشكلة ، واقتراحك للحل :)

واعطني كم وفير من الامثلة من البرنامج ، وكيف تريده ان يكون :) ، فالصورة التي ارفقتها في مشاركتك السابقة لم توجهني الى اي اتجاه :(

فكك المكونات ، واشتغل عليها ، ثم نستطيع ان نجمعها بعد حصول المطلوب :)

جعفر

jjafferr كتب:

اخي كريمو :)

 

حاولت ان انظر في البرنامج ، ولكني وللأسف لم اتوصل الى شئ :(

رجاء توضيح المطلوب ، وتوجيهي الى مكان المشكلة ، واقتراحك للحل :)

واعطني كم وفير من الامثلة من البرنامج ، وكيف تريده ان يكون :) ، فالصورة التي ارفقتها في مشاركتك السابقة لم توجهني الى اي اتجاه :(

 

فكك المكونات ، واشتغل عليها ، ثم نستطيع ان نجمعها بعد حصول المطلوب :)

 

 

جعفر

اخي جعفر  :)

المطلوب شيء بسيط ولكن وصول الفكرة هي الأصعب

مطلوبي هو ظهور ماكتب بالملاحظات في الفورمات التالية حسب الشهر  :

FrmCompany وبه نموذج فرعي FrmBillsub هذا ألأخبر به مربعين نص Bill_Date و Obsérvation

FrmCridi وبه نموذج فرعي FrmCridi_sub هذا ألأخبر به مربعين نص Cridi_Date و Obsérvation

FrmMenah وبه نموذج فرعي FrmMenah_sub هذا ألأخبر به مربعين نص Menha_Date و Obsérvation

FrmMossa3da وبه نموذج فرعي FrmMosa3da_sub هذا ألأخبر به مربعين نص Mosa3da_Date و Obsérvation

FrmScholaire وبه نموذج فرعي FrmScolaire_sub هذا ألأخبر به مربعين نص Scolaire_Date و Obsérvation

يعني ظهور في التقرير ماتمت كتابته في Obsérvation حسب شهر الإستفادات 

( Bill_Date و Cridi_Date و Menha_Date و Mosa3da_Date و Scolaire_Date )

ملاحظة : اذا كان الموظف له عدة إستفادات تظهر في الملاحظات بينهما علامة (+)

اما الممون فلا تكون الا تسديد فاتورة  

سؤالي : ليش المبالغ المالية تتحول كلها صحيحة ام الملاحظات فلا 

اخي كريمو ،

في مشاركتك رقم 17 كانت لديك هذه المشكلة:

كريمو2 كتب:

 

اخي واستاذي جعفر

السلام عليكم ورحمة الله تعالى وبركاته

لقد إتبعت كل الخطوات التي أعنتني بها سابقا في ظهور الملاحظات بالتقرير مع جمع القيم او الأسماء

ولكن وقعت بخطأ كما هو مبين بالصورة أدناه

وبعد الضغط تكرارا على 'موافق' يفتح التقرير على صحة جمع المبالغ ولكن بدون ظهور الملاحظات او جمعها 

مثلا كريمو 1 لديه 10.000.00 + 1250.00 تساوي 11.250.00 --------- هذا صحيح

ولكن الملاحظات ' قرض مالي + العمليات الجراحية ' لا تظهر 

 

كريمو.JPG

 

آمل أن اجد حلا لهذه المشكلة

تقبل تحياتي الخالصة

 Obsérvation2014_2014-09-23.rar

 

ومع اني اعطيتك الحل لإخفاء اشعارات الخطأ ، إلا اني كنت اتسائل عن كيفية حصول الخطأ ، واليوم بحثت ورايت مكان الخطأ !!

هل غيرت في الكود في fAdd_Observations ، ام غيرت في الجدول Company ؟؟

الكود يقول بأن هناك حقل تاريخ في الجدول Company بإسم Bill_Date ، ولأنه لم يجده ، صار يعطي الخطأ !!

'4
Company_Check:

mySQL = "SELECT *"
mySQL = mySQL & " FROM Company"
mySQL = mySQL & " WHERE EmployeeID=" & ID
mySQL = mySQL & " AND Month([Bill_Date])=" & Month(CDate([Forms]![FrmTransfer]![txtMonth]))
mySQL = mySQL & " AND Year([Bill_Date])=" & Year(CDate([Forms]![FrmTransfer]![txtMonth]))

'Debug.Print mySQL
Set rst = CurrentDb.OpenRecordset(mySQL)
rst.MoveLast: rst.MoveFirst

Rec = rst.RecordCount
If Rec = 0 Then GoTo Scolaire_Check

For i = 1 To rst.RecordCount
Adding = Adding & rst!Obsérvation & "+"
'Debug.Print rst!Obsérvation
rst.MoveNext
Next i

1. فهل غيرت في الكود في fAdd_Observations ، ام غيرت في الجدول Company ؟؟

2. وهل هذا هو سبب عدم ظهور الملاحظات التي تتسائل عنها ؟؟

المشكلة اخي كريمو هي ان برنامجك معقد ومتشابك (ولا اقصد هذا بطريقة سلبية لك ، فانت عملت اللازم ليظهر النتائج الصحيحة وبارك الله فيك :) ، وانما هو جدا معقد وجدا متشابك لشخص مثلي :( ، فانا اضطر الى الدخول وتفكيك جميع الاستعلامات والكود لمعرفة كل جزئية من البرنامج ، وعلى هذا فلا اصل للمطلوب بدون مساعدتك ، لانه برنامجك وانت الوحيد الذي تفهم طريقة عمله ، اما انا فميكانيك اصلح هذا الكود او ذاك ، لهذا:

أ- رجاء ، خلص موضوعك مرة واحدة ، فالرجوع اليه يعمل لي :excited:

ب- عندما تعمل اي تعديل ، رجاء اخبرني عنه حتى استطيع معرفة توابعه :)

جعفر

أخي الكريم جعفر بارك الله بك وعليك وفيك

اولا انت إشتغلت على إسم هذه النسخة Obsérvation2014_2014-09-23.rar

نعم لم يتم فيها تغيير الكود الى If Err.Number = 3021 Or Err.Number = 3061 Thenولكن مش مشكلة هذه 

المشكلة ظهور الملاحظات كما في الصورة

ولعلمك ماغيرت شيئا والبرنامج ليست به ميساجات اخرى غير هذا الميساج الذي تمت معالجته من طرفك بالكود ذو اللون الأحمر بألأعلى

المشكلة هي ظهور تخلاط بين الموظفين والممونين وتكرار كما في الصورة المرفقة

مرة يخلط الترقيم الموظفين مع ترقيم الممونين كما حصل في الصورة عند الرقم الترتيبي 4 وعند الموظف كريمو4 وعند المبلغ المالي 210.000.00 هذا المبلغ للممونين وليس للموظفين أي الصحيح لالذي ظهر عند الممون منير 3

والممونين لا يظهر ماكتب بملاحظاتهم

ركز قليلا في الصورة تفهم ما أطلبه

رجاءا مساعدتي بارك الله فيك