• الإعلانات

    • فيصل الحربي

      تسجيل عضوية جديدة في المنتدى   01/31/2016

      السلام عليكم ورحمة الله وبركاته  عزيزي العضو الجديد :  حاليا رسالة الإيميل لتأكيد صحة إيميلكم تذهب للبريد العشوائي ( جاري حل المشكلة )  فإذا لم تجد رسالة التحقق من إيميلكم في صندوق الوارد لديكم إتجه للبريد العشوائي ( JUNK)  وقم بتفعيل إشتراككم من هناك   

البحث في المنتدى

Showing results for tags 'مسج للكود'.

  • البحث بالتاقات

    اكتب الكلمات المفتاحيه بينها علامه الفاصله
  • البحث بكاتب الموضوع

تم إيجاد 1 نتيجة

  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- رسالة تاكيد مفادها :       تم تغيير كلمة المرور للمستخدم/ اسم المستخدم  بنجاح وياخذ الكود اسم المستخدم من حقل اسم المستخدم وشكرا لكم