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

[ازهر عبد العزيز]

السلام عليكم 

في النموذج Ftime  احتاج

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

2-عند ادخال السيريل للموظف ولم يكن موجود حاليا في المؤسسة يظيف بشكل تلقائي 1 الى الحقل num_in     ثم ينتقل الى سجل جديد

3-عند خروج الموظف ودخولة مرة ثانية  وعند اختيارة بواسطةالسيريل في سجل جديد يزداد رقم دخولة في الحقل num_in  في سجل دخولة السابق  ثم ينتقل الى سجل جديد

ملاحظة يتم ادخال السيريل بواسطة قارئ الباركود

 

 

TIME.accdb

تم تعديل سبتمبر 16, 2020 بواسطه ازهر عبد العزيز

[محمد أبوعبدالله]

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

تفضل اخ الكريم

24 دقائق مضت, ازهر عبد العزيز said:

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

Private Sub id_clreck_NotInList(NewData As String, Response As Integer)
    MsgBox "غير مسجل", vbCritical, "officena"
    DoCmd.CancelEvent
    Me.Undo
    Response = acDataErrContinue
End Sub

 

25 دقائق مضت, ازهر عبد العزيز said:

 

2-عند ادخال السيريل للموظف ولم يكن موجود حاليا في المؤسسة يظيف بشكل تلقائي 1 الى الحقل num_in     ثم ينتقل الى سجل جديد

3-عند خروج الموظف ودخولة مرة ثانية  وعند اختيارة بواسطةالسيريل في سجل جديد يزداد رقم دخولة في الحقل num_in  في سجل دخولة السابق  ثم ينتقل الى سجل جديد

Private Sub id_clreck_Click()
    Me.num_clreck = Nz(DLookup("[num_in]", "[TBtime]", "[id_clreck] =" & id_clreck), 0) + 1
End Sub

TIME.rar

تحياتي

[ازهر عبد العزيز]

الاستاذ محمد أبوعبدالله  كالعادة مبدع لكن هناك مشكلة اتمنى ان تجد لها حل وهو  عند خروج الموظف ودخولة مرة ثانية  وعند اختيارة بواسطةالسيريل في سجل جديد يزداد رقم دخولة في الحقل num_in  في سجل دخولة السابق  ثم ينتقل الى سجل جديد اي الموظف صاحب السيريل 6957659008934 يكون عدد دخولة 4 في الحقل num_in في السجل الاول دون الحاجة الى تكرار  السجلات البقية كما في الصورة وشكرا لك

[محمد أبوعبدالله]

استبدال السطر

Me.num_clreck = Nz(DLookup("[num_in]", "[TBtime]", "[id_clreck] =" & id_clreck), 0) + 1

بالتالي

Me.num_clreck = Nz(DLast("[num_in]", "[TBtime]", "[id_clreck] =" & id_clreck), 0) + 1

TIME.rar

تخياتي

[ازهر عبد العزيز]

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

[محمد أبوعبدالله]

مرحبا اخي الكريم

فضلا تجربة الحل المرفق

TIME.rar

تحياتي

[ازهر عبد العزيز]

الاستاذ محمد مازالت السجلات تتكرر  لكنك تستحق افضل اجابة لانك اجبت عن استفسارين شكرا لك يا وحش الاكواد 😈

 

[محمد أبوعبدالله]

منذ ساعه, ازهر عبد العزيز said:

مازالت السجلات تتكرر

دعنا نجرب طريقة اخرى

On Error GoTo err:
    
    Dim mySQL As String
    Dim rst As Recordset
    Dim i As Double
    
    mySQL = "Select * From TBtime"
    mySQL = mySQL & " WHERE id_clreck = " & Me.id_clreck
    Debug.Print mySQL
    Set rst = CurrentDb.OpenRecordset(mySQL)
    
    For i = 1 To 1
        rst.Edit
        rst!num_in = rst!num_in + 1
        rst.Update
    Next
    
    Me.num_clreck = 1
    
err:
    If err.Number = 3021 Then
        mySQL = "Select * From TBtime"
        mySQL = mySQL & " WHERE id_clreck = " & Me.id_clreck
        Debug.Print mySQL
        Set rst = CurrentDb.OpenRecordset(mySQL)
        
        For i = 1 To 1
            rst.AddNew
            rst!num_in = rst!num_in + 1
            rst.Update
        Next
        
        Me.num_clreck = 1
    End If

TIME.rar

من فضلك اعلمني بالنتيجة

تحياتي

[ازهر عبد العزيز]

الاستاذ الطيب محمد الحقول المحددة لا احتاجهن 

[محمد أبوعبدالله]

4 ساعات مضت, ازهر عبد العزيز said:

الحقول المحددة لا احتاجهن 

هل تقصد عدم تكرار الحقل id_clreck والزيادة تكون في num_in في نفس السجل

اذا كان الامر كذلك فما مشكلة الكود الاول

Me.num_clreck = Nz(DLast("[num_in]", "[TBtime]", "[id_clreck] =" & id_clreck), 0) + 1

برحاء توضيح اكثر ولك الشكر

تحياتي

[ازهر عبد العزيز]

من العجيب ان يفهم السؤال المجيب اكثر من السائل فانت يا استاذ نظرت الى قاعدة البيانات نظرة احترافية فعلا لابد يتكرر السجل لان وقت الدخول ووقت الخروج في الجدول tbtime لا بد ان يذكر شكرا يا استاذ نم الحل معك

[محمد أبوعبدالله]

18 دقائق مضت, ازهر عبد العزيز said:

نم الحل معك

بالتوفيق اخي الكريم

تحياتي