سؤال مهم جداً ياشباب حول الباسوورد!؟!؟!؟!؟

العزيز أبو مالك1 ... السلام عليكم

بالنسبة لسؤالك الأول ... فضع هذا الكود في زر الأمر عند النقر :

Dim X As String
X = InputBox("enter the password")
If X = "123" Then
MsgBox ("you can access")
DoCmd.OpenForm "hh"
Else
MsgBox ("you can`t access")
DoCmd.Close
End If

بحيث أن 123 هي الشفرة ، وبإستطاعتك تغييرها ..

و hh تعني أسم النموذج المراد فتحه ..

وبالنسبة لسؤالك الثاني فسوف أبادرك به إن شاء الله عز وجل ...

السلام عليكم ...

بالنسبة لسؤالك الثاني .... قم بتحميل الملف المرفق ... أريدك أن تقوم بتصفح المثال جيدا ... ومن ثم .. إذا كان يناسبك إن شاء الله .. قم بإستيراد جميع محتويات الملف المرفق من جداول واستعلامات ومايكرو ونماذج ... إلى برنامجك الرئيسي ...

وفقك الله .... دعواتكم ...

اسم المستخدم/ أبو مالك

كلمة المرور/ 321

ملاحظة/ المثال من عمل أحد عباقرة هذا المنتدى أبو عقيل ... أعاده الله إلينا ...ووفقه.

PASSWORD.zip

عفوا ... رقم المرور أبتدائاً من 3

السلام عليكم..

الأخ Hassan لاأعرف كيف أستطيع شكرك .. لكن حسبي أن أقول لك جزاك الله خيراً ..... فلقد قال رسول الله صلى الله عليه وسلم في مامعنى الخديث من صُنع له ممعروفاً ثم قال لصاحبه جزاك الله خيراً فقد بالغ في رد الجميل.

سوف أحاول أن أتصفح ماأخبرتني به وسوف أقوم بتجربة ماأفتدتني به وسأعطيك الجواب إن شاء الله ..

أسأل الله لك علماً نافعاً وعملاً صالحاً...

ترى الرجل النحيل فتزدريه ***** وفي أثوابه أسد هصيل

أخي في الله لقد حاولت أم أصنع شيء في الملف المرفق PASSWORD لكن لم أستطع ويعطيني خطأ كلما قمت بتشغيل البرنامج وبعد فتحه يعطيني عبارات غير مفهومه بلغة غريبة ... أرجو إفادتي حول ذلك حسب المستطاع وجزاك الله خيراً...

ayman156@hotmail.com

عجيب جدا ... مع أنني قمت بتحميل المرفق ولم أجد به أي مشكلة ...

على العموم هذا المرفق مرة أخرى ببرنامج ضغط winrar ...

وسوف أقوم بإرساله كذلك على بريدك الخاص ...

Password2000.rar

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

أشكرك ياأخ HASSAN جداً جداً على الكود المرفق حيث أن العملية تمت معي بنجاح رائع جداً، وهذا بفضل الله ثم بفضلك .. وجزاك الله خيراً

أبشّرك يا أخ HASSAN أني قمت باستقبال رسالتك وفيها البرنامج وقد قمت بفتحه وهو على مايرام ولايوجد به أية مشاكل.. إني والله أقدر لك جهودك الجبّارة وأسأل الله أن ينفع بك وبي مستقبلاً...

لا شكر على واجب ... ووفقك الله دائماً

والله يا أخى درس أكتر من رائع وإستفدت منه كثيرا