alfaaleh

اضافة رسالة تاكيد للكود التالي

1 مشاركة في هذا الموضوع

If [password] = [n1] And [n2] = [n3] Then
[password] = [n3]
[n1] = ""
[n2] = ""
[n3] = ""
Else
If [password] <> [n1] Then
Ms$ = "كلمة السر القديمة سيتم غلق البرنامج"
Ti$ = "خطا في كلمة السر"
Re = MsgBox(Ms$, 0, Ti$)
DoCmd.Quit
Else
If [n2] <> [n3] Then
Ms$ = "كلمة السر الجديدة غير متطابقتان"
Ti$ = "خطا كلمة السر"
Re = MsgBox(Ms$, 0, Ti$)
Else
End If
End If

End If

الكود بعاليه لتغيير كلمة السر ويعمل ما فيه مشكلة بس حاب اضيف

1- رسالة تاكيد مفادها :       تم تغيير كلمة المرور للمستخدم/ اسم المستخدم  بنجاح

وياخذ الكود اسم المستخدم من حقل اسم المستخدم

وشكرا لكم

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان

  • يستعرض القسم حالياً   0 members

    لا يوجد أعضاء مسجلين يشاهدون هذه الصفحة .