تسجيل الغياب اليومي للموظفين دفعة واحدة

[SAROOK]

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

لدي في المرفقات قاعدة بيانات خاصة بتسجيل الغياب اليومي للموظفين حيت ان النموذج المسمى absent-enter هو النموذج المسؤول عن تسجيل الغياب اليومي للموظفين  وطريقة العمل به ان يتم  اختيار اسم الموظف الغائب ثم يتم ادراج  تاريخ الغياب  وبعدها يتم اختيار اسم الموظف التاني وادارج تاريخ الغياب وهكذا  دواليك وطبعا  هذه الطريقة في تسجيل الغياب تاخد وقتا 

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

‫الغياب والتاخير - نسخة.accdb

[ناقل]

19 ساعات مضت, SAROOK said:

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

يعني انت تريد تسجيل غياب الموظفين جميعا .... ثم الضغط علة اضافة يتم ادراج تاريخ الغياب كل الموظفين الغائبين فقط تريد هذا "" ؟؟؟؟

[SAROOK]

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

نعم بشمهندس ناقل . عند الضغط على اضافة يتم ادارج التاريخ الذي تم تحديده لكل موظف غائب 

[ناقل]

19 دقائق مضت, SAROOK said:

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

اضفت حقل صغير في جدول الموظفين...... جرب الملف

NA_1.accdb

[SAROOK]

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

ممتاز  بشمهندس ناقل  هذا هو المطلوب اشكرك من كل قلبي

ولي عشم بشمهندس وهو هل يمكن منع  تكرار تاريخ الغياب اذا تم ادراجه مره اخرى  بالخطاء 

[ناقل]

11 دقائق مضت, SAROOK said:

هل يمكن منع  تكرار تاريخ الغياب اذا تم ادراجه مره اخرى  بالخطاء 

غير الشيفرة الموجودة تحث حدث الزر الى ....

Me.Recalc
If DLookup("[absdate]", "[hol]", "[absdate] =#" & [Forms]![تسجيل الحضور والغياب]![نص11] & "#") Then
    MsgBox "تم تسجيل غياب هذا اليوم"
Else
    DoCmd.SetWarnings False
    DoCmd.RunSQL "INSERT INTO hol ( [no], absdate ) " & _
                    " SELECT emp.[no], [forms]![تسجيل الحضور والغياب]![نص11] AS Expr1 " & _
                    " FROM emp " & _
                    " WHERE (((emp.Att)="" غياب""));"
    DoCmd.RunSQL "UPDATE emp SET emp.Att = """";"
    DoCmd.SetWarnings True
End If

 

[SAROOK]

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

غيرت الشيفرة  وادخلت تواريخ ولم يمنع التكرار

[ناقل]

6 دقائق مضت, SAROOK said:

غيرت الشيفرة  وادخلت تواريخ ولم يمنع التكرار

تفضل ملفك ..... 

NA_1.accdb

الرسالة تظهر عند الضغط على اضافة

[SAROOK]

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

تسلم الايادي  بشمهندس ناقل  

كفيت  ووفيت

بارك الله فيك