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

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

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

بالضغط على زرار ستارت فى النموذج الفرعى 
تأتى البيانات 
30/12/2017                      سبت

31/12/2017                         حد

1/1/2018                          اثنين

2/1/2018                          ثلاثاء

3/1/2018                           اربع

4/1/2018                       خميس

5/1/2018                        جمعة

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

31/12/2017                         حد

1/1/2018                          اثنين

2/1/2018                          ثلاثاء

3/1/2018                           اربع

4/1/2018                       خميس

7/1/2018                         حد

8/1/2018                          اثنين

9/1/2018                          ثلاثاء

10/1/2018                           اربع

11/1/2018                       خميس

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

test10000.rar

تم تعديل يناير 7, 2018 بواسطه محمد احمد لطفى

[ابوخليل]

اخي الكريم  لا تستخدم كلمات محجوزة في النظام

خاصة Date 

تفضل تم  عمل المطلوب :الدالة ادناه ترجع برقم اليوم  داخل الاسبوع  باعتبار الاحد=1 افتراضيا

Weekday(date)

 

انظر في مصدر بيانات النموذج الفرعي

 

test2.rar

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

14 minutes ago, ابوخليل said:

اخي الكريم  لا تستخدم كلمات محجوزة في النظام

خاصة Date 

تفضل تم  عمل المطلوب :الدالة ادناه ترجع برقم اليوم  داخل الاسبوع  باعتبار الاحد=1 افتراضيا

Weekday(date)

 

انظر في مصدر بيانات النموذج الفرعي

 

test2.rar

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

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

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

هل يوجد مساعدة

 

[ابوخليل]

انا عدلت على الكود الموجود  حيث استخدمت الدالة اعلاه للاستدلال على الايام

وداخل الدوارة تمكنت من تجاهل يومي الجمعة والسبت

وايضا عند تسجيل تاريخ البداية لا يسمح  بتاريخ يوافق العطلة

ولكني توقفت عند القيمة الكلية للدوران حيث استعصى التعديل عليها من داخل الدوارة

بمعنى  ان النتيجة ستظهر صحيحة ولكن ايام العطل  ستكون ضمن الحسبة في الحقل F 

اي اذا اردت ان تسجل 10 ايام صافية   يجب ان تعرف كم جمعة وسبت موجودة ضمنها  ثم تضيفها الى العدد في الحقل F

test4.rar

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

جزاك الله خيرا استاذى ابو خليل 
ولكن ايام العطل الرسميى لا تأتى 
مثل يوم 
24/1/2018
يوم اربع

[ابوخليل]

معذرة .. اقصد بــ ايام العطل : يومي الجمعة والسبت

[AlwaZeeR]

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

كيف حالك اخي ابو خليل عساك بخير وبصحة جيدة

اسمح لي بالمداخلة

واليك هذا التعديل

::

تحياتي

testwaz.rar

[ابوخليل]

رائع  شكرا لك

[أبو آدم]

جميل أخي الوزير

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

5 hours ago, alwazeer said:

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

كيف حالك اخي ابو خليل عساك بخير وبصحة جيدة

اسمح لي بالمداخلة

واليك هذا التعديل

::

تحياتي

testwaz.rar

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

[AlwaZeeR]

تفضل عزيزي

 

testwaz2.rar

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

2 hours ago, alwazeer said:

تفضل عزيزي

 

testwaz2.rar

مازال هناك مشكلة  عند البدء فى سجل جديد او اضافة عاى سجل قديم لا يبدأ بالتاريخ او الرقم المكتوب بالاعلى 
جزاك الله خيرا

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

هل من مساعدة

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

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

On 1/9/2018 at 9:18 PM, محمد احمد لطفى said:

مازال هناك مشكلة  عند البدء فى سجل جديد او اضافة عاى سجل قديم لا يبدأ بالتاريخ او الرقم المكتوب بالاعلى 
جزاك الله خيرا

 

[أبو إبراهيم الغامدي]

في 1/9/2018 at 22:18, محمد احمد لطفى said:

مازال هناك مشكلة  عند البدء فى سجل جديد او اضافة عاى سجل قديم لا يبدأ بالتاريخ او الرقم المكتوب بالاعلى 
جزاك الله خيرا

استخدم الشفرة التالية في زر الأمر START

  Dim I As Integer
  Dim DATE_POST As Date
  DATE_POST = CDate(Forms![TEST1]![Date_M])
  For I = 1 To Forms![TEST1]![F]
    If Not Weekday(DATE_POST) Like "[6-7]" Then
      Me.no = I
      Me.date = DATE_POST
    Else
      I = I - 1
    End If
    DATE_POST = DATE_POST + 1
    DoCmd.GoToRecord , , acNewRec
  Next

 

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

10 minutes ago, أبو إبراهيم الغامدي said:

استخدم الشفرة التالية في زر الأمر START

  Dim I As Integer
  Dim DATE_POST As Date
  DATE_POST = CDate(Forms![TEST1]![Date_M])
  For I = 1 To Forms![TEST1]![F]
    If Not Weekday(DATE_POST) Like "[6-7]" Then
      Me.no = I
      Me.date = DATE_POST
    Else
      I = I - 1
    End If
    DATE_POST = DATE_POST + 1
    DoCmd.GoToRecord , , acNewRec
  Next

 

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

هذه الطريقة تنفع لتجاهل الايام ( اى يوم ) بطريقة سهلة