كلمة مرور! المساعده

وعليكــم السـلام ورحمة الله وبركاتـه..

مرحباً بك اخي ghazi n بين اخوانك وان شاء الله تفيد وتستفيد

تفضل مثال على المطلوب

بالتوفيق ومرحباً بك مرة اخرى

ButtonWithPassword.rar

وعليكــم السـلام ورحمة الله وبركاتـه..

اهلاً بك أخي الكريم

لاحظ الملف المرفق كلمة مرور ولا اسهل فقط لاحظ الكود في حدث عند الفتح للنموذج ...

كلمة المرور 123 ويمكنك تغييرها من نفس الكود

===========================

ردي وردك أخي واستاذي / يوسف اتى بنفس الوقت آسف ...

db1.rar

شكرا لكم...

لقد حاولت تطبيق مثال اخي يوسف احمد... ولكن عند الظغط على الزر لايظهر شيئ

بالمرفقات المثال وتطبيقي عليه...

FrmMain هو تطبيق اخي أحمد... عند ادخال كلمة المرور سوف يفتح نموذج Hi

Go هو تطبيقي... عند الظغط على الزر لايظهر شيئ... مع اني نسخت نفس الكود...

ارجو المساعده يا اخوان

تحميل الملف من هنا

السلام عليكــم ورحمـة الله وبركاتــه ،،

بارك الله فيكم اخواني جميعاً

اخي ghazi n

المرفق لا يعمل

عموماً ساشرح لك الكود حتى تتمكن من التطبيق ان شاء الله

Dim strPassword As String
	strPassword = InputBox("فضلاً ادخل كلمة السر", "دخول")
	If strPassword = "يوسف" Then
		DoCmd.Close
		DoCmd.OpenForm "frm1"
	Else
		MsgBox "كلمة مرور غير صحيحة", vbOKOnly + vbInformation + vbMsgBoxRight, "تنبيه"
	End If

السطر الاول : تعريف متغير باسم strPassword كمتغير نصي

السطر الثاني : اسناد قيمة لهذا المتغير بحيث تكون مربع ادخال يطلب كلمة مرور

السطر الثالث : اختبار قيمة هذا المتغير ( اي القيمة المدخلة بمربع الادخال ) بالامر If....Then فاذا كانت القيمة المدخلة تساوي الكلمة ( يوسف ) اذاً

السطر الرابع : يتم اغلاق النموذج

السطر الخامس : يتم فتح النموذج المسمى frm1

السطر السادس : تعني غير ذلك (Else )

السطر السابع : اظهار رسالة تفيد بعدم صحة كلمة المرور

السطر الثامن : انهاء جملة If الشرطية

لا دخل باسم النموذج FrmMain في الكود فهو النموذج الذي يتم فتح النموذج frm1 منه فقط.

ارجو ان يساعدك الشرح على التطبيق واهم من ذلك فهم العملية

بالتوفيق ان شاء الله