غلق نافذة كلمة المرور

هل السؤال عن كلمة المرور في نموذج من تصميمك اذا كان الجواب بنعم فان الحل في زر OK بعد الانتهاء من عمل الكود الخاص بفحص لكلمة المرور و اسم المستخدم اعمل الكود التالي عندما يكون الفحص صحيح اي ان كلمة المرور و اسم المستخدم صحيحا

DoCmd.Close acForm," FORM NAME"

اقصد ب FORM NEMA اسم النموذج لكلمة المرور مثل PASS او LOGIN او اسم الذي اخترته

و يمكن ان تجد ايجابية اشفى من هذه من الاخوان الموجون في المنتدى و لك الشكر و التقدير اخوكم IHA KING

إلى الاخ hearthouse السلام عليكم و رحمة الله و بركاته اما بعد

أولا - كلمة المرور الصحيحة في النموذج المرفق هي melissa

ثاني استخدم امر Quit في نموذج تحقق اسم المستخدم و كلمة المرور تعتبر في الموضوع الخطأ يمكن ان ستخدم مثل MSGBOX لعمل الاستعلام

اسمح لكي بتوضيح الاخطاء هذه هو الكود الذي تستخدم في نموذح F3

Private Sub Command2_Click()

z = TextBox1

If z = "melissa" Then

DoCmd.OpenForm "Tap_form"

Else

DoCmd.Quit " موقع هذه الامر يعتبر خطا لانه يوكد خطاء كلمة المرور إلى اخلاق النموذج "

End If

End Sub

-------------------------------------------------------------------------------------------------------------------------

Private Sub Command3_Click()

DoCmd.Quit

End Sub

0000000000000000000000000000000000000000000000000000000000000000000000000

و هذا هو اقتراحي في الكود التالي

Private Sub Command2_Click()

z = TextBox1

If z = "melissa" Then

DoCmd.OpenForm "Tap_form"

DoCmd.Close acForm, "F3"

Else

MsgBox "كلمة المرور او اسم المستخدم غير صحيحه يرجاء التاكد و اعادة المحاولة", vbOKOnly, "AHMESSOFT"

End If

End Sub

-----------------------------------------------------------------------------------------------------------------

Private Sub Command3_Click()

If MsgBox("هل تريد الخروج من البرنامج", vbYesNo, "AHMEDSOFT") = vbYes Then

DoCmd.Quit

End If

End Sub

و انا قد قمة بتعديل الملفك المرفق و ارجوا ان يكون قد تم توضيح الامر و لك الشكر و التقدير اخوكم IHA KING

my_database.rar