سلف موظفين

[الحلبي]

السلام عليكم

كيف يتم توزيع مبلغ السلفة بحيث يبدأ من تاريخ السلفة وعدد الاقساط المذكور

جزاكم الله خير

السلف.accdb

[Barna]

تفضل <><><><><><><>

Dim rst As DAO.Recordset
Set rst = CurrentDb.OpenRecordset("G2")
    For i = 1 To Forms![f1]![xno]
        rst.AddNew
        rst!empid = Forms![f1]![empid]
        rst!xdate = DateAdd("m", i, Forms![f1]![xdate])
        rst!acount = Round(Forms![f1]![acount] / Forms![f1]![xno], 2)
        rst.Update
    Next
        rst.Close: Set rst = Nothing
DoCmd.Requery

 

[الحلبي]

1 ساعه مضت, Barna said:

تفضل <><><><><><><>

تسلم ايدك استاذنا العظيم وبارك الله فيك وجعله فى ميزان الحسنات ان شاء الله

ملحوظة صغيرة :

لقد وضعت الكود فى زر  "اضافة الاقساط" وكل شئ تمام

ولكن مستخدم البرنامج احب ان يعدل فى المبلغ او يعدل عدد الاقساط وبعد التعديل طغظ على زر "اضافة الاقساط)

نلاحظ ان اضاف الاقساط الجديدة تحت الاقساط القديمة 

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

ولكن المشكلة فى تاريخ الاقساط لا يتغير ويعطى تواريخ غير مصبوطة 

ارجو التعديل على الكود حتى يعطى تواريخ حسب التاريخ المدخل فى f1

واليك المرفق الجديد بعد عمل استعلام الحذف

بارك الله فيك

السلف.accdb

[Barna]

ما المشكلة في التاريخ ؟؟؟؟ واين الخربطة ؟؟؟

 

 

[الحلبي]

8 دقائق مضت, Barna said:

ما المشكلة في التاريخ ؟؟؟؟ واين الخربطة ؟؟؟

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

طيب نقدر نفقط المبلغ فى النموذج f2  اين نضع كود التفقيط

ماذا حضرتك تقصد بالخريطة

[Barna]

طيب انا عملت بعض التعديلات انظر الملف :::::

- اضفنا رقم القسط

- اضفنا تفقيط

- جعلنا بداية القسط اما مع تاريخ القسط او الشهر الذي يلية ... 

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

 

السلف (1).accdb

[الحلبي]

6 دقائق مضت, Barna said:

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

الله يفتح عليك 

هل من الممكن ان نضغ التفقيط مع زر اضافة الاقساط زر واحد فقط

وان كان لا يمكن فانى اكتفى بهذا وشرح الله صدرك للخير وجزاك الله كل خير

[Barna]

2 دقائق مضت, الحلبي said:

هل من الممكن ان نضغ التفقيط مع زر اضافة الاقساط زر واحد فقط

هو في زر واحد .... طبعا انا صممت زرين :::: 

الاول : لا يقوم بالتفقيط ... وهو كودك القديم

الثاني : نفس الكود القديم ... مع اختلاف تاريخ القسط و التفقيط و ادراج رقم القسط

[الحلبي]

4 دقائق مضت, Barna said:

مع اختلاف تاريخ القسط و التفقيط و ادراج رقم القسط

ياريت حضرتك تضيف كود زر اضافة الاقساط مع التفيط فى زر واحد وطبق على المثال

انا حاولت ولكن يعطينى رسالة خطا .  كل المطلوب اين اضع كود التفقيط فى زر اضافة الاقساط

[متقاعد]

اعتقد توجد مشكلة صغيرة في السطر 3 والسطر الاخير

في السطر الثالث الامر

Me.Requery

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

بدل بالامر الى

Me.f2.Requery

ليكون التحديث للنموذج الفرعي فقط

 

[الحلبي]

41 دقائق مضت, Barna said:

: نفس الكود القديم ... مع اختلاف تاريخ القسط و التفقيط و ادراج رقم القسط

 انا اسف انا لقيت حضرتك عملته اصلا فى المثال

اشكرك حضرتك جدا ومالى الا ادعو لك بداوم الصحة والعافية ويبارك فى اسرتك ووالديك 

جزاك الله كل خي