تحديد مستخدمين الدخول في الكود

[looodi]

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

 

لدي كود دخول اريد تحديد الاسم والرقم السري للدخول ثابتاً في هذا الكود بحيث لو ادخل المستخدم اسم مخالفاً لما موجود في الكود لايدخل

الاسم admin

الرقم السري 1010

Private Sub login_Click()
    Dim MyPass As String
        MyPass = DLookup("[psswrd]", "useres", "[user_name]='" & Me.User_namee & "'")
    If Me.psswrd = "1010" Then
            MsgBox "successfully registered"
            DoCmd.OpenForm "tblnew"
        Else
            MsgBox "Make Sure that username and password are correct"
    End If


End Sub

 

تم تعديل مايو 15, 2017 بواسطه jjafferr
تم وضع الكود في وضعه الحالي بإستخدام <> من قائمة التنسيق

[jjafferr]

وعليكم السلام أختي

 

من الكود عندك:

DLookup("[psswrd]", "useres", "[user_name]='" & Me.User_namee & "'")
    If Me.psswrd = "1010" Then

هذا معناه ان حقل الاسم وحقل الرقم السري ، هم نص ،

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

 

جعفر

[looodi]

20 hours ago, jjafferr said:

وعليكم السلام أختي

 

من الكود عندك:

DLookup("[psswrd]", "useres", "[user_name]='" & Me.User_namee & "'")
    If Me.psswrd = "1010" Then

هذا معناه ان حقل الاسم وحقل الرقم السري ، هم نص ،

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

 

جعفر

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

لذالك اريد تحديد اسم مستخدم للنموذج الثاني اريد ان اقوم بكتابه الاسم بالكود

[looodi]

up

[jjafferr]

اذن يجب تطابق الاسم والرقم

MyPass = DLookup("[psswrd]", "useres", "[user_name]='" & Me.User_namee & "'")
    If Me.psswrd = "1010" and MyPass = "Admin" Then

 

جعفر

 

[looodi]

1 hour ago, jjafferr said:

اذن يجب تطابق الاسم والرقم

MyPass = DLookup("[psswrd]", "useres", "[user_name]='" & Me.User_namee & "'")
    If Me.psswrd = "1010" and MyPass = "Admin" Then

 

جعفر

 

يطهر لي خطا هنا باللون الاصفر    If Me.psswrd = "1010" and MyPass = "Admin" Then

[jjafferr]

اذا ممكن اشوف الحدث بالكامل لوسمحتي

[looodi]

21 minutes ago, jjafferr said:

اذا ممكن اشوف الحدث بالكامل لوسمحتي

Private Sub login_Click()
    Dim MyPass As String
        MyPass = DLookup("[psswrd]", "useres", "[user_name]='" & Me.User_namee & "'")
    If Me.psswrd = "1010"  Then
            MsgBox "successfully registered"
            DoCmd.OpenForm "tbl_new"
        Else
            MsgBox "Make Sure that username and password are correct"
    End If

End Sub

[jjafferr]

وين الكود اللي انا اقترحته انا !!

[محمدنجار]

40 دقائق مضت, jjafferr said:

وين الكود اللي انا اقترحته انا !!

::: أكله الذئب

[looodi]

انا قمت باضافة فقط الكود الذي كتبته

[jjafferr]

2 دقائق مضت, looodi said:

انا قمت باضافة فقط الكود الذي كتبته

لوسمحتي ترفقين شيء ممكن اساعدك فيه