• 0
الحسن العليمي

كود عدم المساواة بدالة if

سؤال

السلام عليكم جميعاً :

لدي النموذج الخاص بشاشة الدخول ، اريد ان اصيغ هذه الكلمات لأكواد ( إذا txt1 لم يساوي user_name فاظهر الرسالة < خطأ في اسم المستخدم ) .

وكما موضحه في الصورة .

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

3 إجابة على هذا السؤال .

  • 0

السلام عليكم

اليك الكود وفكرته قائمة على قاعدة التحقق يظهر رسالة ترحيب و ينقلك لشاشة اخرى 

Option Compare DatabasePrivate Sub Command0_Click()username.SetFocusIf username = "admin" And password = "1" ThenMsgBox "ÇÏÇÑÉ ÇáÍÓÇÈÇÊ ÊÑÍÈ Èßã ", vbInformation, "ÇåáÇ æÓåáÇ"MsgBox "ÈÓã Çááå æÇáÕáÇÉ æÇáÓáÇã Úáì ÑÓæá Çááå", vbInformation, "ÚáÇÁ íÑÍÈ Èßã"DoCmd.CloseDoCmd.OpenForm "entery"ElseMsgBox "ÝÖáÇ ÇÚÏ ßÊÇÈÉ ßáãÉ ÇáãÑæÑ - ÔßÑÇ áß "End IfEnd Sub 

اليك الملف وعليك القيام بالتعديل على الكود كيف شئت من خلال الدخول عليه اتمنى لك الاستفادة ....

login_alaa.rar

تم تعديل بواسطه alaaaboulela
1

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

الشكر لله هذا مجرد رد ولو جزء ضيئل جداً من فضل وجمايل ربنا ثم اساتذة المنتدى علي  ...

تم تعديل بواسطه alaaaboulela
0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
زوار
This topic is now closed to further replies.

  • يستعرض القسم حالياً   0 members

    لا يوجد أعضاء مسجلين يشاهدون هذه الصفحة .