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

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

السلام عليكم

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

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

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

 

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

 

 

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

[abouelhassan]

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

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

  في 20‏/7‏/2022 at 16:06, abouelhassan said:

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

Expand  

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

[متقاعد]

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

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

Expand  

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

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

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

Me.Parent.Recalc

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

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

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

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

  في 22‏/7‏/2022 at 11:27, مبرمج سابق said:

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

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

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

Me.Parent.Recalc

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

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

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

Expand  

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

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

[متقاعد]

  في 23‏/7‏/2022 at 10:42, عبد اللطيف سلوم said:

تشكر عليها

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

Expand  

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

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

[د.كاف يار]

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

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

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

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

 

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

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

[متقاعد]

  في 23‏/7‏/2022 at 17:40, د.كاف يار said:

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

Expand  

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

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

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)

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

 

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

  في 23‏/7‏/2022 at 17:40, د.كاف يار said:

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

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

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

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

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

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

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

 

Expand  

 

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

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

السلام عليكم

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

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

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

 

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

 

 

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

Expand  

بعد التعديل

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

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

[متقاعد]

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

بعد التعديل

Expand  

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

For i = 0 To CountAmunt

الى ⬇️

For i = 0 To CountAmunt - 1

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

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

من 1 الى 10 = 10

من 0 الى 10 = 11

تحياتي

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

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

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

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

For i = 0 To CountAmunt

الى ⬇️

For i = 0 To CountAmunt - 1

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

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

من 1 الى 10 = 10

من 0 الى 10 = 11

تحياتي

Expand  

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

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

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

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

 

Expand  

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

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

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

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

[متقاعد]

  في 24‏/7‏/2022 at 12:22, عبد اللطيف سلوم said:

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

Expand  

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

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

[د.كاف يار]

  في 23‏/7‏/2022 at 18: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)

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

 

Expand  

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

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

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

بعد التعديل

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

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

Expand  

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

[Ahmed_J]

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

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

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

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

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