تطبيق الكود لكل فرد على حده

[Omar_Kreem]

تمكنت من الحصول على كود يمكنه من تحديد الأيام الناقصه بين تاريخين ..

إلا أن الكود يطبق على كل السجلات رغم اختلاف المعرف لكل فرد .. مثلاً:

الفرد رقم (1): لديه يومان هما 1/3/2017، 5/3/2017

الفرد رقم (2): لديه يومان كذلك هما 8/3/2017، 10/3/2017.

عندما أطبق الكود تكون النتيجة هى إظهار الأرقام الناقصة:

2 ، 3 ، 4 ، 6 ، 7، 9.

دون الفصل بين أرقام كل شخص.

والصحيح:

الفرد الأول يكون له أرقام: 2، 3، 4.

والفرد الثانى يكون له رقم: 9.

 

اريد تطبيق الكود على كامل السجلات مع مراعاة أن يكون التطبيق لكل فرد على حده ..

db2.rar

تم تعديل أبريل 14, 2017 بواسطه omar19-3

[Omar_Kreem]

up

[Shivan Rekany]

في ١٤‏/٤‏/٢٠١٧ at 16:42, omar19-3 said:

تمكنت من الحصول على كود يمكنه من تحديد الأيام الناقصه بين تاريخين ..

إلا أن الكود يطبق على كل السجلات رغم اختلاف المعرف لكل فرد .. مثلاً:

الفرد رقم (1): لديه يومان هما 1/3/2017، 5/3/2017

الفرد رقم (2): لديه يومان كذلك هما 8/3/2017، 10/3/2017.

عندما أطبق الكود تكون النتيجة هى إظهار الأرقام الناقصة:

2 ، 3 ، 4 ، 6 ، 7، 9.

دون الفصل بين أرقام كل شخص.

والصحيح:

الفرد الأول يكون له أرقام: 2، 3، 4.

والفرد الثانى يكون له رقم: 9.

 

اريد تطبيق الكود على كامل السجلات مع مراعاة أن يكون التطبيق لكل فرد على حده ..

db2.rar

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

وبعدين عملت علاقات واحد لمتعدد

ثالثا عملت نموذجين
نموذج الرئيسي ومصدره جدول اسماء الموظفين

ونموذج الفرعي لكي يسجل ايام الغياب

و في نموذج الرئيسي اضفت مرعين نصيين باسماء تاريخ الاول والتاريخ الثاني

و للتاريخ الاول مصدره هو التاريخ الاول للموظف اي كتبت هذا الكود لكي يأخذ التاريخ الاول للموظف

=IIf([ID]>0;DFirst("[StartDate]";"[times]";" [times]![ID]=" & [ID]))

وللتاريخ الثاني كتبت هذا الكود لكي يأخذ التاريخ الاخير للموظف 

=IIf([ID]>0;DLast("[StartDate]";"[times]";" [times]![ID]=" & [ID]))

وبعدين اضفت زر ابدأ العملية وكتبت هذا الكود عند الضغط على كليك عليه في محرر فيجوال

Option Compare Database

Private Sub Command15_Click()
Dim i As Integer
    Dim i1 As Integer
        Dim sCount As Integer
            Dim F1Count As Integer
F1Count = DCount("*", "TBLMYMOAZIFIN")
    DoCmd.GoToRecord , , acFirst
For i1 = 0 To F1Count - 1
    sCount = DateDiff("d", Me.startd, Me.endd) - 2
        Forms!form1!formLost_Serial.SetFocus
            DoCmd.GoToRecord , , acNewRec
For i = 0 To sCount
    Forms!form1!formLost_Serial!missing = Format(DateAdd("d", i, Me.startd + 1), "d")
        DoCmd.GoToRecord , , acNext
    Next i
Forms!form1.SetFocus
    DoCmd.GoToRecord , "FORM1", acNext
        Next i1
    DoCmd.Requery
End Sub

واتفضل مع القاعدة db2.rar

اتمنى ان يكون هو مطلبك

تحياتي

[Omar_Kreem]

جزاك الله خيراً أ/Shivan  أنظر بعد زيادة الأيام تجده يضع بجدول Lost_Serial كل الأيام تقريبا وليست المفقوده فقط ....

db3.rar

تم تعديل أبريل 15, 2017 بواسطه omar19-3

[Shivan Rekany]

15 دقائق مضت, omar19-3 said:

جزاك الله خيراً أ/Shivan  أنظر بعد زيادة الأيام تجده يضع بجدول Lost_Serial كل الأيام تقريبا وليست المفقوده فقط ....

db3.rar

كلا اخي

شوف الجدول

[Omar_Kreem]

نعم أستاذى ... رجاء انظر الجدول Lost_Serial بعد زيادة الأيام والأشخاص ..

[Shivan Rekany]

14 دقائق مضت, omar19-3 said:

نعم أستاذى ... رجاء انظر الجدول Lost_Serial بعد زيادة الأيام والأشخاص ..

الكود بيعمل بشكب عادي

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

انظر الى جدول تايمس ما دخلت انت هو ايام الشهر كامل
اما في جدول لاست سريال بها تواريخ بين اول التاريخ والاخر تاريخ

تحياتي

[Omar_Kreem]

نعم أستاذى .. هل يمكن استخراج الأيام المفقوده فقط من الجدول Times لكل شخص على حده ...

[Omar_Kreem]

up