safwatscc

الاخ الفاضل : الاستاذ ايو خليل بكل عام وانتم بخير بارك الله فيك فعلا حللت لى مشكلة كانت تواجهنى ولم اجد لها حل وبفضل هذا الموضوع تم والحمد لله

الاخ الفاضل مساهمة بسيطة ملف وجدته عندى لاحد الاخوة بارك الله فيهم قمت بتعديل بسيط علية حقل لا يقبل أكثر من 14خانات ولا أكثر2.rar

بارك الله فيك وجعلة الله فى ميزان حسناتك

الاخ الفاضل الاستاذ: احمد بارك الله فيك فعلا هذا هو المطلوب ولكن لى استفسار ما هى فائدة استعلام Q وهل يمكن العمل فقط على الاستعلام الاساسى بتاعنا بدل من عمل استعلام ثان هل لابد منة (استعلام Q) اى نكتفى بوضع الكود فى حدث عند التحميل النموذج

الاخ الفاضل اليك الملف به نموذجين ومصدرهم استعلام واحد وبه معيار مطلوب كم تكرمت وشرحت الاول يفتح بالمعيار والثانى يفتح بدون المعيار المعيار.rar

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

الاخوة الافاضل لدى عدد من النماذج وكل نموذج له عمل خاص به وكلهم مصدرهم استعلام واحد وعند فتح النموذج الاول انا واضع معيار ل ID فى الاستعلام وهو [Forms]![trabet1]![id] المشكلة عندما اريد افتح نموذج اخر باسم مختلف عن الاول تظهر رسالة المعيار الاول هل من حل

للرفع

الاخوة الافاضل مطلوب المساعدة

الاخوة الافاضل مربع النص Dofa فى النموذج هو عدد الدفعات فى السنة ويحوى الارقام من 1 الى 12 الدفعة كل 2 اى كل شهرين حاولت التعديل فى الكود السابق فى السطر newdate = DateAdd("m", [Dofa] + i, Me.Start) فاصبح البرنامج يبدا اول قسط على اساس قيمة Dofa وشغال المطلوب ان يكرر الكلام دة وكل الدفعات التالية نفس الكلام

الاخوة الافاضل ان يتم وضع متغير لعدد الاشهر فى الكود السابق لو وضع 2 يقسم كل شهرين ولو 3 يقسم كل ثلاث اشهر وهكذا الرجاء الافادة

الاخوة الافاضل Dim i As Integer Dim newdate As Date Dim z As String Dim rst As DAO.Recordset Set rst = CurrentDb.OpenRecordset("Trabet_Month", dbOpenDynaset) If Me.Bakey Mod Me.PriceDofa > 0 Then z = Int(Me.Bakey / Me.PriceDofa) Else z = Int(Me.Bakey / Me.PriceDofa) - 1 End If For i = 0 To z newdate = DateAdd("m", i, Me.Start) rst.AddNew 'rst!id = me.id rst!ID = Me.ID rst!Date = newdate rst!iD2 = i + 1 If i = z And z = Int(Me.Bakey / Me.PriceDofa) Then rst!Price_Dofa = Me.Bakey Mod Me.PriceDofa Else rst!Price_Dofa = Me.PriceDofa End If rst.Update Next i DoCmd.Requery End Sub هذا كود اخر يحل مشكلة باقى الاقساط ويعمل ولكن الاشهر متتالية مطلوب التعديل فيه على اساس انه هناك متغير لعدد الاشهر لو عدد الاشهر 2 يكون التقسيم كل شهرين وهكذا على اساس ان الدفع كل شهرين او ثلاثة او اربعة وهكذا مطلوب ضرورى بارك الله فيكم

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

الاخ والاستاذ الفاضل :Bluemind بارك الله فيك فعلا تم المطلوب من حيث تسلسل الاقساط طلب اخر الله يكرمك فى الملف المرفق قمت بتعديل على اساس ان هناك دفعة من الاقساط وحسب الاختيار من مريع تحرير اسمة Dofa الدفعة كل 1 او 2 او 3 او 4 شهر على حسب الاختيار هل ممكن ان تاريخ الاقساط يكون على حسب الاخيار من مربع تحرير Dofa بمعنى لو الدفعة كل ثلاث شهور البداية مثلا فى شهر 2 يبقى التاريخ الثانى فى شهر 5 وهكذا ارجوا ان تكون وصلت الفكرة وبارك الله فيكم تقسيط3.rar

الاخوة الافاضل بعد البحث فى المنتدى والمواقع الاخرى تم الحل لكنه ناقص ولكنها خطوة فى الطريق بوجد عدة اسئلة واضافات للكود ولكن لشروط المشاركة سوف اطرح سؤال سؤال اولا: هل يمكن عند اضافة الاقساط يتم تسلسلها من 1 الى اخر قسط بارك الله فيكم تقسيط2.rar