اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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


abdulmajid

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

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

 

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

 

 

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

 

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

 

 

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

السلام عليكم

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

 

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

 

test.rar

تم تعديل بواسطه خالد سيسكو
  • Like 2
رابط هذا التعليق
شارك

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

 


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
رابط هذا التعليق
شارك

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

 

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

 

:signthankspin:

 

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

 

 

q.rar

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

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

 

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

 

🙂

 

شكرا لك

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

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

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

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

q.rar

تم تعديل بواسطه خالد سيسكو
  • Like 1
رابط هذا التعليق
شارك

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

 

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

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

 

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

 

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

 

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

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

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

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

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

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