الاخوة الاعزاء :-
اريد عمل كلمة سر على رسالة مثلا لطباعه تقرير معين او فتح شاشة تظهر الرسالة " برجاء ادخال الرقم السرى " على ان يتم عمل كلمة السر من الكود
و شاكر و مقدر لكم تعاونكم
و جزالكم الله خيـــــــــــــ الجزاءـــــــــــــــــــــــــــــــر
عمل كلمة سر
مغلق
Private Sub Form_Open(Cancel As Integer)
Dim a
a = InputBox("برجاء ادخل الرقم السري", "برجاء ادخل الرقم السري ")
If a <> "12345" Then DoCmd.Close acDefault
End Subالف شكر لردكم السريع و هو المطلوب بالضبط ولكن هل يمكن ان نجعل الارقام تظهر نجوم ****** الف شكر مرة اخري
تفضل اخي الكريم
اطلع على الكود تحت زر الأمر " فتح النموذج الثاني " وانسخه الى برنامجك
ثم انسخ او استورد الوحده النمطية لبرنامجك
يا سلام ربنا يحفظ دايما للمنتدي و ينعم عليكي دايما بكل خير
و شكرا لجميع الاخوة
هذا الموضوع مغلق.