AzizSader كتب:بسم الله الرحمن الرحيم
على بركة الله
قمت بتعديل على تاريخ المباشرة بحيث اذا كان نهاية الاجازة يوم الخميس يزيد يومين و اذا كان يوم الجمعة يزيد يوم واحد
شكرا أستاذنا عزيز
انت عدلت على يوم بداية الإجازة وليس يوم نهاية الإجازة
Private Sub Today_AfterUpdate() If Today = "الخميس" Then [Work_Start_history] = [Work_Start_history] + 2 End If If Today = "الجمعة" Then [Work_Start_history] = [Work_Start_history] + 1 End If End Sub
والمطلوب التعديل على يوم نهاية الإجازة اي زيادة يوم او يومين من End_Date وفقا للشروط المذكورة
وشكرا
الْلَّهُم صَلِّ وَبَارِك وَسَلِم عَلَى سَيِّدِنَا مُحَمَّد وَعَلَى الِه وَصَحْبِه وَسَلِّم