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

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


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

  • Like 1
رابط هذا التعليق
شارك

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

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

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

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

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

بالتوفيق

  • Like 2
رابط هذا التعليق
شارك

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

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

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

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

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

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

 

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

  • Like 2
رابط هذا التعليق
شارك

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