عمل رقم سري لفتح نموذج

كيف ممكن نرفق الملف

الحمد لله استطعنا الدخول بالاسم السابق

لكن لازالت مشكلة تحميل الملف لم اشاهد مكان التحميل

سوف احملها في موقع اخر ونضع الرابط

الملف المرفق

السلام عليكم اخ طلال

كيف ممكن تحميل من موقع اخر

ولك جزيل الشكر

أخي الكريم

اقتباس

اقتباس

والمطلوب :

أن يتم عند الخطا إعادة المحاولة لعدد معين من المرات وليكن ثلاث أو خمس

بحيث تظهر رسالة تبين له أن الرقم خطا ويمكنك المحاولة مرة اخرى وهي المحاولة رقم 2 وهكذا حتى المحاولة الاخيرة تظهر رسالة تبين ان الرقم خطا وهذه المحاولة الاخيرة وسيتم اغلاق القاعدة اذا لم يكن الرقم صحيح

الجواب على سؤالك الاول وهو السماح بعدة محاولات ولتكن ثلاث محاولات مثلا :

إذهب للنموذج ( pass4 ) ، و أنشئ عليه حقل غير منضم وسمه ( S )

اجعل القيمة الافتراضية لهذا الحقل ( S ) : صفر إي ( 0 )

يوجد على هذا النموذج زر أمر مكتوب عليه ( موافق ) واسمه ( amr1 ) ، امسح جميع ما هو مكتوب داخل هذا الامر وقم بلصق هذا الكود بداخله مرة أخرى :

Private Sub amr1_Click()
s = s + 1
Select Case s
Case 1
    form1 = "الواجهة"
    pass = [Forms]![pass1]![a]
    If IsNull([a]) Or [a] <> pass Then
    MsgBox "كلمة المرور غير صحيحة.هذه المحاولة الاولى ،،، باقي لك محاولتان فقط للدخول لقائمة البرنامج!!!!"
        Else
        DoCmd.Close
        DoCmd.OpenForm form1
    End If
 Case 2
    form1 = "الواجهة"
    pass = [Forms]![pass1]![a]
    If IsNull([a]) Or [a] <> pass Then
    MsgBox "كلمة المرور غير صحيحة.هذه المحاولة الثانية ،،، باقي لك محاولة واحدة للدخول لقائمة البرنامج !!!!"
        Else
        DoCmd.Close
        DoCmd.OpenForm form1
    End If
 Case 3
    form1 = "الواجهة"
    pass = [Forms]![pass1]![a]
    If IsNull([a]) Or [a] <> pass Then
    MsgBox "كلمة المرور غير صحيحة.هذه المحاولة الثالثة والاخيرة للدخول لقائمة البرنامج !!!!"
    MsgBox "عفوا ،،،، لقد كانت جميع المحاولات للدخول للبرنامج كلها خطأ ،،،، سوف تخرج من البرنامج !!!!"
    DoCmd.Quit
        Else
        DoCmd.Close
        DoCmd.OpenForm form1
    End If
End Select
End Sub

شاكر

السلام عليكم اخ طلال

ممتاز الله يعطيك العافيه

كيف ممكن تحميل من موقع اخر

ولك جزيل الشكر

أخي شاكر الزين

لا أعرف كيف نشكر على هذا العمل رائع بارك الله فيك ولا نقول لك إلا جزاك الله خير

أخي سمير

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

على الرحب والسعة أخي / طلال

شاكر

الأخ شاكر الزين :

شكرا لك وعملك زين .

أشرف خليل

أخي الفاضل / أشرف خليل

هذا جزء مما لديكم ،،،، والعين ما تعلا على الحاجب ،،،،

حفظك الله ورعاك ,,,,

شاكر