اختبار البيانات

Private Sub Command1_Click()
	' التحقق من القيم المدخلة
	If IsNumeric(Text1.Text) = True Then
		MsgBox "القيم المدخلة رقمية!"
	Else
		MsgBox "القيم المدخلة غير رقمية!"
	End If

End Sub

والعكس مع النصوص

السلام عليكم

و الله استاذي الكريم HnHn دائما في المقدمة و ما يقصر

mouaz كتب:

السلام عليكم

و الله استاذي الكريم HnHn دائما في المقدمة و ما يقصر

و العكس هو

Private Sub Command1_Click()
	' التحقق من القيم المدخلة
	If not IsNumeric(Text1.Text) = True Then
		MsgBox "القيم المدخلة ليست رقمية!"
	Else
		MsgBox "القيم المدخلة  رقمية!"
	End If

End Sub

مع اطيب الأمنيات

السلام عليكم

و الله يا اخي مع احترامي الشديد لك و لكن اللهجة اللتي تتكلم بها كانها بغرور و تكبر

و الاستاذ HnHn استاذي و استاذك و انت على ما يبدوا انك لا تفرق بين is , not is انما هي مسالة محفوظة عندك

و لا يمكنك القول ان العكس الصحيح

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

اذا كان في كلامي اي خطا ارجو تصحيحه و لكن باحترام

السلام عليكم

أخى الكريم mouaz

من الواضح انك مفهمت قصد الأخ Super_Pro

لان الأخ هانى كتب فى نهايه المشاركه والعكس مع النصوص

فتفضل الأخ Super_Pro بإضافه العكس للتوضيح ليس أكثر

السلام عليكم

انا بعتذر بكل الاحوال

لانو هادا الحكي و التعليقات لا بتقدم و لا بتاخر

ولانوا نحنا هون مشان نتعلم مو مشان ننقض بعضنا

و على كل حال انا بكرر اعتذاري و بقول اني لا اقصد شي من هذا الموضوع