البحث في الموقع
Showing results for tags 'اضافة رسالة الى هذا الكود'.
تم العثور علي 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- رسالة تاكيد مفادها (( تم تغيير كلمة المرور للمستخدم/ اسم المستخدم بنجاح )) وياخذ الكود اسم المستخدم من حقل اسم المستخدم وشكرا لكم
