فتح نموزج من نموزج بكلمة مرور

تفضل اخي الكريم

ستجد الشرح على النموذج رقم 2

zaccc_up.rar

سعيد جداااااااااااااااااااااااااااااااااااا

بردك وبتواجدك معنا " كل عام وانتى بخير وبصحة جيدة "

لى أستفسار صغير - رأيت الكود فى حدث عند الفتح - كذالك الوحدة النمطية بس ازاى حددى الباسورد

بمعنى أن الباسورد غير موجود نهائى - يايرت شرح بسيط

مثلا ضع الكود الفلانى عند حدث كذا على الزر كذا وأصنع تلك الوحدة النمطية وضع الباسورد هنا --- وهكذا

ضعى فى أعتبارك أن اخوانك ليسوا بالكفاءة ولا الخبرة - خبرة زهرة العبد

والله يوفقك دائما

وشكرا

اخي الفاضل

الموضوع ابسط واسهل مما تتصور انظر الى الخطوات التالية

1. نحتاج الى وحده نمطية بسيطة جدا لتحديد الرايات Flag بمعنى السماح اذا كانت كلمة السر صحيحة True او عدم السماح اذا كانت غير صحيحة False

Option Explicit

Global gintPasswordFlag As Integer
Global gOkToClose As Integer

2. نحتاج الى نموذج جديد نسميه frmPassword حيث نضع به الرقم السري والأكواد الخاصة للتأكد من صحة الرقم السري

3. عند فتح النموذج رقم 2 frm وعند الضغط على زر الأمر يقوم بقتح نموذج frmPassword وهذا النموذج يوجد به الكود التالي

Private Sub PASSWORD_AfterUpdate()
On Error GoTo err_PASSWORD_AfterUpdate

	If Me![PASSWORD] = "za1234" Then
		gOkToClose = True
		DoCmd.Close A_FORM, "frmPassword"
		DoCmd.Close
		DoCmd.OpenForm "frm1"

	Else
		' ثلاث محاولات للدخول الصحيح
		Select Case gintPasswordFlag
		Case 1 To 2
			DoCmd.Beep
			MsgBox "الرقم السري ", 16, "الرقم السري غير صحيح"
			gintPasswordFlag = gintPasswordFlag + 1
		Case Else
			DoCmd.Beep
			DoCmd.Quit
		End Select
	End If

exit_PASSWORD_AfterUpdate:
	Exit Sub

err_PASSWORD_AfterUpdate:
	MsgBox "Error " & Err & ": " & Error$, 0, "الرقم السري"
	Resume exit_PASSWORD_AfterUpdate

End Sub

لاحظ اننا وضعنا الأمر في حدث بعد التحديث لمربع النص PASSWORD الموجود في النموذج frmPassword ثم نقوم بإستدعاء الوحدة النمطية فإن كان الرقم السري المدخل صحيح فيتم اغلاق النموذجين frmPassword و frm2 وفتح النموذج frm1

ايضا تم اضافة 3 محاولات لإدخال الرقم السري فإن كانت كلها خاطئة يتم انهاء البرنامج نهائيا . وكما تشاهد من الكود ان الرقم السري هو za1234 بإمكانك تغييره الى اي شيء تريده .

ايضا مع ملاحظة الأكواد الموجوده في حدثي عند التحميل وعند عدم التحميل .

هذا كل ما في الموضوع ويعتبر هذا من ابسط انواع الأكواد الخاصة بالرقم السري .

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

دائما رائعة

تبهرينى حقا ليس بخبرتك فقط ولكن أيضا بسماحتك وسعة صدرك

فليزيدك الله نعمة وفضلا ويبارك لكى فى كل شى

وشكرا