اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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

قام بنشر

السلام عليكم

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

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

السلف.accdb

قام بنشر

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

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

 

  • Like 2
قام بنشر
1 ساعه مضت, Barna said:

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

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

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

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

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

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

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

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

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

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

بارك الله فيك

السلف.accdb

قام بنشر
8 دقائق مضت, Barna said:

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

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

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

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

  • أفضل إجابة
قام بنشر

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

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

- اضفنا تفقيط

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

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

 

السلف (1).accdb

  • Like 2
قام بنشر
6 دقائق مضت, Barna said:

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

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

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

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

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

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

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

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

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

  • Like 2
قام بنشر
4 دقائق مضت, Barna said:

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

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

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

قام بنشر

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

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

Me.Requery

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

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

Me.f2.Requery

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

 

  • Like 2
  • Thanks 1
قام بنشر
41 دقائق مضت, Barna said:

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

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

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

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

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.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information