ظهور بداية ونهاية الشهر عند ادخال التاريخ

[gadelrab]

لاخوة الاعزاء

السلام عليكم ورحمة الله وكل عام وانتم بخير بمناسبة شهر رمضان المبارك

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

كما انه لدى حقليين اخريين غير منضمين لبداية ونهاية الشهر

اريد عند ادراج التاريخ ان يظهر لى بداية ونهاية الشهر فى الحقول غير المنضمة

بمعنى اذا ادخلت فى خانة التاريخ مثلا 12/5/2017 يظهر فى خانة بداية الشهر 1/5/2017 وفى خانة نهاية الشهر 31/5/2017

وهكذا كلما ادخلت تاريخ معين تتغير قيم بداية ونهاية الشهر

ولكم جزيل الشكر

fffc.rar

[صالح حمادي]

السلام عليكم

استعمل هذا الكود في حدث بعد التحديث لمربع نص التاريخ:

Dim a As Integer, b As Integer

Me.äÕ6 = "01-" & Format(Me.m5s1, "mm/yyyy")
a = Format(Me.m5s1, "mm")

If a = 4 Or a = 6 Or a = 9 Or a = 11 Then
   b = 30
ElseIf a = 2 Then
   If Format(Me.m5s1, "yyyy") Mod 4 = 0 Then
      b = 29
   Else
      b = 28
   End If
Else
   b = 31
End If

Me.äÕ8 = b & "-" & Format(Me.m5s1, "mm/yyyy")

و هذا هو التعديل على المرفق:

 

fffc.rar

[رمهان]

مشاركة مع الاستاذ صالح وللاثراء

لبداية الشهر اكتب التعبير في المربع الاول بداية اشهر

=DateSerial(Year([m5s1]),Month([m5s1]),1)

ولنهاية الشهر

=DateSerial(Year([m5s1]),Month([m5s1])+1,0)

بالتوفيق

[حربي العنزي]

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

كل عام وانتم بألف خير رمضان كريم اعاده الله جل وعلا  عليكم وعلينا بالصحة والعافية يارب 

بعد اذن اخي الفاضل صاحب الموضوع gadelrab ربي يحفظه وبعد اذن  استاذي الفاضل ربي يحميه من كل سوء الاستاذ صالح حمادي 

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

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

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

 

طريقة معرفة الشهر بدايته ونهايته1.rar

[gadelrab]

الاخوة الاعزاء

صالح حمادي  -  رمهان -  حربي العنزي

جزاكم الله خير الجزاء وجعل ما تقدمونه من علم فى ميزان حسناتكم

ما قدمتموه هو المطلوب تماما

شكرا لكم مرة اخرى