مساعدة بالكود vba

[solomoon]

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

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

وشكرا لكم

Private Sub Command6_Click()
On Error Resume Next
Dim z As String
z = Nz(DLookup("[passe]", "login", "utilisateur=Forms!changepass!utilisateur"))
If IsNull(utilisateur) Then
'MsgBox "رجاء أدخل اسم المستخدم"
Beep
ms$ = "الحقل الخاص باسم المستخدم فارغ"
ti$ = "انتباه"
re = MsgBox(ms$, 0, ti$)
DoCmd.GoToControl "utilisateur"
Else
If IsNull(passe) Then
MsgBox "رجاء أدخل كلمة السر"
DoCmd.GoToControl "passe"
Else
If IsNull(zxx) Then
MsgBox "المرجو إدخال كلمة السر الجديدة"
DoCmd.GoToControl "zxx"
Exit Sub
End If
End If
End If
If Me.passe = z Then
DoCmd.SetWarnings False
DoCmd.OpenQuery "Q"
DoCmd.SetWarnings True
MsgBox "تم تغيير كلمة السر بنجاح"
utilisateur = ""
passe = ""
zxx = ""
Else
MsgBox "خطأ فى اسم المستخدم أو كلمة المرور", vbOKOnly, "صلاحيات المستخدمين"
passe = ""
DoCmd.GoToControl "passe"
End If
End Sub

 

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