منع تكرار التسجيل خلال 24 ساعة

[abo3aesha_2014]

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

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

فهل من طريقة أو كود يمنع تكرار التسجيل لنفس الموظف خلال الـ 24 ساعة ؟؟

منع تكرار التسجيل.rar

[أمير2008]

يمنع التسجيل في نفس اليوم

2منع تكرار التسجيل.rar

[abo3aesha_2014]

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

هو فعلا منع التسجيل في نفس اليوم 

لكن ظهرت مشكلة ثانية وهي إنه ثبت توقيعات الموظفين كلهم علي 12:00 ؟

[أمير2008]

ههههههه

فعلا

 

تحتاج تحديث دالة Now مع كل موظف تختاره

جرب المرفق

3منع تكرار التسجيل.rar

[abo3aesha_2014]

شكرا أخي أمير علي اهتمامك

أخذت كود زر الحفظ الذي أرشدتني إليه

Private Sub sv_Click()

If IsNull(DLookup("[رقم الموظف]", "حضور", "[رقم الموظف] = " & Me.ID2 & " AND Format([التاريخ], ""mmddyyyy"") = " & Format(Me.A_date, "mmddyyyy"))) Then
Dim strQuery As String
Dim currDateTime As Date
currDateTime = Now()
   DoCmd.SetWarnings False
DoCmd.RunSQL "INSERT INTO [حضور] ([رقم الموظف],[التاريخ], [حضور]) VALUES (" _
    & Me.ID2 & " , #" & Format(A_date, "yyyy/mm/dd") & " #, #" & Format(A_time, "h:m:s") & " #);"
DoCmd.SetWarnings True
DoCmd.GoToRecord , , acNewRec
Me.ID2 = Null
Me.name2.Requery
Me.Refresh
Else
MsgBox ("سبق التسجيل")
End If
    
End Sub

ووضعته كما هو في برنامجي وحدث للأسف أن تم تكرار التسجيل لكل موظف قام بتسجيل حضوره

مع العم أن مصدر السجلات في نموذج الحضور عندي هو جدول الحضور وليس جدول بيانات الموظفين كما صممته أنت

[Shivan Rekany]

في ١٢‏/٢‏/٢٠١٧ at 15:17, abo3aesha_2014 said:

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

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

فهل من طريقة أو كود يمنع تكرار التسجيل لنفس الموظف خلال الـ 24 ساعة ؟؟

منع تكرار التسجيل.rar

لكي نتأكد 
هل تريد بعد 24 ساعة بالتمام ام منع تكرار لنفس التاريخ 

[abo3aesha_2014]

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

[Shivan Rekany]

منذ ساعه, abo3aesha_2014 said:

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

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

Dim nTikrar As Integer
nTikrar = DCount("[رقم الموظف]", "حضور", _
"[رقم الموظف]=" & Me.ID & _
" And [التاريخ] = #" & Date1 & "#")
    If nTikrar > 0 Then
        MsgBox ("هذا الاسم مسجلة اليوم")
        Exit Sub
    Else
        Me.idh = Me.ID
        Me.timeh = Me.time1
        Me.dateh = Me.Date1
        Refresh
        DoCmd.GoToRecord , , acNewRec
    End If

 

منع تكرار التسجيل.rar

[abo3aesha_2014]

تمام أخي شيفان هذا هو عين المطلوب

جزاك الله خيرا وكل من مد يد المساعده من أساتذتنا خبراء ورواد هذا المنتدي الرائع 

[abo3aesha_2014]

أخي شيفان

ما الخطأ الذي حدث ؟؟

كود منع تكرار التسجيل أصبح غير فعال ؟!!! 

مع العلم أني جربت نفس المرفق الذي قمت أنت برفعه مسبقا !!!

منع تكرار التسجيل.rar

[Shivan Rekany]

48 دقائق مضت, abo3aesha_2014 said:

أخي شيفان

ما الخطأ الذي حدث ؟؟

كود منع تكرار التسجيل أصبح غير فعال ؟!!! 

مع العلم أني جربت نفس المرفق الذي قمت أنت برفعه مسبقا !!!

منع تكرار التسجيل.rar

غير هذا السطر من الكود 

في ١٥‏/٢‏/٢٠١٧ at 19:20, Shivan Rekany said:

" And [التاريخ] = #" & Date1 & "#")

الى

" And [التاريخ] = #" & Format(Me.Date1, "YYYY,MM,DD") & "#")

احيانا يصير المشاكل مع التواريخ لانه ما نحدد اي تاريخ مانريد

اليك ملفك بعد تعديل

 

منع تكرار التسجيل.rar

[abo3aesha_2014]

14 دقائق مضت, Shivan Rekany said:

غير هذا السطر من الكود 

الى

" And [التاريخ] = #" & Format(Me.Date1, "YYYY,MM,DD") & "#")

احيانا يصير المشاكل مع التواريخ لانه ما نحدد اي تاريخ مانريد

اليك ملفك بعد تعديل

 

منع تكرار التسجيل.rar

تمام أخي 

تم حل المشكلة

جزاك الله خيرا وزادك علما وفهما

[Shivan Rekany]

الان, abo3aesha_2014 said:

تمام أخي 

تم حل المشكلة

جزاك الله خيرا وزادك علما وفهما

واليك طريق اخر
او غير كود الكومبوبوكس من هذا
 

Private Sub ID_AfterUpdate()
Me.time1 = Time()
Me.Date1 = Date()
End Sub

الى هذا
 

Private Sub ID_AfterUpdate()
Me.time1 = Time()
Me.Date1 = Format(Date, "yyyy/mm/dd")
End Sub

سيتم الحل ان شاء الله بدون الطريقة السابقة

[abo3aesha_2014]

سأجرب وأوافيك بالنتيجة إن شاء الله

[abo3aesha_2014]

عند التطبيق ظهرت مشكلة غريبة  وعجيبة 

إذا قام الموظف بكتابة كوده الوظيفي يدويا لا يحتسب التوقيع بخلاف ما إذا اختار الكود بالماوس من مربع التحرير والسرد فإنه يحتسب التوقيع !!!