bassum قام بنشر أبريل 12, 2004 مشاركة قام بنشر أبريل 12, 2004 السلام عليكم ورحمة الله وبركاته وضعت كود خاص للدخول للنموذج عبارة عن كلمة سر ولكن المشكلة تحصل عندما لا يدخل شيء المستخدم يعني يكون مربع الرسالة فارغة يعطي رسالة خطأ الكود 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 السؤال كيف أعرف أن مربع النص فارغ لأن هناك تطبيقات أخرى عليها وجزاه الله خيراً من ساعدني وله منى الدعاء والشكر الجزيل للقائمين على هذا الموقع رابط هذا التعليق شارك More sharing options...
مصلح الحريصي قام بنشر أبريل 12, 2004 مشاركة قام بنشر أبريل 12, 2004 عدل الكود الذي كتبته ليصبح كما في الشكل التالي : 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 رابط هذا التعليق شارك More sharing options...
bassum قام بنشر أبريل 12, 2004 الكاتب مشاركة قام بنشر أبريل 12, 2004 مشكور وما قصرت وتسلم والعملية ناجحة والحمد لله رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.