اذهب الي المحتوي
أوفيسنا

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


إذهب إلى أفضل إجابة Solved by محمد أبوعبدالله,

الردود الموصى بها

السلام عليكم 

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

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

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

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

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

 

 

TIME.accdb

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

  • أفضل إجابة

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

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

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

تحياتي

  • Like 1
رابط هذا التعليق
شارك

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

Capture.PNG

رابط هذا التعليق
شارك

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

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

تخياتي

  • Like 1
رابط هذا التعليق
شارك

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

رابط هذا التعليق
شارك

منذ ساعه, ازهر عبد العزيز 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

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

تحياتي

  • Like 1
رابط هذا التعليق
شارك

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

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

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

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

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

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

تحياتي

رابط هذا التعليق
شارك

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

رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information