اذهب الي المحتوي
أوفيسنا

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


إذهب إلى أفضل إجابة Solved by د.كاف يار,

الردود الموصى بها

السلام عليكم

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

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

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

 

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

 

 

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

  • Like 1
  • Thanks 3
رابط هذا التعليق
شارك

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

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

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

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

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

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

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

  • Like 3
رابط هذا التعليق
شارك

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

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

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

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

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

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

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

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

  • Like 1
رابط هذا التعليق
شارك

  • أفضل إجابة

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

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

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

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

image.png.f808a3b180dd8c5760a16600eadd0d71.png

 

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

تم تعديل بواسطه د.كاف يار
  • Like 4
  • Thanks 1
رابط هذا التعليق
شارك

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)

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

 

دحسين.png

دحسين1.png

دحسين2.png

  • Like 3
رابط هذا التعليق
شارك

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

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

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

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

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

image.png.f808a3b180dd8c5760a16600eadd0d71.png

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

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

هدية مجانية - قروض بنكية.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

  • Like 1
رابط هذا التعليق
شارك

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

بعد التعديل

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

For i = 0 To CountAmunt

الى ⬇️

For i = 0 To CountAmunt - 1

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

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

من 1 الى 10 = 10

من 0 الى 10 = 11

تحياتي

تم تعديل بواسطه مبرمج سابق
  • Like 2
رابط هذا التعليق
شارك

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

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

For i = 0 To CountAmunt

الى ⬇️

For i = 0 To CountAmunt - 1

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

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

من 1 الى 10 = 10

من 0 الى 10 = 11

تحياتي

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

رابط هذا التعليق
شارك

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

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

 

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

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

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

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

  • Like 1
رابط هذا التعليق
شارك

في 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)

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

 

دحسين.png

دحسين1.png

دحسين2.png

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

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

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

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

  • Like 1
رابط هذا التعليق
شارك

  • 5 months later...

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

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

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

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

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

رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

×
×
  • اضف...

Important Information