الدخول الى البرنامج بالباركود

[eng aoff]

السلام عليكم استاذتي الكرام

لدي المرفق التالي يحتوي على اسم مستخدم وكلمة سر ويعمل بصورة ممتازة والحمدلله ,,,,,,,ولكن المطلوب هو الدخول عن طريق بطاقة تحتوي على باركود الموظف بمعنى عندما يتم وضع قارئ الباركود على البطاقة يتم الدخول بدون اختيار اسم المستخدم او كتابة كلمة السر 

وجزاكم الله خيراً

 

 

مستخدم.accdb

[jjafferr]

وعليكم السلام 🙂

 

عندك حقل بإسم المعرف ، فهل هذا حقل الباركود ؟

 

جعفر

[eng aoff]

نعم استاذ جعفر المعرف هو حقل الباركود

[jjafferr]

تفضل 🙂

 

Private Sub B_Code_AfterUpdate()

    If DCount("*", "المستخدمين", "[المعرف]=" & [Forms]![الدخول]![B_Code]) > 0 Then

        Dim SplitUp()    As String
        Dim StrMyLookup  As String



        StrMyLookup = DLookup("[الصلاحية] & '|' & [اضافة] & '|' & [حذف] & '|' & [تعديل] & '|' & [كلمة السر] & '|' & [اسم المستخدم]", "المستخدمين", "[المعرف]=" & [Forms]![الدخول]![B_Code])
        SplitUp = Split(StrMyLookup, "|")

        Me.الصلاحية = SplitUp(0)
        Me.اضافة = SplitUp(1)
        Me.حذف = SplitUp(2)
        Me.تعديل = SplitUp(3)
    
        Me.كلمة_السر = SplitUp(4)
        Me.اسم_المستخدم = SplitUp(5)
    Else

        Exit Sub
    End If
    
End Sub

 

جعفر

 

1198.مستخدم.accdb.zip

[eng aoff]

هذا هو المطلوب استاذ جعفر ,,,,,, جزاك الله خيرا وربي يحفظك 🙂