زيادة مبلغ إيقاف الخصم الشهري الى مبلغ القرض

[jjafferr]

السلام عليكم أخي كريمو 

 

 

الجدول السابق tbl_Avoid تم إحالته الى التقاعد ، فلذلك فهو غير موجود في البرنامج ،

العمل كله وببساطة في الجدول tbl_Loans 

 

اعمل قرض لكريمو ، وستلاحظ ان البرنامج عمل سجل كل شهر بطريقة مستقله في الجدول tbl_Loans ،

قم بإعادة ترتيب الاقتطاع ، وعند الانتهاء من التنفيذ ، سترى ان السجلات في الجدول tbl_Loans تتمتشى مع التغيرات.

 

 

رجاء تجربة هذه الخطوة ، لأن هذه الخطوة هي الاساس في البرنامج الان.

أضف موظف آخر ،

أضف نوع آخر من القروض للموظف ، ...

 

 

الخطوات التاليه عليّ:

1. عندما يريد موظف تسديد اي مبلغ ، فيجب ان تخبرني كيف اقوم بالعمل ،

 

الخطوات التاليه عليك:

1. عمل استعلام (ومن ثم تقرير) لحساب موعد دفع القروض ، والمتبقي منها ،

2. ان تعمل نفس الشئ بالنسبة لبقية القروض (اي استعمل الكود الذي عملناه لـ Cridi ، استعمله لـ Elect و بقية انواع القروض ، وطبعا انا معك للمساندة   )

 

 

جعفر

11.3.FrmDiscountReport.mdb.zip

تم تعديل مايو 3, 2015 بواسطه jjafferr

[jjafferr]

الخطوات التاليه عليّ:

1. عندما يريد موظف تسديد اي مبلغ ، فيجب ان تخبرني كيف اقوم بالعمل ،

 

 

مثلا:

موظف عنده قرض 20,000 ، لمدة عشر اشهر ، بسداد 2,000 لكل شهر.

  الشهر         السداد

11-2014  2000

12-2014  2000

1-2015   2000

2-2015   2000

3-2015   2000

4-2015   2000

5-2015

6-2015

7-2015

8-2015

 

سدد 2,000 لكل شهر ، وبقي عليه 8,000 ،

الآن يريد ان يدفع 5,000 :

 

هل اسدد من النهاية:

8-2015   2000

7-2015   2000

6-2015   1000

 

او اسدد من الشهر التالي للدفع:

5-2015   0

6-2015   1000

7-2015   2000

8-2015   2000

 

او كيف؟

 

 

جعفر

[jjafferr]

بعد الرد على سؤالي السابق ، 

 

وهل ممكن دمج جدول Cridi وجدول ElectroMeng ، مع إضافة نوع القرض (وستكون Cridi او ElectrMeng او حتى اي شئ جديد في المستقبل) ،

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

 

 

جعفر

[كريمو2]

شكرا لك لك أي واستاذي جعفر

لقد لا حظت المرفق وإتضح لي ان تعديلك الا في الجدول tbl_Loans

ومن خلال رؤية هذا الأخير ومنح قرض لـ كريمو 1

إتضح لي ان مابي الصورة

 

 

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

أما التقرير فهو ينتج من الإستعلام

أما الفورم frm_Avoid_Dates فقد غطلعت عليه ووجدته لاينفذ تعديل التوقيف

ارجو منك ان نمشي خطوة بخطوة واوضح لك ألأمر

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

 

 

[كريمو2]

 

الخطوات التاليه عليّ:

1. عندما يريد موظف تسديد اي مبلغ ، فيجب ان تخبرني كيف اقوم بالعمل ،

 

مثلا:

موظف عنده قرض 20,000 ، لمدة عشر اشهر ، بسداد 2,000 لكل شهر.

  الشهر         السداد

سدد 2,000 لكل شهر ، وبقي عليه 8,000 ،

الآن يريد ان يدفع 5,000 :

هل اسدد من النهاية:

8-2015   2000

7-2015   2000

6-2015   1000

 

او اسدد من الشهر التالي للدفع:

5-2015   0

6-2015   1000

7-2015   2000

8-2015   2000

او كيف؟

 

جعفر

 

شكر لك

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

التسديد الأخير يكون كالتالي

5-2015   4000 وتبقى 4000

هذه الـ 4000 اذا اراد ان تقتطع له خلال الشهر الموالي فتكون

6-2015   4000 ويبقى 0

وإذا اراد ان يتم الإقتطاع وفقا لما كان معمول به يكون

6-2015 2000 ويبقى 2000

7-2015 2000 ويبقى 0

وبعد لا يظهر هذا الموظف في الإقتطاعات لأنه اتم كل الإقتطاعات

هذه الإجابة عن الأولى

[كريمو2]

بعد الرد على سؤالي السابق ، 

وهل ممكن دمج جدول Cridi وجدول ElectroMeng ، مع إضافة نوع القرض (وستكون Cridi او ElectrMeng او حتى اي شئ جديد في المستقبل) ،

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

جعفر

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

[jjafferr]

عذرا على الخطأ 

 

جرب هذه النسخة ، وقد عملت الاستعلام qry_Loans ، وتفتحه من النموذج (شوف الصورة):

 

 

طبعا تقدر تمسح كل شئ من الجداول وتبدأ من جديد ،

جربه لوسمحت

 

1. انت تريد ان تعطي الاختيار للمموظف في عملية سداد المبلغ ، وهو يختار الاشهر؟

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

 

2. بالنسبة لتوزيع المبلغ ، فاعتقد بأن يوزع على الاشهر ، بقيمة قسط الشهر ، وليس أكثر (هذا سيسهل عملية التقرير ، وكل رقم سيكون بشهره) ،

اما اذا لم نلتزم بتوزيع الاشهر حسب القسط ، فمعناه مثلا: قسط 8-2015 هو 2000 ، ولكنه دفع 4000 ، فمعناه يجب علينا ان نجمع الارقام تراكميا للحصول على الرقم النهائي ،

بينما الطريقة الاولى جاهزة وبدون ارقام تراكمية 

 

بالنسبة لدمج الجدولين ، فرجاء إخباري (في صورة او اكسل) عن الحقول المتشابهة في الجدولين 

 

 

جعفر

11.3.FrmDiscountReport.mdb.zip

تم تعديل مايو 3, 2015 بواسطه jjafferr

[كريمو2]

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

هذه الطريقة عجبتني جربتها ولكن ينقص بالإستعلام الباقي

واما قضية الترتيب فإنها لا يتم فيها التنفيذ مانعرف المشكلة اين تكمن كما اشرت لك بالصورة في المشاركة 54

 

 انت تريد ان تعطي الاختيار للمموظف في عملية سداد المبلغ ، وهو يختار الاشهر؟

نعم

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

اين المشكلة في يدويا المهم حل يريحني

2. بالنسبة لتوزيع المبلغ ، فاعتقد بأن يوزع على الاشهر ، بقيمة قسط الشهر ، وليس أكثر (هذا سيسهل عملية التقرير ، وكل رقم سيكون بشهره) ،

مش مشكلة

اما اذا لم نلتزم بتوزيع الاشهر حسب القسط ، فمعناه مثلا: قسط 8-2015 هو 2000 ، ولكنه دفع 4000 ، فمعناه يجب علينا ان نجمع الارقام تراكميا للحصول على الرقم النهائي ،

بينما الطريقة الاولى جاهزة وبدون ارقام تراكمية

ولكن هذه الطريقة ملزم بها كما اشرت لك سابقا والشرط انها تنقص من الباقي او تعدمه

بالنسبة لدمج الجدولين ، فرجاء إخباري (في صورة او اكسل) عن الحقول المتشابهة في الجدولين 

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

[كريمو2]

المرفق يبين الفرق بينهما

 

 

 

 

 

مصنف الفرق.rar

 

[كريمو2]

للرفع

[jjafferr]

السلام عليكم أخي كريمو

 

الرجاء تجربة المرفق للنموذج Cridi ، وتأخير الاستقطاع ، والتأكد ان كل التغييرات تمام في الجدول tbl_Loans.

لن ننتقل الى ElectroM ، لأنه ببساطة نسخ ولصق (مع تعديل بسيط) من كود Cridi.

 

اذا تلاحظ ، عملت Cidi_sub2 ، والفكرة هي دمج Cridi و Elec في هذا النموذج (وعليه لن نحتاج الى كود آخر لنموذج آخر) ،

 

كان ودي ان اضع frm_Loans كنموذج فرعي في النموذج Cridi ، حيث ستكون عندك المعلومة كاملة عن جميع القروض للموظف.

 

 

جعفر

11.4.FrmDiscountReport.mdb.zip

تم تعديل مايو 6, 2015 بواسطه jjafferr

[كريمو2]

السلام عليكم أخي جعفر وشكرا على مد يد العون

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

اولا : يبدو ان الطريقة صحيحة واصل لغاية النهاية

ولكن فيها بعض الأسئلة وهي :

01- فكرة الترتيب تتم لجميع القروض ويكتب 0.00 في الجدول tbl_Loans للأشهر المعفاة بعدما وجدت صعوبة في قرض2 الى قرض 4

02- مالغاية من أنشاء نموذج  فرعي FrmCridi_sub_OLD

03 - الإستعلام qry_Loans ينقصة الباقي الشهري وهذا هو  "  لب المطلب  " الذي تطرقنا له منذ البداية

04- النموذج الفرعي FrmCridi_sub2 الدي هو دمج بين Cridi و Elec عند فتحة لا نلاحظ شيئا به بالرغم أني سجلت معلومات ب Elec

05- زر سداد المبلغ بنموذج Cridi لا يعمل

06- عند تجربة قرض ومن بعد يتم حذفه نلاحظ انه يحدف من الجدول Cridi ولا يحذف من الجدول tbl_Loans

 

آمل ان توفق في إنشاء كود للباقي "Remaining" في الإستعلام qry_Loans

تم تعديل مايو 6, 2015 بواسطه كريمو2

[jjafferr]

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

 

 

 

السلام عليكم أخي جعفر وشكرا على مد يد العون

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

اولا : يبدو ان الطريقة صحيحة واصل لغاية النهاية

ولكن فيها بعض الأسئلة وهي :

01- فكرة الترتيب تتم لجميع القروض ويكتب 0.00 في الجدول tbl_Loans للأشهر المعفاة بعدما وجدت صعوبة في قرض2 الى قرض 4

02- مالغاية من أنشاء نموذج  فرعي FrmCridi_sub_OLD

03 - الإستعلام qry_Loans ينقصة الباقي الشهري وهذا هو  "  لب المطلب  " الذي تطرقنا له منذ البداية

04- النموذج الفرعي FrmCridi_sub2 الدي هو دمج بين Cridi و Elec عند فتحة لا نلاحظ شيئا به بالرغم أني سجلت معلومات ب Elec

05- زر سداد المبلغ بنموذج Cridi لا يعمل

06- عند تجربة قرض ومن بعد يتم حذفه نلاحظ انه يحدف من الجدول Cridi ولا يحذف من الجدول tbl_Loans

 

آمل ان توفق في إنشاء كود للباقي "Remaining" في الإستعلام qry_Loans

 

 

 

01- فكرة الترتيب تتم لجميع القروض ويكتب 0.00 في الجدول tbl_Loans للأشهر المعفاة

لا ليس لجميع القروض ، وإنما للقرض الذي الذي تم اختياره (السجل الذي تكون عليه في Cridi وتضغط على زر اعادة تقسيم الاقتطاع).

 

بعدما وجدت صعوبة في قرض2 الى قرض 4

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

لأنه ببساطة نسخ ولصق (مع تعديل بسيط) من كود Cridi

 

فكل شئ يعتمد على هذا النموذج.

 

 

02- مالغاية من أنشاء نموذج  فرعي FrmCridi_sub_OLD

انا عندما اغير شئ في برنامج ، دائما احتفظ بالاصل ، واطلق عليها OLD ، حتى اعرفه ، ويمكن في النهاية حذفه.

 

 

03 - الإستعلام qry_Loans ينقصة الباقي الشهري وهذا هو  "  لب المطلب  " الذي تطرقنا له منذ البداية

المسألة سهلة ولكننا لم نصل اليها:

1. عند دفع كل شهر ، فسنكتب في خانة Payment_Made في النموذجfrm_Loans ، القيمة المدفوعة لذلك الشهر (وهذا ينطبق على الموظف الذي يريد ان يدفع اي مبلغ يحب في ذلك الشهر) ،

2. عندها ، كل الذي يجب عمله هو جمع حقل Cridi وحقل Payment_Made في الاستعلام qry_Loans ، ونطرحهم من بعض لنحصل على الباقي الشهري Remaining .

 

 

04- النموذج الفرعي FrmCridi_sub2 الدي هو دمج بين Cridi و Elec عند فتحة لا نلاحظ شيئا به بالرغم أني سجلت معلومات ب Elec

انا صغرت الحقول لكي يتسع المكان لبقية حقول ElectroM الاضافية ، ولكني لم اصل اليها. (ولكني ضبطته بحيث تستطيع استبداله مكان FrmCridi_Sub ، وسيعمل بالطريقة الصحيحة) ، ولكن ، قد نلغي فكرة دمج النموذجين ، فعندها تستطيع ان تنسخ الكود من النموذج Cridi الى النموذج ElectroM لعمل الازم.

 

 

05- زر سداد المبلغ بنموذج Cridi لا يعمل

هذا الزر يجب ان يفتح النموذج frm_Loans للقرض/السجل الذي تكون عليه في Cridi ، وانت بعد ذلك تدخل مبلغ السداد للشهر المطلوب (لاحظ 03.1 و 03.2 اعلاه لمعرفة طريقة الحساب).

 

 

06- عند تجربة قرض ومن بعد يتم حذفه نلاحظ انه يحدف من الجدول Cridi ولا يحذف من الجدول tbl_Loans

اعمل علاقة بين الجدول Cridi والجدول tbl_Loans كما في الصورة المرفقة:

 

 

 

آمل ان توفق في إنشاء كود للباقي "Remaining" في الإستعلام qry_Loans

رجاء مراجعة 03.1 اعلاه

 

 

 

أخي كريمو

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

نعم قد نحتاج حقل خاص لـ Payment_Made_Cridi و Payment_Made_Elec ، ولكن سنعرف هذا الشئ لما نوصل الى Elec ، والذي انت تستطيع ان تعمله ، بواسطة نفس الكود الموجود في Cridi.

رجاء ملاحظت اني في اي للتاريخ ، فاني أغير اليوم واجعله" اول الشهر" (لهذا السبب كنت تحصل على خطأ في الكود في النموذج frm_Avoid سابقا).

 

 

جعفر

تم تعديل مايو 6, 2015 بواسطه jjafferr

[كريمو2]

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

01- فكرة الترتيب تتم لجميع القروض ويكتب 0.00 في الجدول tbl_Loans للأشهر المعفاة

لا ليس لجميع القروض ، وإنما للقرض الذي الذي تم اختياره (السجل الذي تكون عليه في Cridi وتضغط على زر اعادة تقسيم الاقتطاع).

 

بعدما وجدت صعوبة في قرض2 الى قرض 4

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

لأنه ببساطة نسخ ولصق (مع تعديل بسيط) من كود Cridi

 

فكل شئ يعتمد على هذا النموذج.

 

 

02- مالغاية من أنشاء نموذج  فرعي FrmCridi_sub_OLD

انا عندما اغير شئ في برنامج ، دائما احتفظ بالاصل ، واطلق عليها OLD ، حتى اعرفه ، ويمكن في النهاية حذفه.

 

 

03 - الإستعلام qry_Loans ينقصة الباقي الشهري وهذا هو  "  لب المطلب  " الذي تطرقنا له منذ البداية

المسألة سهلة ولكننا لم نصل اليها:

1. عند دفع كل شهر ، فسنكتب في خانة Payment_Made في النموذجfrm_Loans ، القيمة المدفوعة لذلك الشهر (وهذا ينطبق على الموظف الذي يريد ان يدفع اي مبلغ يحب في ذلك الشهر) ،

2. عندها ، كل الذي يجب عمله هو جمع حقل Cridi وحقل Payment_Made في الاستعلام qry_Loans ، ونطرحهم من بعض لنحصل على الباقي الشهري Remaining .

 

 

04- النموذج الفرعي FrmCridi_sub2 الدي هو دمج بين Cridi و Elec عند فتحة لا نلاحظ شيئا به بالرغم أني سجلت معلومات ب Elec

انا صغرت الحقول لكي يتسع المكان لبقية حقول ElectroM الاضافية ، ولكني لم اصل اليها. (ولكني ضبطته بحيث تستطيع استبداله مكان FrmCridi_Sub ، وسيعمل بالطريقة الصحيحة) ، ولكن ، قد نلغي فكرة دمج النموذجين ، فعندها تستطيع ان تنسخ الكود من النموذج Cridi الى النموذج ElectroM لعمل الازم.

 

 

05- زر سداد المبلغ بنموذج Cridi لا يعمل

هذا الزر يجب ان يفتح النموذج frm_Loans للقرض/السجل الذي تكون عليه في Cridi ، وانت بعد ذلك تدخل مبلغ السداد للشهر المطلوب (لاحظ 03.1 و 03.2 اعلاه لمعرفة طريقة الحساب).

 

 

06- عند تجربة قرض ومن بعد يتم حذفه نلاحظ انه يحدف من الجدول Cridi ولا يحذف من الجدول tbl_Loans

اعمل علاقة بين الجدول Cridi والجدول tbl_Loans كما في الصورة المرفقة:

11.4.Clipboard01.jpg

 

 

 

آمل ان توفق في إنشاء كود للباقي "Remaining" في الإستعلام qry_Loans

رجاء مراجعة 03.1 اعلاه

 

 

أخي كريمو

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

نعم قد نحتاج حقل خاص لـ Payment_Made_Cridi و Payment_Made_Elec ، ولكن سنعرف هذا الشئ لما نوصل الى Elec ، والذي انت تستطيع ان تعمله ، بواسطة نفس الكود الموجود في Cridi.

رجاء ملاحظت اني في اي للتاريخ ، فاني أغير اليوم واجعله" اول الشهر" (لهذا السبب كنت تحصل على خطأ في الكود في النموذج frm_Avoid سابقا).

 

جعفر

السلام عليكم أخي جعفر

رأيتك غايب عن المنتدى منذ 07 ماي أتمنى ان تكون في صحة جيدة يارب ونرى بصماتك والله لا يعدمها ابدا من هذا المنبر النير

01- الصعوبة التي لقيتها مرة واحدة ومن بعد اني لم الاحظها " ربما كما اشرت 'فإني أغير اليوم واجعله 'اول الشهر' (لهذا السبب كنت تحصل على خطأ في الكود في النموذج frm_Avoid سابقا)' "

06- أما بخصوص الربط بين جدول cridi و الجدول tbl_Loans فقد تم وفقا للصورة ولكن اثناء تحرير قرض في النموذج cridi وخاصة عند كتابة تاريخ بداية الخصم يظهر هذا الميساج خاصة عند قرض 1 و قرض 4 و قرض مالي إستعجالي (سبحانة الله مرة يظهر هذا الميساج ومرة لا)

 

*- اما الباقي فكله تمام

*- اما بخصوص ملء الفراغات التي انت لم تكملها مافهمت اين هي في الجدول tbl_Loans

*- واخير ارجو ان ارى الباقي الشهري Remaining في الإستعلام qry_Loans كما تفضلت بطرحه في 3-2   الذي قلت عندها ، كل الذي يجب عمله هو جمع حقل Cridi وحقل Payment_Made في الاستعلام qry_Loans ، ونطرحهم من بعض لنحصل على الباقي الشهري Remaining .  

*- وفي الأخير لقد حاولت زرع كود القرض في elec مع تغيير الأسماء  ولكني لم أوفق

تم تعديل مايو 10, 2015 بواسطه كريمو2

[كريمو2]

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

ربي يحفظه ان شاء الله

[كريمو2]

عدت والعود احمد أستاذ جعفر

[jjafferr]

وعليكم السلام أخي كريمو 

 

نعم عدت اليوم عصرا من سفري 

وان شاء الله غدا اواصل من حيث انتهينا ، إلا اذا عندك ملاحظات جديدة 

 

 

جعفر

[كريمو2]

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

[jjafferr]

 

 

06- أما بخصوص الربط بين جدول cridi و الجدول tbl_Loans فقد تم وفقا للصورة ولكن اثناء تحرير قرض في النموذج cridi وخاصة عند كتابة تاريخ بداية الخصم يظهر هذا الميساج خاصة عند قرض 1 و قرض 4 و قرض مالي إستعجالي (سبحانة الله مرة يظهر هذا الميساج ومرة لا)

 

 

السلام عليكم أخي كريمو 

 

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

 

 

جعفر

11.4.FrmDiscountReport.mdb.zip

تم تعديل مايو 19, 2015 بواسطه jjafferr

[كريمو2]

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

بارك الله فيك

هذه المادة تمام وهو المطلوب

والأن ننتقل الى ماهو بالأسفل

 

*- اما بخصوص ملء الفراغات التي انت لم تكملها مافهمت اين هي في الجدول tbl_Loans

*- واخير ارجو ان ارى الباقي الشهري Remaining في الإستعلام qry_Loans كما تفضلت بطرحه في 3-2   الذي قلت عندها ، كل الذي يجب عمله هو جمع حقل Cridi وحقل Payment_Made في الاستعلام qry_Loans ، ونطرحهم من بعض لنحصل على الباقي الشهري Remaining .  

*- وفي الأخير لقد حاولت زرع كود القرض في elec مع تغيير الأسماء  ولكني لم أوفق

 

[jjafferr]

السلام عليكم أخي كريمو

 

المرفق الان يعمل على:

1. بعد إضافة القرض في Cridi ، فان القرض يسجل في tbl_Loans ،

2. يمكنك تعديل هذا القرض وتأجيله ، ونتائجه تسجل في tbl_Loans ،

3. بعد إضافة القرض في Elec ، فان القرض يسجل في tbl_Loans ،

4. يمكنك تعديل هذا القرض وتأجيله ، ونتائجه تسجل في tbl_Loans ،

5. يمكن فتح نموذج سداد المبلغ ، والذي سيفتح سجلات القرض المختار.

 

رجاء التجربة ، ثم التجربة ، وتجربة حذف القرض كذلك.

 

الخطوة الاخيرة (هذا الذي اعتقده  ) :

حساب Remaining على اساس المبالغ المدفوعة.

 

 

جعفر

11.5.FrmDiscountReport.mdb.zip

[كريمو2]

المرفق الان يعمل على:

1. بعد إضافة القرض في Cridi ، فان القرض يسجل في tbl_Loans ،

2. يمكنك تعديل هذا القرض وتأجيله ، ونتائجه تسجل في tbl_Loans ،

3. بعد إضافة القرض في Elec ، فان القرض يسجل في tbl_Loans ،

4. يمكنك تعديل هذا القرض وتأجيله ، ونتائجه تسجل في tbl_Loans ،

5. يمكن فتح نموذج سداد المبلغ ، والذي سيفتح سجلات القرض المختار.

 

رجاء التجربة ، ثم التجربة ، وتجربة حذف القرض كذلك.

 

 

نعم وهو كذالك هو المطلوب

 

الخطوة الاخيرة (هذا الذي اعتقده  ) :

حساب Remaining على اساس المبالغ المدفوعة.

 

 

Remaining نعم على اساس المبالغ المدفوعة.

أي يساوي المبالغ المتبقية بعد نقص مبلغ كل شهر  في الإستعلام qry_Loans

 

 

ملاحظة  : Other  لا يحسب مع الباقي للمبالغ المدفوعة ابدا

 

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

[jjafferr]

السلام عليكم أخي كريمو الثاني 

 

بحمد الله ومنته ، توصلت الى عمل الاستعلام والذي يعطي بقية مبلغ القرض Remaining 

طبعا اضطررت لعمل بعض التغييرات البسيطة على الجدول tbl_Loans ، واهمها هو عمل حقل Loan_Type لسهولة عمل استعلام لاحقا ، سواء لـ Cridi او Elec ، بالاضافة الى عمل حقل خاص لدفعات Cridi ودفعات Elec.

هذه الحقول قد تبدو زيادة عن الازم في الوهلة الاولى ، وان بامكاننا ان نستعيض عن هذه الحقول ببعض الاوامر في الاستعلام (وهذه المشكلة التي كنا نعاني منها في البرنامج السابق) ، ولكنها تسهل الامور إن شاء الله.

 

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

 

هنا وحدة نمطية جديدة Count_Remaining ، وهي التي تعطي Remaining ، بأخذ القيم من الجداول ، والكود سهل جدا:

Function Count_Remaining(ID_Emp As Integer, ID_Loan As Integer, T As String) As Currency

    'ID_Loan = Loan ID
    'S = Sum of payments
    'Type = Cridi or Elec
    
    'we need to know how much is the Loan, from tables Cridi and ElectroMeng
    'ans SUM the paid, from tbl_Loans
    
    If T = "Cridi" Then
        a = DLookup("[Cridi_Value]", "Cridi", "[ID]=" & ID_Loan)
        S = DSum("[Payment_Made_Cridi]", "tbl_Loans", "[EmployeeID]=" & ID_Emp)
    
    ElseIf T = "Elec" Then
        a = DLookup("[Elec_Value]", "ElectroMeng", "[ID]=" & ID_Loan)
        S = DSum("[Payment_Made_Elec]", "tbl_Loans", "[EmployeeID]=" & ID_Emp)
        
    End If

    Count_Remaining = a - Nz(S, 0)
    
End Function 

هذا شكل الاستعلام:

 

 

حاليا الاستعلام يجمع جميع مبالغ الموظف التي تم سدادها ، ولم اجربه لعدة قروض او قروض منتهية ، او .... ، فرجاء التجربة وإخباري بالنتيجة.

 

جعفر

11.5.FrmDiscountReport.mdb.zip

[كريمو2]

شكرا لك استاذ جعفر على التعب معايا

Remaining -01 في الإستعلام qry_Loans لايؤدي وظيفته كما هو مطلوب

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

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

تصور إذا كان لديك اكثر من 100 عامل فكيف تتم العملية يدويا

إني ألاحظ انها صعبة جدا بالنسبة لهم

والعملية تتم كما في المثال التالي :

اي Remaining = المبلغ الإجمالي (القرض او الكهرومنزلية)- الأشهر المنقطعة

مثلا : القرض 10.000.00 بداية الإقتطاع جوان 2015 الى غاية مارس 2016

خلال شهر جوان 2015 Remaining يساوي 10.000.00 ناقص 1.000.00(إقتطاع جوان 2015) يساوي 9.000.00

خلال شهر جويلية 2015 Remaining يساوي 9.000.00 ناقص 1.000.00 (إقتطاع جويلية2015) يساوي 8.000.00

خلال شهر أوت 2015 Remaining يساوي 8.000.00 ناقص 1.000.00 (إقتطاع أوت 2015) يساوي 7.000.00

.

.

.

.

.

.

خلال شهر مارس 2016 Remaining يساوي 1.000.00 ناقص 1.000.00 (إقتطاع مارس 2016) يساوي  0.00

 

02- جعل Remaining_cridi و Remaining_elec كل واحدة منفصلة على ألأخرى ماالسبب ؟

يكفي Remaining واحدة تبين الباقي لهما فقط

 

ارجو انك فهمت ما هو مطلوب ؟

وشكرا

تم تعديل مايو 23, 2015 بواسطه كريمو2

[jjafferr]

1.

 

 

Remaining في الإستعلام qry_Loans لايؤدي وظيفته كما هو مطلوب

 

 

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

وللعلم ، يجب التفريق بين شيئين مختلفين ، الجدول tbl_Loans و الاستعلام qry_Loans ،والاستعلام مجرد أداه للجدول.

 

 

2.

 

 

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

 

نعم نستطيع ان نعمل زر لدفع قروض الشهر ، في النموذج FrmDiscountReport للشهر الذي تم اختياره لإستقطاعات الشهر.

الزر هو "سدد مبالغ شهر الاقتطاعات" ، وهذا هو الكود الذي يملئ حقول الدفع للشهر المختار:

Private Sub cmd_Pay_installments_Click()

    Dim rst As DAO.Recordset
    Set rst = CurrentDb.OpenRecordset("Select * From tbl_Loans Where [Payment_Month]=#" & Me.txtMonth & "#")
    rst.MoveLast: rst.MoveFirst
    RC = rst.RecordCount
    
    For I = 1 To RC
        
        rst.Edit
            
            'check, maybe a manual payment is done, so don't over write it
            If Len(rst!Payment_Made_Cridi & "") = 0 And Not IsNull(rst!Loan_Cridi) Then
                rst!Payment_Made_Cridi = rst!Loan_Cridi
            End If
            
            If Len(rst!Payment_Made_Elec & "") = 0 And Not IsNull(rst!Loan_Elec) Then
                rst!Payment_Made_Elec = rst!Loan_Elec
            End If
            
        rst.Update
        
        rst.MoveNext
    Next I

    MsgBox "Payments made"
    
End Sub

يجب ان تعرف ان برنامج القروض الان يعتمد على الجدول tbl_Loans ، لذا ، فجميع خطوات الدفع لابد ان ندخلها في الجدول اولا (طبعا عن طريق النموذج frm_Loans) ، ثم يقوم الاستعلام بأخذ البيانات من هذا الجدول وعمل الحساب مثل ما تريد.

 

 

3.

 

 

جعل Remaining_cridi و Remaining_elec كل واحدة منفصلة على ألأخرى ماالسبب ؟

 

 

انا قلت:

"هذه الحقول قد تبدو زيادة عن الازم في الوهلة الاولى ، وان بامكاننا ان نستعيض عن هذه الحقول ببعض الاوامر في الاستعلام (وهذه المشكلة التي كنا نعاني منها في البرنامج السابق) ، ولكنها تسهل الامور إن شاء الله."

 

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

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

 

 

الآن ، رجاء ، الغي جميع البيانات من جداول القروض ، وادخل مجموعة بيانات صحيحة ، ثم جرب البرنامج ،

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

والرجاء ان تكون دقيق في شرح المطلوب ، كالعادة 

 

 

جعفر

11.5.FrmDiscountReport.mdb.zip

تم تعديل مايو 24, 2015 بواسطه jjafferr