مساعدة في حساب الايام والشهور

اخي الفاضل

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

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

اذا كان لديك جدول اضف اليه حقل تاريخ وليكن مثلا MDate وتنسيقه تاريخ / وقت

1. اعرض النموذج في وضع التصميم

2. اضف حقل غير منظم وليكن اسمه مثلا M2

3. اختر زر تبديل من الادوات

4. اتبع المعالج الخاص بزر التبديل حتى تصل الى اختيار اسم زر الامر واعطه الاسم مثلا WM والازرار الاول W اسبوعي والاخر M شهري

5. قم بإختيار مربع الاختيار الخاص بالزرين ( اسبوعي - شهري ) واختر خصائصه ومنها اختر التبويب حدث اختر من الحدث عند النقر وضع هذا الكود

Private Sub WM_Click()
If Me.WM = 1 Then
Me.M2 = MDate + 7
ElseIf Me.WM = 2 Then
Me.M2 = MDate + 30
End If
Me.M2.Requery
End Sub

شرح الكود

-----------

في حدث عند التقر على الاختيار WM الموجود به زري التبديل

اذا كان قيمة الاختيار WM = 1 ويعني اسبوعي

اذن مربع النص الغير منظم الذي يمثل تاريخ الصيانة القادم = تاريخ الصيانة ( MDate ) مضافا اليه العدد 7 وهو يمثل سبعة ايام

ايضا اذا تم اختيار مربع الاختيار WM = 2 ويعني شهري

اذن مربع النص الغير منظم الذي يمثل تاريخ الصيانة القادم = تاريخ الصيانة ( MDate ) مضافا اليه العدد 30 وهو يمثل 30 يوما

وهذا مثال تطبيقي

اختكم

زهره