12-10-21, 09:31 AM
الأخوة الكرام
السلام عليكم ورحمة وبركاته
هذا كود إضافة عملة
السؤال هنا
كيف اظهر رسالة للمستخدم في حال عدم إدخاله عملة في Text ؟
يعني
في حال أدخل المستخدم نص اوغيره تظهر رسالة رساله ادخل عمله في text ؟
تحياتي
السلام عليكم ورحمة وبركاته
هذا كود إضافة عملة
كود :
Private Sub Text1_LostFocus()
Text1.Text = Format(Text1.Text, "Currency")
End Sub
السؤال هنا
كيف اظهر رسالة للمستخدم في حال عدم إدخاله عملة في Text ؟
يعني
في حال أدخل المستخدم نص اوغيره تظهر رسالة رساله ادخل عمله في text ؟
تحياتي
إذا ضاقت بك الأحوال يوماً فَثِقْ بالواحِدِ الفَرْدِ العَلِيِّ