طلب مساعدة .... كود كلمة السر

[alaaagil]

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

لكني أحتاج لكود بموجبه أدخل كلمة السر ومن ثم أضغط زر دخول فيغلق فورم كلمة السر ويفتح فور جديد ( AC3 ) كما هو موضح بالصورة المرفقة.

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

تم تعديل نوفمبر 4, 2018 بواسطه alaaagil

[ابو ياسين المشولي]

الان, alaaagil said:

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

لكني أحتاج لكود بموجبه أدخل كلمة السر ومن ثم أضغط زر دخول فيغلق فورم كلمة السر ويفتح فور جديد ( AC3 ) كما هو موضح بالصورة المرفقة.

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

اتفضل

if me.txt=555 then
DoCmd.OpenForm "AC3 ", acNormal
DoCmd.Close acForm, "كلمة السر"
Else
MsgBox "  كلمه السر خطاء  "
Exit Sub
end if
  

اسم الخانه اللي تضع فيها الرقم
me.txt

[alaaagil]

جزاك الله كل خير أخي أبو ياسين 
ومشكور جداً بارك الله فيك

تمت العملية بنجاج ..... في الأول لم يعمل الكود بالشكل الصحيح ولكن بعد أزالة ( txt.) عمل بشكل ممتاز
أكرر شكري وأمتناني لك

 

تم تعديل نوفمبر 4, 2018 بواسطه alaaagil