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

safwatscc

03 عضو مميز
  • Posts

    442
  • تاريخ الانضمام

  • تاريخ اخر زياره

السمعه بالموقع

11 Good

عن العضو safwatscc

البيانات الشخصية

  • Gender (Ar)
    ذكر
  • Job Title
    مدرس
  • البلد
    مصر

وسائل التواصل

  • Yahoo
    safwatscc@yahoo.com

اخر الزوار

1,646 زياره للملف الشخصي
  1. الاخ الفاضل : الاستاذ ايو خليل بكل عام وانتم بخير بارك الله فيك فعلا حللت لى مشكلة كانت تواجهنى ولم اجد لها حل وبفضل هذا الموضوع تم والحمد لله
  2. الاخ الفاضل مساهمة بسيطة ملف وجدته عندى لاحد الاخوة بارك الله فيهم قمت بتعديل بسيط علية حقل لا يقبل أكثر من 14خانات ولا أكثر2.rar
  3. الاخ الفاضل الاستاذ: احمد بارك الله فيك فعلا هذا هو المطلوب ولكن لى استفسار ما هى فائدة استعلام Q وهل يمكن العمل فقط على الاستعلام الاساسى بتاعنا بدل من عمل استعلام ثان هل لابد منة (استعلام Q) اى نكتفى بوضع الكود فى حدث عند التحميل النموذج
  4. الاخ الفاضل اليك الملف به نموذجين ومصدرهم استعلام واحد وبه معيار مطلوب كم تكرمت وشرحت الاول يفتح بالمعيار والثانى يفتح بدون المعيار المعيار.rar
  5. الاخ الافاضل الاستاذ : ابو خليل جربت هذا بعد مشاركتك ولكن ايضا تضهر رسالة المعيار الاول ثم تظهر رسالة المعيار الثانى هل من طريقة اخرى عن طريق كود بحيث ان الاستعلام لا نضع فيه هذا المعيار ولكن وبالضغط على فتح النموذج يتم وضع المعيار الموجود فى الكود وعند غلق النموذج يحذف المعيار من الاستعلام وهكذا مع كل نموذج لان نفس المشكلة توجهنى عند عمل التقارير وخاصة لو هناك علاقات
  6. الاخوة الافاضل لدى عدد من النماذج وكل نموذج له عمل خاص به وكلهم مصدرهم استعلام واحد وعند فتح النموذج الاول انا واضع معيار ل ID فى الاستعلام وهو [Forms]![trabet1]![id] المشكلة عندما اريد افتح نموذج اخر باسم مختلف عن الاول تظهر رسالة المعيار الاول هل من حل
  7. الاخوة الافاضل مربع النص Dofa فى النموذج هو عدد الدفعات فى السنة ويحوى الارقام من 1 الى 12 الدفعة كل 2 اى كل شهرين حاولت التعديل فى الكود السابق فى السطر newdate = DateAdd("m", [Dofa] + i, Me.Start) فاصبح البرنامج يبدا اول قسط على اساس قيمة Dofa وشغال المطلوب ان يكرر الكلام دة وكل الدفعات التالية نفس الكلام
  8. الاخوة الافاضل ان يتم وضع متغير لعدد الاشهر فى الكود السابق لو وضع 2 يقسم كل شهرين ولو 3 يقسم كل ثلاث اشهر وهكذا الرجاء الافادة
  9. الاخوة الافاضل 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 يكون التقسيم كل شهرين وهكذا على اساس ان الدفع كل شهرين او ثلاثة او اربعة وهكذا مطلوب ضرورى بارك الله فيكم
  10. الاخ والاستاذ الفاضل :Bluemind بارك الله فيك فعلا تم المطلوب من حيث تسلسل الاقساط طلب اخر الله يكرمك فى الملف المرفق قمت بتعديل على اساس ان هناك دفعة من الاقساط وحسب الاختيار من مريع تحرير اسمة Dofa الدفعة كل 1 او 2 او 3 او 4 شهر على حسب الاختيار هل ممكن ان تاريخ الاقساط يكون على حسب الاخيار من مربع تحرير Dofa بمعنى لو الدفعة كل ثلاث شهور البداية مثلا فى شهر 2 يبقى التاريخ الثانى فى شهر 5 وهكذا ارجوا ان تكون وصلت الفكرة وبارك الله فيكم تقسيط3.rar
  11. الاخوة الافاضل بعد البحث فى المنتدى والمواقع الاخرى تم الحل لكنه ناقص ولكنها خطوة فى الطريق بوجد عدة اسئلة واضافات للكود ولكن لشروط المشاركة سوف اطرح سؤال سؤال اولا: هل يمكن عند اضافة الاقساط يتم تسلسلها من 1 الى اخر قسط بارك الله فيكم تقسيط2.rar
×
×
  • اضف...

Important Information