السلام عليكم ورحمة الله وبركاته
اخواني لدي استفسار بسيط لايصعب على اساتذتنا في هذا الصرح
الاستفسار :
لدي 3 حقول نصية
كل ما اوده هو كتابة التاريخ في الحقل الاول
يتم تلقائيا اضافة شهرين في الحقل النصي الثاني
اضافة 5 ايام في الحقل النصي الثالث
مثال :
الحقل 1 = 01/11/1427
الحقل 2 ( بعد اضافة شهرين تلقائياً ) = 01/01/1428
الحقل 3 بعد اضافة 5 ايام ) = 05/01/1428
ولكم خالص الاحترام
اخي الفاضل
استخدم هذا الكود في حدث بعد التحديث لمربع النص التاريخ
Private Sub strDate_AfterUpdate()
Me.Add2Month = DateAdd("m", 2, [strDate])
Me.Add5Days = DateAdd("d", 4, [Add2Month])
End Subهذا هو طلبي
بدون ما اكلف عليك ولا يحتاج تتعبي نفسك وملف مرفق
هل يمكن تعديل الكود ليكون اضافة عدد من الايام وعدد من الاشهر لنفس الحقل النصي
مثل كذا ؟
Me.txt11 = DateAdd("m", 1, "d",5 [txt10])جزاك الله الف خير اختي زهرة
الله لا يحرمنا من امثالك
وما انسى فضلك في احد مواضيع وتفاعلك معي
وتسلم يدياتك على كل ما تقدمينه
يكون الكود بهذا الشكل
Me.txt11 = DateAdd("m", 1, [txt10]) + 5حيث الحرف m يمثل الشهر والعدد 1 يمثل عدد الأشهر المطلوب اضافتها وفي آخر الكود نضع الرقم 5 وهو يمثل عدد الأيام المطلوب اضافتها
جزاك الله الف خير وجعله في ميزان حسناتك
وتسلم يدينك على كل ما تقدمينه
هذا الموضوع مغلق.