[dubai.eig]

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


اعزائي عندي كود الرقم التسلسلي شغال تمام

مع كل ضغطه يتغير الرقم من 001  و 002  وهكذا
ههذا الكود

كود :

   TextBox1.Text =  Format(TextBox1.Text + 1, "000"  )

عندي مشكله في حالت اضافت اي حرف امام الرقم مثلا

005TRC

يعطيني مسج


Conversion from string "010TRC" to type 'Double' is not valid.

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


ومرات اريد احط امام الرقم ثلاث حروف  TRC



في نفس الوقت في حالت اني كتبت الحروف TRC   اريد البرنامج يتعرف هل امام الارقام حروف او بدون حروف

كود :

       if TextBox1.Text = "000TRC" Then
           MsgBox("OK")
           Else
              MsgBox("NO")
       End If

اتمنى وصلت الفكرة وشكرا على على المساعدة

[أحمد النجار]

للتاكد من اذا كانت القيمة رقمية كلها ام لا يمكن استخدام الدالة ()IsNumeric
فيصبح الكود كالتالي
if IsNumeric(TextBox1.Text) Then
MsgBox("OK")
Else
MsgBox("NO")
End If

[a.ahmed]

PHP كود :

Mid$(TextBox1.Text, 1, 3) = Val(Mid$(TextBox1.Text, 1, 3) + 1).ToString("000") 


[dubai.eig]

(07-10-17, 09:31 PM)أحمد النجار كتب : للتاكد من اذا كانت القيمة رقمية كلها ام لا يمكن استخدام الدالة ()IsNumeric
فيصبح الكود كالتالي
if IsNumeric(TextBox1.Text) Then
          MsgBox("OK")
          Else
             MsgBox("NO")
      End If

شكرا لك نعم هو المطلوب بارك الله فيك

---

(07-10-17, 09:33 PM)a.ahmed كتب :

PHP كود :

Mid$(TextBox1.Text, 1, 3) = Val(Mid$(TextBox1.Text, 1, 3) + 1).ToString("000") 


فعلا الكود يعمل بشكل جيد


شكرا لك احسنت 

[dubai.eig]

تم ضبط الامر شكرا