تغيير كلمة سر المستخدم

[Mohammad0988]

اذا ممكن مساعدة في طريقة تغيير كلمة السر للمستخدم

بحيث يطلب كلمة السر القديمة قبل التعديل

وشكرا يوجد ملف مرفق

للرفع

مستخدم.rar

[Shivan Rekany]

4 ساعات مضت, Mohammad0988 said:

اذا ممكن مساعدة في طريقة تغيير كلمة السر للمستخدم

بحيث يطلب كلمة السر القديمة قبل التعديل

وشكرا يوجد ملف مرفق

للرفع

مستخدم.rar

اتفضل 

Private Sub opn_Click()
    If Len(Me.txtpass & "") = 0 Then
            MsgBox "ادخل رقم سري القديم"
            Me.txtpass.SetFocus
            Exit Sub
        ElseIf Len(Me.txtpasscadid & "") = 0 Then
            MsgBox "ادخل رقم سري الجديد"
            Me.txtpasscadid.SetFocus
            Exit Sub
        ElseIf Len(Me.txtpasscedid1 & "") = 0 Then
            MsgBox "ادخل رقم سري الجديد للتأکيد"
            Me.txtpasscedid1.SetFocus
            Exit Sub
        ElseIf DLookup("[USER_PASSWORD]", "data1", "[USER_NAME]='" & Me.txtname & "'") <> Me.txtpass Then
            MsgBox "خطأ في رقم سري القديم"
            Me.txtpass.SetFocus
            Exit Sub
        ElseIf Me.txtpasscadid <> Me.txtpasscedid1 Then
            MsgBox "ھناک خطأ في تأكيد رقم سري الجديد"
            Me.txtpass.SetFocus
            Exit Sub
        ElseIf DLookup("[USER_PASSWORD]", "data1", "[USER_NAME]='" & Me.txtname & "'") = Me.txtpass And Me.txtpasscadid = Me.txtpasscedid1 Then
            Dim Sql As String
            Sql = "UPDATE data1 SET data1.USER_PASSWORD = [Forms]![Changepassord]![txtpasscadid] WHERE (((data1.USER_NAME)=[Forms]![Changepassord]![txtname]));"
            DoCmd.SetWarnings False
            DoCmd.RunSQL (Sql)
            DoCmd.SetWarnings True
            MsgBox "تم تغيير رقم سري بنجاح"
            DoCmd.Close acForm, Me.Name
    End If
    
End Sub

اليك المرفق

 

مستخدم.rar

[Mohammad0988]

شكرا جزيلا لك اخي الكريم الطريقة رائعة جدا