شاشة دخول برقم سري

[علاء طه]

الاخوة الافاضل قرأت فى هذا المنتدى الرائع موضوع عن عمل ازرار عبارة عن صورة بمجرد الوقوف عليها يتم عمل تأثير عليها في الاولوان وخلافة

وأنا أدركت الفكرة أنها عبارة عن صورتين او اكثر والصورة الاعلى فيها حدث اخفاء عند الوقوف عليها بالماوس

طلبي هو كيفية كتابة كود لمربع نص او صورة بمجرد كتابة كلمة السر فيه يتم اخفاءة وظهور الشاشة الاصلية

New تطبيق Microsoft Office Access.mdb

[عبدالله المجرب]

السلام عليكم

هل تقصد هكذا

 

الرقم السري 123

New تطبيق Microsoft Office Access.mdb

[علاء طه]

شكرا جزيلا اخى عبد الله المجرب هو ده بالضبط ما اريد

بس لو ممكن اضافة بسيطة لو ادخل رقم خطأ يغلق البرنامج او تظهر رسالة خطأ

ولك جزيل الشكر اخى وزادك الله من علمه

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

3 ساعات مضت, علاء طه said:

شكرا جزيلا اخى عبد الله المجرب هو ده بالضبط ما اريد

بس لو ممكن اضافة بسيطة لو ادخل رقم خطأ يغلق البرنامج او تظهر رسالة خطأ

ولك جزيل الشكر اخى وزادك الله من علمه

اتفضل

 

 

If Me.نص2 = "123" Then

DoCmd.OpenForm "نموذج2"
DoCmd.Close acForm, "نموذج1"
Else
If MsgBox(" كلمه السر غير صحيبحه  " & vbCrLf & "هل تريد الخروج", vbInformation + vbYesNo, "تنبيه") = vbYes Then
DoCmd.Quit
End If
End If

 

New تطبيق Microsoft Office Access (1).mdb

[علاء طه]

شكرا جزيلا اخى بو ياسين وبارك الله فيك

وجعله في ميزان حسناتك

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

20 دقائق مضت, علاء طه said:

شكرا جزيلا اخى بو ياسين وبارك الله فيك

وجعله في ميزان حسناتك

العفو اخي

بارك الله فيك