afw5 قام بنشر سبتمبر 20, 2003 مشاركة قام بنشر سبتمبر 20, 2003 أرجو من الإخوه الكرام مساعدتي لدي نموذج لعرض وإدخال البيانات وقمت بإختيار خاصية عدم السماح بالتعديل ووضعت على النموذج زر وتحته كود للسماح بالتعديل .... ولكن أريد عند الضغط على زر السماح بالتعديل أن يضهر المطالبة بكلمة سر ... أرجو المساعدة ولكم تحياتي .. 1 رابط هذا التعليق شارك More sharing options...
امير عاطف قام بنشر سبتمبر 21, 2003 مشاركة قام بنشر سبتمبر 21, 2003 If InputBox("Enter Password", "Insurance Message") = 1234 Then 'ضع هنا الكود الذي يقوم بالسماح بالتعديل Else MsgBox "كلمة المرور خطأ", vbOKOnly End If رابط هذا التعليق شارك More sharing options...
afw5 قام بنشر سبتمبر 21, 2003 الكاتب مشاركة قام بنشر سبتمبر 21, 2003 الكود يعمل كما أريد . وفقك الله وسدد خطاك ونفع بك . رابط هذا التعليق شارك More sharing options...
محمد طاهر عرفه قام بنشر ديسمبر 2, 2003 مشاركة قام بنشر ديسمبر 2, 2003 بناء علي طلب أحد الأخة تم اضافة الكود السابق فى مثال توضيحي و الكود يمكن تنفيذه فى خطو واحد بدمج ناتج ال inputbox مباشرة فى معادلة الشرط if أو علي خطوتين و المثال يشمل كلاهما بالنسبة لل InputBox فالمعاملات الثلاثة فى التعبير الاول يوضع به الرسالة التي تظهر فى مربع الحوار الثاني يوضع به عنوان مربع الحوار الثالث القيمة الافتراضية و لها معاملات أخري و لكن تستخدم بصورة أقل بالنسبة لجملة الشرط فتنقسم الي 3 أجزاء الشرط ، و ماذا اذا تحقق الشرط ، ثم ماذا لو لم يتحقق و فى هذا المثال الشرط هو ان ما يدخله الستخدم = 123 و تبدأ جملة الشرط ب IF ثم الشرط و يلي ذلك then نكتب الكود الذي ينفذ حال تحقق الشرط و يلي ذلك else ثم الكود الذي ينفذ حال عدم تحقق الشرط ثم نختم جملة الشرط ب end if و ممكن استخدام حالة تحقق الشرط فقط مثل If x = 4 then msgbox "4" end if و فى هذه الحالة من الممكن استبدال المعادلة ب if x=4 then msgb "4" و الاستغناء عن end if openPass.rar رابط هذا التعليق شارك 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.