كلمة السر للنموذج فى inputBox

[bassum]

السلام عليكم ورحمة الله وبركاته

وضعت كود خاص للدخول للنموذج عبارة عن كلمة سر ولكن المشكلة تحصل عندما لا يدخل شيء المستخدم يعني يكون مربع الرسالة فارغة يعطي رسالة خطأ

الكود

Dim pass As Integer
  Dim massage As Integer
pass = InputBox("type your password", "Control box")
 If pass = 1212 Then
  DoCmd.OpenForm "contor"
  Else
  massage = MsgBox("Sorry your Pass is false")
  End If

السؤال كيف أعرف أن مربع النص فارغ لأن هناك تطبيقات أخرى عليها

وجزاه الله خيراً من ساعدني وله منى الدعاء والشكر الجزيل للقائمين على هذا الموقع

[مصلح الحريصي]

عدل الكود الذي كتبته ليصبح كما في الشكل التالي :

On Error GoTo Err
Dim pass As Integer
Dim massage As Integer
pass = InputBox("type your password", "Control box")
If pass = 1212 Then
DoCmd.OpenForm "contor"
Else
massage = MsgBox("Sorry your Pass is false")
End If
Err:
If Err.Number = 13 Then
MsgBox "أكتب هنا الرسالة التي تريد أن تظهر للمستخدم"
End If

[bassum]

مشكور وما قصرت وتسلم

والعملية ناجحة والحمد لله