اذهب الي المحتوي
أوفيسنا

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

قام بنشر

الأخوة في المنتدى

السلام عليكم ورحمة الله وبركاته

أريد كود يحسب المدة ويعطي إشارة باللون الحمر :rol: أن مدة العقد قد انتهت مثال :

تاريخ بداية العقد : مدة العقد : تاريخ نهاية العقد : تنبيه انتهى العقد

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

قام بنشر

أشكرك أخي Access XP

فعلا هذا ما اريد ولكن مع إختلاف بسيط وهو:

أريد أن يتم التنبيه بدون إدخال رقم العقد أي أنه يتم لكل العقود المنتهية دفعة واحدة في النموذج

مع فائق تقديري واحترامي لك لسرعة الرد علي

أبو فراس

قام بنشر

مجهود رائع يا أخ Access XP وبارك الله فيك وجعله في ميزان حسناتك يوم القيامة

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

، شهر ، سنة وهكذا وجزاك الله خيرا .......

أبو فراس

قام بنشر

مشكور يا أخ Access XP

لكن عندما أختار يوم أو شهر يعطيني خطأ ويحولني لبرمجة الفيجول بيسك

ولا أدري ما هي المشكلة

أرجو الافادة !!!!!!

أبو فراس

قام بنشر

أرجو كتابة الرسالة التي تظهر لك ، حيث يبدو لي أن هناك مرجعا مفقودا لديك .

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

عندها ستظهر لك المراجع المستخدمة وقد وضعت بجانبها علامة صح ، أنظر أيها مسبوق بكلمة Missing

حاول أن تبحث عن المرجع المفقود في جهازك أو عبر الانترنت

وتقبل التحية

قام بنشر

اخوي access Xp ممكن اعرف الاكواد الموضوعه في حسب الاشهر مثل الموجود في المرفق فورم رقم 3 الي هو وضع العدد واختيار المدة يوم/اسبوع/شهر/سنه

لااني اريد استخدامه في فورم لدي كنت استخدم تاريخ البداية وتاريخ النهاية يدوياً

ارجوا مساعدتي وهذي اول مشاركة لي في منتداكم

قام بنشر

الموجود عندي في النموذج :

اسم العميل

البريد

رقم الهاتف

نوع الخطة

تاريخ الاشتراك

تاريخ الانتهاء

القيمة

المدفوع

المتبقي

واود ان اكتب تاريخ الاشتراك واقوام باختيار المدة كمثال 12 شهر ويكتب التاريخ اتوماتيكي في تاريخ الانتهاء

قام بنشر

أخي الكريم / أبو فراس

لا شكر على واجب

أخي الكريم / نبيل

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

قام بنشر

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

وشكراً

قام بنشر

أخي الكريم

سأشرح لك ما قمت به

Private Sub MyZaman_AfterUpdate()
On Error Resume Next
Select Case MyZaman
Case Is = 1
Me.EndDate = DateAdd("d", Mudah, [BeginDate])
Case Is = 2
Me.EndDate = DateAdd("ww", Mudah, [BeginDate])
Case Is = 3
Me.EndDate = DateAdd("m", Mudah, [BeginDate])
Case Is = 4
Me.EndDate = DateAdd("yyyy", Mudah, [BeginDate])
End Select
End Sub

في النموذج يوجد أربعة حقول لها صلة بالكود المبين أعلاه

الحقل الأول هو BeginDate

وهو الخاص بادخال تاريخ بداية المدة أو العقد

الحقل الثاني هو EndDate

وهو الحقل الذي يظهر به تاريخ نهاية المدة أو العقد

الحقل الثالث هو Mudah

وهو الحقل الذي تقوم بادخال المدة فيه

الحقل الرابع هو MyZaman

وهو الحقل الذي تقوم باختيار الفترة الزمنية التي يحسبها البرنامج ( يوم ، أسبوع ، شهر ، سنة )

وتقوم الدالة DateAdd باختيار الفترة التي تريد إضافتها وتضيفها إلى تاريخ البداية فتستخرج تاريخ النهاية

أرجو أن تكون الصورة أكثر وضوحا الآن

وتقبل تحيتي

  • 3 weeks later...
قام بنشر

أخي Access XP كيف حالك

لي طلب بسيط اريد ان اطبع تقرير للبيانات بين رقمين للعقود

مثال : اريد ان أطبع بيان حسب رقم العقد بين رقم العقد 9 ورقم العقد 20

ودمت أخاً عزيزاً

أبو فراس

  • 2 weeks later...
قام بنشر

الاخ access xp ارسلت لك رساله بخصوص كود الفلاش اريده ان يعمل في 7 خانات حاولت استعمال الكود المرفق في المشاركات السابقه يشتغل على واحد والبقيه ما تشتغل ارجو المساعده

  • 2 weeks later...
قام بنشر (معدل)

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

كما اود ان اطلب من الأخ أبو فراس ان يضع لنا المثال بعد ان ينتهي من عملة ليتسنا لنا الإستفادة منة .... وشكراً

تم تعديل بواسطه HUSSIN
  • 5 months later...

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