تخطى أيام معينة كيوم الجمعة والسبت فى البرنامج

[محمد احمد لطفى]

كيف يمكن تخطى يوم الجمعة و السبت 

هناك زرار الطريقة القديمة و هو يعمل 

أرجو التعديل على زرار الطريقة الجديدة 

وجزاكم الله كل خير 

test2023-1.mdb

[kkhalifa1960]

اذهب الى الاستعلام واضف كما بالصورة وشوف النتيجة .

أو

تم تعديل أبريل 28, 2023 بواسطه kkhalifa1960

[محمد احمد لطفى]

شكراً أستاذى @kkhalifa1960

و لكن لا أريد أن يضيفهم البرنامج من الاساس كما الكود فى زرار الطريقة القديمة 

تم تعديل أبريل 28, 2023 بواسطه محمد احمد لطفى

[Ezril]

مرفق @Moosak لموضوع تقويم سنوي عامل يوم الاجازه لكل شهر لون غير فالكود اذا ما ضبط جرب طريق اخرى لالغاء ظهور #Erorr بشرط اذا حقل = True 

[محمد احمد لطفى]

تم الحل 

 

Dim a As Integer
Dim DATE_POST As Date
Dim rs As DAO.Recordset
DATE_POST = CDate(Forms![TEST1]![Date_M])
Set rs = CurrentDb.OpenRecordset("subx")
For a = Forms![TEST1]![NumberStart] - 1 To Forms![TEST1]![NumberEnd] - 1
    rs.AddNew
    If Not Weekday(DATE_POST) Like "[6-7]" Then
          rs!id = Forms![TEST1]![id1]
          rs!serial = Forms![TEST1]![serial]
          rs!NumberX = a + 1
          rs!date1 = DATE_POST
    Else
          a = a - 1
    End If
DATE_POST = DATE_POST + 1

rs.Update

Next a

rs.Close
Set rs = Nothing
Me.Requery