كيف اعمل كلمه السر لنموذج في الاكسس

السلام عليكم

عاده هزه الخاصيه

تستعمل للخزف للتاكيد

على كل حال ركبها متل ما بدك

مع تحيات ابو سمرا

ٌ‏م_ٌَي_للنموٍى.rar

يا اخي المهندس الكريم انا لا اعلم الا المبادي في الاكسس علما اني اشتغل عليه من فتره واتمنى منك شرح لي بالتفصيل ولا عليك امر لاني والله لا اعلم كيف اعمل كلمه سر واني والله احسدكم انقذني ساعدني

جزاك الله كل خير

السلام اخي سحاب

اول شي يعطيك العافيه ابو سمرا ومثال رائع

اخي سحاب مثال ابوسمرا رائع جدا ما عليك الا انت تنسخ الكود وتضعه في الفورم الي تريد عمل له الرقم السري

وشكرا

طيب يا عزيزي من هنا تكمن علتي اين الكود واين الصقه في اي مكان اعذروني على اني اتعبتكم معي شوي ولكن ليس معي الا الله ثم انتم

السلام عليكم

مابتعرف وين العروس بلزق الخميره اول دخلتها:D

وين بنحط الكود؟؟؟؟؟ شغله طويله ولله يامعلم

اعمل نموزج دزين يعني عند التصليح

اكبس على اجراء متلا / عند الفتح

عند الكبس دبل كليك يفتح لك فجول بيزك الزقه

ان شاء الله بتظبط معك

مع تحيات ابو سمرا

On Error GoTo Err_أمر20_Click
If MsgBox("هل تريدفتح النموزج اكتب الرقم السري 125؟ مع تحيات ابو سمرا", _
    vbCritical + vbYesNo, _
    "تحذير") = vbYes Then
    If InputBox("ادخل رقم السري من فظلك") <> "125" Then
    Else

   DoCmd.OpenForm "للعرض"
Exit_أمر20_Click:
    Exit Sub

Err_أمر20_Click:
    MsgBox Err.Description
    Resume Exit_أمر20_Click
     End If
    End If

حبيبي قلبي والله الف الف الف شكر

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

الأخوة الكرام

أرجو منكم فضلاً لا أمراً ، ممن يوجد لديه الملف أن يعيد تنزيله في هذا الموضوع ليستفيد منه الجميع.

ولكم كل التحية والتقدير.

عندما حاولت انزال الملف الموجود أعلاه تبين لي أنه معطوب , عندي مثال أجنبي جميل جدا لحماية النموذج أرفقه لمن يحب أن يستفيد منه.

لا تنسوني بدعائكم.

password2k.zip

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