منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : كيف يمكن تطوير هذا الكود نامل المساعدة ؟؟
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
الأخوة الكرام
 السلام عليكم ورحمة وبركاته
هذا كود إضافة عملة 
كود :
Private Sub Text1_LostFocus()
Text1.Text = Format(Text1.Text, "Currency")
End Sub

السؤال هنا
كيف اظهر رسالة للمستخدم  في حال عدم  إدخاله عملة في Text ؟
 يعني 
 في حال أدخل المستخدم نص اوغيره تظهر رسالة رساله ادخل عمله في text ؟

تحياتي
كود :
Private Sub Text1_LostFocus()
If Not IsNumeric(Text1.Text) Then MsgBox "", vbCritical, "من فضلك أدخل العملة كبيان رقمى": GoTo 10
If Val(Text1.Text) < 0 Then MsgBox "", vbCritical, "من فضلك أدخل العملة رقم موجب": GoTo 10
AA = Val(Text1.Text)
If AA <> Int(AA) < 0 Then MsgBox "", vbCritical, "من فضلك أدخل العملة رقم صحيح": GoTo 10

Print AA
Rem"واكتب هنا أى كود تريده"

10 End Sub