اجبار المستخدم على ادخال تاريخ اول يوم فى الشهر

[محمد السيد الشاطر]

الإخوة الأعزاء السلام عليكم ورحمة الله 

فى الملف المرفق نموذج به 2 مربع نص فى المربع الأول اريد لما المستخدم يدخل تاريخ اى يوم فى الشهر يرجع الى اليوم الأول فى الشهر 

وفى مربع النص الثانى يحسبلى اخر يوم فى نفس الشهر 

ولكم منى وافر التقدير والاحترام

تاريخ.rar

[محمد السيد الشاطر]

الإخوة الأعزاء وجدت كود يضاف فى مربع النص الأول بعد التحديث لكن المشكلة انه يرجع بدلا من اول يوم فى الشهر الحالى يرجع اول يوم فى شهر يناير 

فبرجاء لا تتأخروا علينا بالحل

مع وافر الاحترام والتقدير

تاريخ.rar

[ابو جودي]

12 ساعات مضت, محمد السيد الشاطر said:

الإخوة الأعزاء السلام عليكم ورحمة الله 

فى الملف المرفق نموذج به 2 مربع نص فى المربع الأول اريد لما المستخدم يدخل تاريخ اى يوم فى الشهر يرجع الى اليوم الأول فى الشهر 

وفى مربع النص الثانى يحسبلى اخر يوم فى نفس الشهر 

ولكم منى وافر التقدير والاحترام

تاريخ.rar 16.08 \u0643\u064a\u0644\u0648 \u0628\u0627\u064a\u062a · 4 downloads

اعانى من مشاكل فى الاتصال بالانترنت لذلك اعذرنى سوف اجيبك نظريا

1- قم بعمل موديول جديد

2- ضع هذ الكود داخل الموديول

Rem اول يوم فى الشهر
Public Function FirstDateOfMonth(MyDate)
		FirstDateOfMonth = CDate("1/" & DatePart("m", MyDate) & "/" & DatePart("yyyy", MyDate))
End Function

Rem اخر يوم فى الشهر
Public Function LastDateOfMonth(FirstDateOfMonth)
		LastDateOfMonth = DateAdd("d", -1, DateAdd("m", 1, FirstDateOfMonth))
End Function

فى النموذج الان لنفترض انك وعلى حسب سؤالك يوجد 2 مربع نص 

لنقترض ان الاول اسمــــه     txtStart
ولنفترض ان الثانى اسمه       txtEnd

 

على حسب سؤالك او على حسب فهمى انت تريد عند وضع اى تاريخ بالمربع الاول  txtStart  مهما كان يتم ارجاعه الى اول يوم لهذا الشهر
والمربع الثانى   txtEnd   اخر يوم لنفس الشهر الذى قام بإدخاله المستخدم فى مربع النص الأول    txtStart 

قم بعمل كود عند التحديث للمربع الاول بهذا الكود

Private Sub txtStart_AfterUpdate()
    [txtStart] = FirstDateOfMonth([txtStart])
    txtEnd = LastDateOfMonth([txtStart])
End Sub

وان شاء الله تجد كل شئ تمام 

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

واخبرنى النتيجة التى توصلت اليها لو تكرمت بعد التطبيق 

[ابو جودي]

وارجوك ان اعجبتك النتيجة وكانت هى ما تريد

ارفع مرفقك من واقع تجربتك لباقى اخوانك بالمنتدى ليسهل عليهم مستقبلا الوصول لهذه النتيجة ان ارادواها يوما ولك كل الشكر والتقدير وجزاك الله خيرا

[محمد السيد الشاطر]

الاستاذ المحترم محمد عصام خالص شكرى وتقديرى لشخصك الكريم وهذا هو الملف بعد اضافة حضرتك يعمل تمام

تاريخ.rar

[ابو جودي]

الشكر لله سبحانه وتعالى وكل الفضل من الله عزوجل 

استأذن حضرتك قمت بالتأشير على مرفقكم بأفضل إجابه لانه الاسرع فى الوصول الى النتيجة لكل من يبحث عن ذلك

شكرا لك بل كل الشكر والتقدير لشخصكم الكريم 

تم تعديل يونيو 28, 2019 بواسطه ابا جودى