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

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

السلام عليكم 

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

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

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

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

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

 

 

TIME.accdbFetching info...

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

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

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

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

  في 16‏/9‏/2020 at 09:20, ازهر عبد العزيز said:

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

Expand  

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

 

  في 16‏/9‏/2020 at 09:20, ازهر عبد العزيز said:

 

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

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

Expand  

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

TIME.rarFetching info...

تحياتي

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

الاستاذ محمد أبوعبدالله  كالعادة مبدع لكن هناك مشكلة اتمنى ان تجد لها حل وهو  عند خروج الموظف ودخولة مرة ثانية  وعند اختيارة بواسطةالسيريل في سجل جديد يزداد رقم دخولة في الحقل 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.rarFetching info...

تخياتي

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

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

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

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

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

TIME.rarFetching info...

تحياتي

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

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

 

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

  في 17‏/9‏/2020 at 21:45, ازهر عبد العزيز said:

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

Expand  

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

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.rarFetching info...

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

تحياتي

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

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

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

  في 18‏/9‏/2020 at 12:35, ازهر عبد العزيز said:

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

Expand  

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

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

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

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

تحياتي

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

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

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

  في 19‏/9‏/2020 at 04:06, ازهر عبد العزيز said:

نم الحل معك

Expand  

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

تحياتي