الصيغة الكاملة للدالة inputbox

[ماجدجلال]

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

منذ امس وانا ابحث في المنتدي عن الصيغة الكاملة للدالة inputbox من حيث المدخلات فقد تكون قيمة خالية ( " ") وقد تكون ( 0 ) او يمكن الغاء العملية عند النقر علي الزر cancel ....

الكود التالي المطلوب منة مرعاة هذة المدخلات بحيث يكون لكل قيمة رسالة خاصة بة , وفي اربع احتمالات ,,,

لكن للاسف الصيغ لم تنجح معي ارجو منكم المساعدة

الاحتمالات الاربعة هي :

الاحتمال الاول : ان يقوم المستخدم بالنقر علي الزر ok دون ان يدخل قيمة . اي ان قيمة المدخلة هي فراغ ( " " ) . فهنا يجب ان تكون msgbox هي ( يجب عليك ان تضع قيمة حقيقية )

الاحتمال الثاني : ان يقوم المستخدم بوضع 0 اي ان القيمة هي ( صفر ) هنا يجب ات يكون الرد ( ادخل قيمة اكبر من صفر ) .

الاحتمال الثالث : ان يقوم المستخدم بالنقر علي الزر cancel . فيجب ان يكون الرد ( لقد تم الغاء العملية بطلب منك ).

الاحتمال الرابع : هو ان يقوم المستخدم بادخال قيمة اكبر من صفر . فيتم تنفيذ المطلوب من الكود القيام بة .

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

Private Sub امر1_Click()
Dim m As String
m = InputBox("ادخل الرقم المطلوب ")
If m = 0 Then MsgBox ("يجب عليك ادخال رقم اكبر من صفر")
If m = "" Then MsgBox ("يجب عليك ادخال قيمة حقيقية  ")
If m = Cancel Then MsgBox ("لقد تم الغاء العملية بطلب منك ")
If m > 0 Then MsgBox ("مبروك تمت العملية بنجاح ")
End Sub

وجزاكم الله كل خير

[أبو هادي]

السلام عليكم

Private Sub امر1_Click()
  Dim m As Variant

  Do
    m = InputBox("ادخل الرقم المطلوب  ", , " ")
    If m = 0 Then MsgBox ("يجب عليك ادخال رقم اكبر من صفر")
    If m <> "" And Trim(m) = "" Then MsgBox ("يجب عليك ادخال قيمة حقيقية ")
    If m = "" Then MsgBox ("لقد تم الغاء العملية بطلب منك")
    If Val(m) > 0 Then MsgBox ("مبروك تمت العملية بنجاح")
  Loop Until m = "" Or Val(m) > 0
End Sub

- تم تبديل نوع المتغير m .

- عند الضغط على زر الإلغاء دائما ما تكون القيمة لا شيئ "" .

- عند الضغط على زر نعم بدون إضافة أي قيمة سوف تكون القيمة هي نفسها عند الضغط على الإلغاء أي "" .

- للتفريق بين زر الإلغاء وزر نعم للـقيمة "" قمت بإضافة مسافة " " كقيمة إفتراضية .

- تم عمل تكرار loop لإرغام المستخدم على إدخال قيمة أو الإلغاء بطلب منه .

تحياتي .

[يوسف أحمد]

اخي / ماجد جلال

المرفق به مثال قمت بعمله ليفي بالغرض ان شاء الله

ارجو ان يكون هو المطلوب

المعذرة منك استاذي ابو هادي فلم انتبه لردك وقد كنت مشغولاً بعمل المثال للاخ السائل

بارك الله فيك وجعلك سباقاً إلى الخير

db5.rar

[يوسف أحمد]

رااااااااااااااائع استاذ ابو هادي

تم حفظ المثال للتعلم منه والاستفادة

شكراً لك على هذا المرور الرائع والكود الجميل

[ماجدجلال]

شكرا لك استاذ ابوهادي وبارك الله فيك

واحسن دعاء في هذا الشهر الفضيل هو اسئل الله تعالي لك ان يحرم عليك النار وان يدخلك الجنة وان يتقبل منك الدعاء و الصيام والقيام , اللهم امين ,

وايضا للاخ yousf جزاك الله كل خير و ان يحرم عليك النار وان يدخلك الجنة وان يتقبل منك الدعاء و الصيام والقيام , اللهم امين ,

وبارك الله فيكم جميعا

[أبو هادي]

السلام عليكم

شكرا لكما أخاي وبارك الله فيكما .

تحياتي .