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

الاخوة الافاضل فى الملف المرفق نموذج للتقسيط الدفعه كل 3 او 4 او 5 شهور على حسب الاختيار ويبدا القسط من شهر كذا المطلوب بارك الله فيكم عند الضغط على الزر بجوار النموذج الفرعى يتم تقسيم الاقساط على الاشهر وبيان الاشهر وان تبقى مبلغ يضاف الى اخر دفعة وجزاكم الله خيرا تقسيط.rar

للرفع

للرفع

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

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

عذرا اخى الفاضل ما هو المطلوب بالضبط

هذا مثال للعشرة الاوائل من ابداعات احد الاخوة بارك الله فيهم جميعا Students2010.rar

الاخ الفاضل : ابو خليل بارك الله فيك وفعلا هو المطلوب جزاك الله خيرا

الاخ الفاضل:alcasir على حد عملى لابد ان ترفق البرنامج الذى يقراء وزن الشاحنة وايضا ملف الاكسيس بتاعك ليستطيع الاخوة الافاضل ذوى الخبرة فى ربط البرنامجين معا وشكرا

الاخ الفاضل : ابو خليل وجدت بعد البحث ان هناك كود ينقل البيانات من نموذج الى نموذج اخر والنموذج الاخر مصدرة جدول وشغال ونتحايل علية لاخفاء النموذج الاخر خلف النموذج الاصلى وفعلا يقوم بالمطلوب النهائى وهو ترحيل البيانات الى الجدول مطلوب رايك فيه ثانيا : هل ممكن بدون التحايل واستخدام نموذج اخر ان نعدل هذا الكود للترحيل الى الجدول مباشرة DoCmd.GoToRecord acDataForm, "Student1_G", acNewRec Forms.Student1_G.ID_1g = ID Forms.Student1_G.NAME_1g = NAME_S Forms.Student1_G.Class_1g = Class Forms.Student1_G.Day_1g = Day Forms.Student1_G.Date_1g = Date Forms.Student1_G.Hala_1g = Hala