برنامج القروض البنكية والسداد للموظفين هدية مجانية

[عبد اللطيف سلوم]

السلام عليكم

نزولا عند رغبة الزملاء والزميلات

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

وهو مقدم هدية مجانية للجميع 

 

نزلت فيديو على اليوتيوب يشرح طريقة استعمال البرنامج 

 

 

هدية مجانية - قروض بنكية.accdb

[abouelhassan]

بارك الله فيك اخي الكريم 

[عبد اللطيف سلوم]

28 دقائق مضت, abouelhassan said:

بارك الله فيك اخي الكريم 

كل المحبة والاحترام

[متقاعد]

في 20‏/7‏/2022 at 17:28, عبد اللطيف سلوم said:

وهو مقدم هدية مجانية للجميع 

هدية جميلة ولك الشكر والتقدير

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

• ادخال الاقساط في النموذج الفرعي امر مرهق وغير عملي ويمكن عمل كود يتولى المهمة ولكن يتطلب منا اضافة ثلاثة حقول ليعمل الكود حقل بداية السداد نوعه تاريخ وحقل المدة رقمي نحدد فيه عدد الاشهر خلال مدة القرض واخيرا حقل مبلغ القسط ايضا رقمي مزدوج ليقبل الكسور ثم نعمل حلقة دوارة تقوم باضافة السجلات
• بدلا من اغلاق النموذج واعادة فتحه لمشاهدة التغيير في حقول المبلغ المدفوع والمتبقي عند اختيار خانه تم الدفع يمكن وضع الامر ⬇️

Me.Parent.Recalc

• في شرحك عند تقسيم المبلغ على عدد الاشهر تجاوزت الكسر العشري وهذا سوف يسبب خطا في الاجمالي وبدلا من ذلك يمكن استخدام الدالة int وهي تسمح لنا بذلك ثم نقوم بحساب المتبقي من القسمة بدالة mod والافضل من ذلك ان نقوم بعمل كود يقوم بحساب المتبقي بدون mod واضافتة على القسط الاول او الاخير وبشكل الى من خلال الكود الذي اشرنا اليه في الفقرة الاولى
• اخير اضافة ثلاث نماذج فرعية في الرئيسي بشكل مخفي لغرض الحصول على قيمة بعض الحقول امر غير عملي ويمكن بدلا من ذلك استخدام دالة dsum وبالشروط التي تحقق لنا الحصول على القيمة المطلوبة لكل حقل وحينها نسنغني عن ثلاث نماذج وثلاث استعلامات

اخيرا هي وجهة نظر غير ملزمة وليس الهدف منها النقد وانما زكاة العلم نشره

تحياتي وتقديري

[عبد اللطيف سلوم]

23 ساعات مضت, مبرمج سابق said:

هدية جميلة ولك الشكر والتقدير

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

• ادخال الاقساط في النموذج الفرعي امر مرهق وغير عملي ويمكن عمل كود يتولى المهمة ولكن يتطلب منا اضافة ثلاثة حقول ليعمل الكود حقل بداية السداد نوعه تاريخ وحقل المدة رقمي نحدد فيه عدد الاشهر خلال مدة القرض واخيرا حقل مبلغ القسط ايضا رقمي مزدوج ليقبل الكسور ثم نعمل حلقة دوارة تقوم باضافة السجلات
• بدلا من اغلاق النموذج واعادة فتحه لمشاهدة التغيير في حقول المبلغ المدفوع والمتبقي عند اختيار خانه تم الدفع يمكن وضع الامر ⬇️

Me.Parent.Recalc

• في شرحك عند تقسيم المبلغ على عدد الاشهر تجاوزت الكسر العشري وهذا سوف يسبب خطا في الاجمالي وبدلا من ذلك يمكن استخدام الدالة int وهي تسمح لنا بذلك ثم نقوم بحساب المتبقي من القسمة بدالة mod والافضل من ذلك ان نقوم بعمل كود يقوم بحساب المتبقي بدون mod واضافتة على القسط الاول او الاخير وبشكل الى من خلال الكود الذي اشرنا اليه في الفقرة الاولى
• اخير اضافة ثلاث نماذج فرعية في الرئيسي بشكل مخفي لغرض الحصول على قيمة بعض الحقول امر غير عملي ويمكن بدلا من ذلك استخدام دالة dsum وبالشروط التي تحقق لنا الحصول على القيمة المطلوبة لكل حقل وحينها نسنغني عن ثلاث نماذج وثلاث استعلامات

اخيرا هي وجهة نظر غير ملزمة وليس الهدف منها النقد وانما زكاة العلم نشره

تحياتي وتقديري

ملاحظات قيمة تشكر عليها

كل المحبة والاحترام

[متقاعد]

4 ساعات مضت, عبد اللطيف سلوم said:

تشكر عليها

كل المحبة والاحترام

الشكر لله اخي ابو اشرف

مع تمنياتي لك بالتوفيق

[د.كاف يار]

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

اذا كان تاريخ شهر القرض اكبر من الشهر الحالي و لم يتم السداد يكون باللون الأحمر

اذا كان شهر السداد مساوي للشهر الحالي و لم يتم السداد يكون اللون الأصفر

و في باقي الحالات يكون اللون الأبيض

 

هدية مجانية - قروض بنكية.zip

تم تعديل يوليو 23, 2022 بواسطه د.كاف يار

[متقاعد]

45 دقائق مضت, د.كاف يار said:

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

مشاركة رائعة اخي د.حسين

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

For i = 1 To CountAmunt

اي ان الحلقة تبدأ من رقم 1 الى اخر عدد في حقل مجموع الدفعات

ثم في حقل التاريخ وضعت الامر

rs.Fields(2).Value = DateAdd("m", i + 1, SetStartDate)

اي ان الزيادة تكون برقم واحد + 1 على التاريخ فاذا كان تاريخ اول دفعة محدد في 25-07-2022 سيكون التاريخ 25-09-2022

انظر الصور المرفقة

لذا يمكن التغلب على المشكلة بتعديل بداية الحلقة لتكون من رقم 0

For i = 0 To CountAmunt - 1

وفي حقل التاريخ

rs.Fields(2).Value = DateAdd("m", i, SetStartDate)

وايضا يمكن ان ندع بداية الحلقة كما هي
For i = 1 To CountAmunt
والتاريخ يكون
rs.Fields(2).Value = DateAdd("m", i - 1, SetStartDate)

تحياتي وتقديري واعتذر مقدما عن اي ازعاج

 

[عبد اللطيف سلوم]

14 ساعات مضت, د.كاف يار said:

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

اذا كان تاريخ شهر القرض اكبر من الشهر الحالي و لم يتم السداد يكون باللون الأحمر

اذا كان شهر السداد مساوي للشهر الحالي و لم يتم السداد يكون اللون الأصفر

و في باقي الحالات يكون اللون الأبيض

تسلم دكتورنا الغالي
مبدع كعادتك

كل المحبة والاحترام

هدية مجانية - قروض بنكية.zip 68.42 kB · 7 downloads

 

 

[عبد اللطيف سلوم]

في 20‏/7‏/2022 at 17:28, عبد اللطيف سلوم said:

السلام عليكم

نزولا عند رغبة الزملاء والزميلات

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

وهو مقدم هدية مجانية للجميع 

 

نزلت فيديو على اليوتيوب يشرح طريقة استعمال البرنامج 

 

 

هدية مجانية - قروض بنكية.accdb 1.09 \u0645\u064a\u062c\u0627 \u0628\u0627\u064a\u062a · 30 downloads

بعد التعديل

مشكور @د.كاف يار

هدية مجانية - قروض بنكية.accdb

[متقاعد]

15 دقائق مضت, عبد اللطيف سلوم said:

بعد التعديل

ياعبد اللطيف جرب تحديد عدد الاشهر تجد ان الكود يزيد شهر مثلا عدد الدفعات 12 تجد انها 13 لذا عدل السطر ⬇️

For i = 0 To CountAmunt

الى ⬇️

For i = 0 To CountAmunt - 1

انظر للتعديل في مشاركتي السابقة

دائما اذا بدانا بصفر لابد ان ننقص واحد

من 1 الى 10 = 10

من 0 الى 10 = 11

تحياتي

تم تعديل يوليو 24, 2022 بواسطه مبرمج سابق

[عبد اللطيف سلوم]

3 ساعات مضت, مبرمج سابق said:

ياعبد اللطيف جرب تحديد عدد الاشهر تجد ان الكود يزيد شهر مثلا عدد الدفعات 12 تجد انها 13 لذا عدل السطر ⬇️

For i = 0 To CountAmunt

الى ⬇️

For i = 0 To CountAmunt - 1

انظر للتعديل في مشاركتي السابقة

دائما اذا بدانا بصفر لابد ان ننقص واحد

من 1 الى 10 = 10

من 0 الى 10 = 11

تحياتي

تم التعديل
مشكور اخي الكريم @مبرمج سابق

[عبد اللطيف سلوم]

3 ساعات مضت, مبرمج سابق said:

دائما اذا بدانا بصفر لابد ان ننقص واحد

 

اشكرك معلم @مبرمج سابق

بعد التجربة طلع في شهر زيادة 

تم التعديل وقمت بانقاص 1

هيك الشغل تمام

[متقاعد]

43 دقائق مضت, عبد اللطيف سلوم said:

هيك الشغل تمام

تمام يا ابو اشرف

تمنياتي لك بالتوفيق

[د.كاف يار]

في 24‏/7‏/2022 at 01:25, مبرمج سابق said:

مشاركة رائعة اخي د.حسين

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

For i = 1 To CountAmunt

اي ان الحلقة تبدأ من رقم 1 الى اخر عدد في حقل مجموع الدفعات

ثم في حقل التاريخ وضعت الامر

rs.Fields(2).Value = DateAdd("m", i + 1, SetStartDate)

اي ان الزيادة تكون برقم واحد + 1 على التاريخ فاذا كان تاريخ اول دفعة محدد في 25-07-2022 سيكون التاريخ 25-09-2022

انظر الصور المرفقة

لذا يمكن التغلب على المشكلة بتعديل بداية الحلقة لتكون من رقم 0

For i = 0 To CountAmunt - 1

وفي حقل التاريخ

rs.Fields(2).Value = DateAdd("m", i, SetStartDate)

وايضا يمكن ان ندع بداية الحلقة كما هي
For i = 1 To CountAmunt
والتاريخ يكون
rs.Fields(2).Value = DateAdd("m", i - 1, SetStartDate)

تحياتي وتقديري واعتذر مقدما عن اي ازعاج

 

احسنت فعلا طريقتك صحيحة

شكرا على تعقيبك الجميل و المميز

12 ساعات مضت, عبد اللطيف سلوم said:

بعد التعديل

مشكور @د.كاف يار

هدية مجانية - قروض بنكية.accdb 864 kB · 2 downloads

العفو استاذي الكبير عبداللطيف فهذا فضل الله عز وجل 

[Ahmed_J]

لسلام عليكم اساتذتي الاعزاء

شكرا لكم على هذه البرامج الجميلة والرائعة

اتمنى منكم عمل شيء آخر في هذه البرامج

عمل زر امر فيه اعادة جدولة الاقساط من جديد

تحياتي للجميع