mostafasadry

شكرا للجميع تم التوصل الى المطلوب وهو Dim cnt As Long If IsNumeric(Me.TextBox11.Value) Then cnt = cnt + 1 If IsNumeric(Me.TextBox13.Value) Then cnt = cnt + 1 If IsNumeric(Me.TextBox15.Value) Then cnt = cnt + 1 If IsNumeric(Me.TextBox17.Value) Then cnt = cnt + 1 Me.textbox20.Value = cnt

شكرا للاخ lionheart على الرد والمساعدة وجزاك الله الف خير سؤال ثاني في نفس المسئلة ان امكن في حالة وجود 4 تيكست بوكس غير متسلسلات مثلا textbox17 , textbox15 , textbox13 , textbox11 , ويكون الناتج في textbox20 كيف ممكن ان اكتب الكود علماً اني مبتدئ في مسئلة الاكواد فحبيت ان استفيد من خبرات الاخوة في المنتدى وجزاكم الله الف خير

السلام عليكم ورحمة الله وبركاته تحية طيبة الى اعضاء المنتدى جميعاً ممكن مساعدة في معرفة عدد التيكست بوكس الذي يحتوي على ارقام معرفة العدد وليس قيمة ما موجود في التيكست بوكس من ارقام او كلمات على سبيل المثال اثنان من التيكست بوكس بداخلهن ارقام واثنان فارغات يكون الناتج 2 مع الشكر للجميع.. rrrr.zip