الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

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

بدأه ghazi n في 13 أبريل 2009 · 4 رد · 392 مشاهدة · في قواعد بيانات Microsoft Access
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

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

اول مشاركه لي وارجو الافاجه من ه>ا المنتدى الرائع

لدي Form وأود طلب كلمة مرور قبل دخول هدا الـForm

لا احتاج الى اسم مستخدم...فقط كلمة مرور

بحثت في مواضيع المنتدى ولم اجد مايفيدني...

يوجد بعض المواضيع ولكن كانت طريقة شرحها صعبه لدي...

ارجو ايجاد طريقه بسيطه

#2

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

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

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

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

ButtonWithPassword.rar

#3

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

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

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

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

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

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

db1.rar

تم تعديل هذه المشاركة بواسطة أبو رهف في 13 أبريل 2009 في 14:54

(`'•.¸(` '•. ¸ * ¸.•'´)¸.•'´)

«´¨`.¸ أبو رهـــــــف ¸.´¨`»

(¸. •'´(¸.•'´ * `'•.¸)`'•.¸ )

¸.•’’ ’’

( `•.¸

`•.¸

#4

شكرا لكم...

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

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

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

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

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

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

تم تعديل هذه المشاركة بواسطة ghazi n في 19 أبريل 2009 في 09:13

#5

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

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

اخي 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 منه فقط.

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

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

مواضيع مشابهة