شاشة دخول ( Login ) مساعدة

[abdulmajid]

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

 

عندي مشكلة بختصار أبي اعمل Login  لاكن بدون جدول لي user  فقط داخل الكود اكتب اسم المستخدم وكلمة السر

 

 

السبب /  لأن عند استيراد الجداول ومعهم طبعا جدول اليوزر ينكشف الرقم السري !!

 

لهذا السبب ابي اعمل اسم مستخدم وكلمة سر بدون جدول فقط داخل الكود داخل vbn  وشكرا 

 

 

[Khalid Jnb]

السلام عليكم

كود سيط لعمل كلمة مرور   يوضع بعد التحديث او عند الضغط بزر

 

If [password] = 123  Then
  MsgBox "تفضـل بالدخـول", , "مبـروك"
  DoCmd.Close
  DoCmd.OpenForm "اسم النموذج"
ElseIf [password] <> 123  Then
    MsgBox " كلمة المرور خطأ ", 16, "تنبيه"
    [password] = Null
  End If

 

test.rar

تم تعديل ديسمبر 19, 2019 بواسطه خالد سيسكو

[abdulmajid]

كفو يا غالي ماقصرت 

 

انا عندي اثنين اسم مستخدم واثنين كلمة سر

 

وكل يوزر له صلاحيات معينه 

 

كيف هنا اعرف اليوزر ؟

 

والله يوفقك يارب

[abdulmajid]

شوف الله يعزك هذا الكود الي عندي كيف اعدل عليه بدون ما يروح لجدول اليوزر والصلاحيات 

 

Private Sub Command10_Click()
If pass = Password Then
DoCmd.OpenForm "mainform", acNormal
[Forms]![mainform]![usr] = usr
[Forms]![mainform]![userlevel] = userlevel
DoCmd.Close acForm, "loginusers"

If [Forms]![mainform]![userlevel] = "Admin" Then
[Forms]![mainform]!Command177.Enabled = True
[Forms]![mainform]!Command1.Enabled = True
[Forms]![mainform]!Command2.Enabled = True
[Forms]![mainform]!Command0.Enabled = True
End If


If [Forms]![mainform]![userlevel] = "2" Then

[Forms]![mainform]!Command1.Enabled = True


End If
If [Forms]![mainform]![userlevel] = "1" Then
[Forms]![mainform]!Command177.Enabled = True


End If


Else
ms$ = "User Name or Password is incorrect"
ti$ = "Login"
re = MsgBox(ms$, 0, ti$)

End If

End Sub

[Khalid Jnb]

اخي العزيز  

هذا مثال لاحد الاخوة بالموقع

اتمنى يكون المطلوب

officena.rar

اخي العزيز/ ارفق نموذج للعمل للسرعة 

[abdulmajid]

الله يعزك يارب اطلعت على المرفق مربوط بجدول نفس المشكلة الي اعاني منها

 

راح ارفق لكم مثال واتمنى التعديل عليه 10 دقايق وانزله لكم 

[sandanet]

مارأيك بجدول فيه الارقام السرية مشفرة؟ انظر المرفق

تشفير باسورد المستخدم عند الادراج وفك تشفيره عند تسجيل الدخول.accdb

[abdulmajid]

استاذ Sandanet فكرة التشفير رائعة بس مش زابطة معاي ماعرفت كيف اعدل الكود ياليت تساعدني

 

ارفقت لكم القاعدة البيانات ياليت تساعدوني يا تشفير مثل الاستاذ  Sandanet  او بطريقة الغي الجدول

 

 

وشكرا من القلب 

 

 

q.rar

[abdulmajid]

اللهم صلى وسلم على نبينا محمد الله يهنيكم يارب ويجعل ايامكم كلها توفيق وسعادة 💐

[Khalid Jnb]

السلام عيكم

بعد اذن الاستاذ sandanet 

ملفك بعد التعديل عليه من ملف الاستاذ sandane ان شاء الله يكون المطلوب 

q.rar

[abdulmajid]

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

 

اطلعت على العمل الذي قمت به مشكورا لاكن للاسف إلى الان لم يتحقق الهدف انت حذفت فورم اليوزر والصلاحيات من فورم login   مازلت المشكلة موجودة

 

🙂

 

شكرا لك

[Khalid Jnb]

اخي العزيز abdulmajid انتظرني قليلا انني اعمل عليه  

انظر للمرفق / وضعت صلاحيات المستخدم داخل النموذج  ويمكنك تغيير مكانها  اووضعها في نموذج منقصل او اخفائها 

اعلمنا النتائج 

q.rar

تم تعديل ديسمبر 20, 2019 بواسطه خالد سيسكو

[abdulmajid]

كفوو❤️

[abdulmajid]

والله خجلان منك لازالت المشكلة موجودة

 

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

لأن الازرار الاسياسية في الفورم mineform  ما ابيهم يتفعلون مثل ما هو واضح بالصلحيات لكل يوزر صلاحية ووضعة انت تصني بالجدول يوزر خاص بالصلاحيات الله يوفقك ويسعدك يارب

 

انا قمت بتعديل الكود وتسجيل الدخول بوقت سابق لاكن الصلاحيات مو راضية تتفعل مش عارف وين المشكلة معطل جميع الازرار معاي !

 

وهذا المشكلة الي اعاني منها الان .

 

تقبل كل ودي واحترامي 

[Khalid Jnb]

السلام عليكم

انظر للمرفق  

الاسم : kh    كلمة المرور: 12345

 

q.rar

تم تعديل ديسمبر 20, 2019 بواسطه خالد سيسكو

[abdulmajid]

الف شكرا ما قصرت وبيض الله وجهك يا استاذنا الغالي ❤️

تم تعديل ديسمبر 21, 2019 بواسطه abdulmajid

[عبد الحفيظ]

في ١٩‏/١٢‏/٢٠١٩ at 21:58, sandanet said:

مارأيك بجدول فيه الارقام السرية مشفرة؟ انظر المرفق

تشفير باسورد المستخدم عند الادراج وفك تشفيره عند تسجيل الدخول.accdb 348 kB · 23 تنزيلات

أحينت بارك اله فيك.