*حماية* نموذج كلمة السر يسمح بخمس محاولات فقط

الأخ 5060

هل الكلمة السرية للقاعدة ككل يعني لنموذج يظهر في بداية التشغيل ، أم لنموذج واحد منها بحيث تمنع المستخدم من الاطلاع عليه فقط دون بقية كائنات القاعدة ؟

وما هو اسم النموذج ؟

ولك تحياتي

اخي الكريم

اسم النموذج " FrmPassword "

وهو يظهر عند بداية تشغيل البرنامج "افتراضي في بدء التشغيل"

وقد لفت انتباهي عند قراءة ردك سؤالك التالي:

"أم لنموذج واحد منها بحيث تمنع المستخدم من الاطلاع عليه فقط دون بقية كائنات القاعدة ؟ "

وفعلاً أنا محتاج للموضوعين معاً ولكن لا أحب أن أكون طماع على حساب راحة الأخرين 0

أهم شيء الكلمة السرية للقاعدة ككل يعني لنموذج يظهر في بداية التشغيل

ولك تحياتي

أرى الفقير يتلوى بجوعه

...........................وذا الغنى برغد العيش ينعم

الأخ 5060

عذراً على التأخر في الإجابة .

1- يجب أن يكون على النموذج زري أمر الاول باسم موافق والثاني إلغاء الأمر .

2- اجعل خاصية مشروط الى نعم .

3- في صفحة الخصائص قائمة مختصر اختر لا .

4- في حدث نقر زر الأمر إلغاء الأمر ضع :

DoCmd.Quit

5- في حدث عند التحميل للنموذج ضع :

Dim الوقت_المسجل
الوقت_المسجل = GetSetting(Me.Name, Me.Name, "****")
If Len(الوقت_المسجل & "") = 0 Then Exit Sub
If DateAdd("n", 1, الوقت_المسجل) > time() Then
MsgBox "عفوً لست من الأشخاص المسموح لهم بالإطلاع على البرنامج ", vbMsgBoxRight + vbMsgBoxRtlReading, "مستخدم غير مصرح له"
DoCmd.Quit
End If

6- في حدث عند نقر زر موافق ضع :

Static عدد_المحاولات As Integer

If UserName = "اسم" And Password = "كلمة" Then
DoCmd.Close
Else
MsgBox "اسم المستخدم أو كلمة السر التي أدخلتها غير صحيحة ."
عدد_المحاولات = عدد_المحاولات + 1
End If

If عدد_المحاولات = 5 Then
MsgBox "عفوً لست من الأشخاص المسموح لهم بالإطلاع على البرنامج ", vbMsgBoxRight + vbMsgBoxRtlReading, "مستخدم غير مصرح له"
SaveSetting Me.Name, Me.Name, "****", time()
DoCmd.Quit
Exit Sub
End If

غير الكلمة السرية بما تحب في الكود وكذلك اسم المستخدم .

جرب وأخبرني بالنتيجة .

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

ولك تحياتي

للرفع((للفائدة))و((الأرشيف))