ودي أعرف أشلون أسوي كلمه سر حق النموذج

في حدث (عند النقر) للزر الذي يفتح النموذج نضع الحدث التالي :

On Error Resume Next
If InputBox("أدخل الكلمة السرية : وهي في هذا المثال 123", "كلمة سر مطلوبة") <> "123" Then
DoCmd.CancelEvent
Else
DoCmd.OpenForm "اسم النموذج"
End If

تحياتي ..