ياهل الخبره اريد عمل كلمة مرور لفتح شاشة في برنامج الاكسس

Private Sub Form_Open(Cancel As Integer)

On Error Resume Next

If InputBox("أدخل الكلمة السرية ", "كلمة سر مطلوبة") <> "1111" Then

DoCmd.CancelEvent

Else

DoCmd.OpenForm "اكتب اسم النموزج هنا"

End If

End Sub

كلمه السر 1111

غير متل ما بدك

بلتوفيق

ان شاء الله

لك مني كل الشكر والتقدير الذي تستحقه يا اخ العرب

وبارك الله بك وفيك ياعزيزي سمير

والى الامام يامام العلم والتعليم

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

وكذلك لكلمة المرور لكي يمكني من الدخول الى نموذج البرنامج

ولك مني صالح الدعاء بضهر الغيب

وطلبي هذا اريده اليوم ان امكن لان الوقت يداهمني

فانا طالب في مقر الجوازات ومشروع تخرجي يطلب مني هذا الشي