جعل التحديث الخاص بالتاريخ يكون اول الشهر التالى تلقائياً ؟

/index.php/topic/21692-%D8%B4%D8%B1%D8%AD-%D8%AF%D9%88%D8%A7%D9%84-%D8%A3%D9%83%D8%B3%D8%B3-%D8%AF%D9%88%D8%A7%D9%84-%D8%A7%D9%84%D8%AA%D8%A7%D8%B1%D9%8A%D8%AE-%D9%88%D8%A7%D9%84%D9%88%D9%82%D8%AA/

كل عام أنت والجميع بخير وسعادة

تفضل الحل: عند تحديث التاريخ الحالي

سيضيف شهر للتاريخ القادم مع تثبيت أول يوم في الشهر الجديد

Next_Date = "01" & "/" & DatePart("m", [Today_Date]) + 1 & "/" & Format([Today_Date], "YYYY")

 أنظر الصورة (التاريخ أفرنجي)

 أنظر الصورة (التاريخ هجري)

أنظر بيانات الجدول

وهذا المرفق بارك الله فيك

تحياتي أبومحمد

PMS_Next_Date.rar

اخي  pms

معادلتك قد تخطي في بعض التواريخ

جرب  تدخل تاريخ 30/04/2014

لين يعطيك التاريخ الصحيح استخدم معادلة اضافة يوم افضل طريقة اذا كان ماتريد التاريخ التالي للتاريخ المدخل

الأخ (tofeee) كل عام وأنت بخير

أين الخطأ بارك الله فيك

أنظر للصورة أدناه

حيث أن السائل طلب أضافة شهر للتاريخ الحالي + أعادة يوم الشهر إلى (1)

هذا ما فهمته من السؤال

وإن كان للسائل مطلب غير هذا يوضحه مشكور للإجابة عليه

عيد سعيد

أبومحمد

اخي pms

اجابتك هي الصحيحة ربما اشكل علي سؤال الاخ في بداية الشهر واجابتي هي اليوم التالي

اعتذر اخي وكل عام وانت بخير

بالتوفيق لك يارب

شكرأ اخى PMS & Tofeee على الاهتمام والرد وقد حلت المشكلة باستخدام هذه المعادلة شكراً لكم .

king5star كتب:

شكرأ اخى PMS & Tofeee على الاهتمام والرد وقد حلت المشكلة باستخدام هذه المعادلة شكراً لكم .

السلام عليكم 

ملاحظة بسيطة انه لو تم كتابة التاريخ 31/12/2013 سيعطينا التاريخ التالي 01/01/2013  أي نفس السنة والمفروض ان يكون 01/01/2014 

وارى أن المعادلة التالية افضل لضبط هذه المسألة

  Next_Date = DateAdd("d", 1, [Today_Date])

أشكرك على التنبيه لم أجرب تاريخ نهاية العام أو الشهر الأخير من العام

تصحيح المعادلة لتعمل في جميع الإحتمالات

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

تلقائي ينتقل للسنة الجديدة في شهر 1 ويوم 1

Private Sub Today_Date_AfterUpdate()

    If (DatePart("m", [Today_Date])) < 12 Then

     Next_Date = "01" & "/" & DatePart("m", [Today_Date]) + 1 & "/" & Format([Today_Date], "YYYY")

      Else

     Next_Date = "01" & "/" & "01" & "/" & Format([Today_Date], "YYYY") + 1

    End If

End Sub

فشكرا لتنبيهك (عبدالله المجرب - من البحرين) وعذرا منك أخي السائل King5star

تحياتي/ أبومحمد

PMS_Next_Date.rar

لا زلت ارى ان استخدام دالة DateAdd لاضافة الايام هي الانسب من وضع شروط وغيرها 

لاحظ في ملفك اني كتبت التاريخ 15/12/2010 فاعطاني التاريخ الجديد (بداية السنة ) والمفروض يكون 16/12/2010 وليس 01/01/2011

لاحظ الصورة

أخي عبدالله

كل عام وأنت بخير

عزيزي لعلك لم تقراء عنوان المشاركة بشكل جيد

اقتباس

 

جعل التحديث الخاص بالتاريخ يكون اول الشهر التالى تلقائياً ؟

ولم تفطن لمطلب السائل بالتحول إلى بداية الشهر الجديد وليس لليوم التالي للتاريخ المدخل.

اقتباس

 

يتحدث تلقائياً حقل التاريخ التالى الى اول الشهر القادم تلقائيا ً .

مثال عندما اختر تاريخ اليوم فى حقل التاريخ الحالى 29/7/2014

بتحدث تاريخ حقل التاريخ التالى الى 1/8/2014

ركز معي شهر يوليو عدد أيامه 31 وأخر يوم فيه هو 31/7/2014

والتاريخ الذي ذكره السائل هو: 29/7/2014

ومطلوبه الإنتقال إلى أول يوم في الشهر القادم أغسطس 1/8/2014

وليس لليوم التالي كما تفضلت بأقتراحك: 30/7/2014

لذلك لزم تثبيت أول يوم في الشهر وزيادة الشهر بمقدار +1

وإذا كان الشهر هو 12 ينتقل تلقائي للسنة الجديدة في أول شهر وأول يوم

أشكر مداخلتك وعيد سعيد

تحياتي/ أبومحمد

عذراً

فقد فهمت بأن الطلب هو زيادة يوم واحد وليس بداية الشهر التالي 

وكل عام وانت بخير

اقتباس

 

عذراً

فقد فهمت بأن الطلب هو زيادة يوم واحد وليس بداية الشهر التالي 

 

وكل عام وانت بخير

وأنت بخير

أبومحمد