Jump to content
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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


Go to solution Solved by محمد أبوعبدالله,

Recommended Posts

السلام عليكم 

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

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

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

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

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

 

 

TIME.accdb

Edited by ازهر عبد العزيز
Link to post
Share on other sites
  • Solution

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

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

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
Link to post
Share on other sites

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

Capture.PNG

Link to post
Share on other sites

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

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
Link to post
Share on other sites
منذ ساعه, ازهر عبد العزيز 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
Link to post
Share on other sites
4 ساعات مضت, ازهر عبد العزيز said:

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

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

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

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

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

تحياتي

Link to post
Share on other sites

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

Link to post
Share on other sites

Join the conversation

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

Guest
Reply to this topic...

×   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.

  • Recently Browsing   0 members

    No registered users viewing this page.

×
×
  • Create New...