مشكلة في تعديل كلمة السر .. صلاحيات المستخدمين

[qathi]

هذا ملف الخاص بصلاحيات المستخدمين المشهور قمت بعمل بعض الاضافات وتطوير بما يتناسب معي 

حيث يمكن أستخدام كود الاستدعاء الصلاحيات اما المختصر المعمول بدالة دي لوكب في مديول UsersAbility

 

Call Privilege(Me) ' يوضع عند فتح النموذج

أو الكود السابق  الطويل والمعقد

 

متبقي حل مشكلة واحدة فقط .. وهي بعد الدخول الى الشاشة الرئيسية ومن  زر تعديل كلمة السر المربوط بنموذج ( UsersChangePassword_F ) وبعد الضغط على موافق يتم ايقاف برنامج اكسس

ارجوا المساعدة بحلها

 

اسم: qathi باسورد: 0

اسم: alli باسورد: 9

 

مرفق الملف:

تطوير صلاحيات المستخدمين.rar

 

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

[qathi]

للرفع .. 

هل الطلب غير واضح ؟؟

[qathi]

للرفع .. للأهمية

 

[saaad 213]

الطلب عن تغير كلمة السر يتوقف البرنامج ولا يتم تغير كلمة السر

[qathi]

بل فعل أخي @saaad1 هذا هو الطلب ..

7 دقائق مضت, saaad1 said:

الطلب عن تغير كلمة السر يتوقف البرنامج ولا يتم تغير كلمة السر

 

[kaser906]

في ٢٠‏/٧‏/٢٠١٩ at 18:55, qathi said:

متبقي حل مشكلة واحدة فقط .. وهي بعد الدخول الى الشاشة الرئيسية ومن  زر تعديل كلمة السر المربوط بنموذج ( UsersChangePassword_F ) وبعد الضغط على موافق يتم ايقاف برنامج

تفضل

كود فتح نموذج تعديل كلمة السر

On Error GoTo Err_Orders1_Click
 Dim x As Integer
 x = DLookup("SN", "users_T", "deCode([UName],'User')='" & Trim(MyUser.USERNAME) & "'")
   DoCmd.OpenForm "UsersChangePassword_F", , , , , acDialog, x
Exit_Orders1_Click:
    Exit Sub
Err_Orders1_Click:
    MsgBox Err.Description
    Resume Exit_Orders1_Click

وهذا الكود لتعديل كلمة السر بعد التأكد من المطابقة

If IsNull([paas]) Then
MsgBox "أدخل كلمة المرور hgshfrm", 48, "نقص بالإدخال"
Exit Sub
ElseIf Me.paas <> Me.Pww Then
MsgBox "كلمة المرور السابقة غير مطابقة", 48, "خطأ بالادخال"
Exit Sub
ElseIf IsNull([PW]) Or IsNull([CPW]) Or [PW] <> [CPW] Then
MsgBox "كلمة المرور الجديدة غير متطابقة" + vbCr + "أو أنها فارغة" + vbCr + "الرجاء إعادة كتابة كلمة المرور", vbOKOnly + vbMsgBoxRight + vbExclamation, "خطأ بالإدخال"
Exit Sub
ElseIf [CPW] = [Pww] Then
MsgBox "كلمة المرور الجديدة" + vbCr + "هي نفسها كلمة المرور القديمة " + vbCr + "أدخل كلمة مرور مختلفة ", 48, "خطأ بالادخال"
Exit Sub
ElseIf Len([CPW]) < 4 Then
     MsgBox "يجب أن تتكون كلمة المرور " + vbCr + "من أربعة ارقام او حروف على الاقل", 48, "ادخـال خـاطـئ !"
Exit Sub
Else
DoCmd.RunSQL "UPDATE Users_T SET UName = '" & incode(UN, "User") & "' , PW = '" & incode(PW, "Pass") & "' WHERE ( SN=" & Str(UNUM) & ");"
MsgBox "تم تغيير كلمة المرور بنجاح", vbInformation, "تنفيذ"
DoCmd.Close
    End If

تم عمل مربعي نص غير منظمين

إليك المرفق

::بالتوفيق::

 

Kaser906 صلاحيات المستخدمين.rar

[qathi]

االحمدلله .. واخيرا .. 

أشكرك أخي @kaser906 ابو محمد .. بارك الله فيك .. على مجهودك وبذلك من وقتك .. 

أسأل الله أن يرزقك بر أولادك .. والخير كله .. وأن يسترك فوق الارض وتحت الارض ويوم العرض

جعل الله هذا العمل ذخرا لك يوم ان تلقاه

 

[kaser906]

جزاك الله خير

لاتنسى التأشير بتمة الاجابة

::بالتوفق::