!Number Validation in a Form!

يمكنك استخدام الدالة replace لابدال الاشارات المتوقعة و الغير مرغوبة ..

ممثلا نتوقع ورود الاإشارات التالية : / - و هذه قد تسبب مشاكل ..

نحن نريد رقم فقط ..

اكتبي التالي لو كان اسم المتغير مثلا myVar

 myVar=replace(myVar,"-","")
 myVar=replace(myVar,"/","")
 myVar=replace(myVar,"","")
 myVar=replace(myVar,"_","")
 for varify --> myVar=cInt(myVar)

التجربة خير برهان :)

هذي هي الطريقه اللي استخدمتها عندي في الفورم..

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

يعني انا ماعرف انه المستخدم بيستخدم بس هالإشارات .. يمكن يستخدم اشارات ثانية او حروف حتى :) ايش ممكن نسوي في هالحالة؟؟

شكرا جزيلا لطرح الحل ..

اختك

الأمل

المفروض إنك تضعي كل الرموز التي تتوقعيها .. ممكن تضعيها في مصفوفة و تعملي فحص إذا موجود غير رقم تقومي بحذفه ..

فكرة أخى أيضا .. تقومين بقراءة حرف حرف من بداية السلسلة لاخرها مستعينة بال mid(string,i) و تقومي بإضافة كل عدد بعد التأكد من انه بين ال 0 إلى 9 و بعدها تستخدمي cInt(string) حتى تحول السلسة إلى رقم حتى يتناسب مع الحقل المناظر له في قاعدة البيانات ..

بالتوفيق ..

أخي محمد .. شكرا جزيلا لك

معليش استحملني شوي .. لأني مبتدئه في كل شي :)

انا فهمت اللي كتبته في آخر رد .. لكن ممكن شرح اكثر؟:o

عذرا للأزعاج

اختكم

الأمل

يعني راح اكتبلك مثال ما جربته ::o

 word=array("/","","-","*","+","|")
 For i=0 to ubound(word)
  IF not(inStr(word,i))=0 Then word=replace(word,i,"")
 Next
 word=cInt(word)

هذا مثال من الوف الأمثلة كطريقة للتخلص من الزيادات ..

طبعا الشرح كالتالي نضع مصفوفة بها كل الأشكال المتوقعة و التي تسبب المشكلة ثم نفحص هل موجود هذا الرمز في السلسة الحرفية بعد ذلك نقوم بإبدال الحرف المرفوض ب "" و هكذا و بالأخير نقوم بتحويل السلسة الرقمية لرقم عن طريق cInt ..

طبعا هذ الطريقة الأطول .. في الحقيقة هانك مثال اخر أفضل و هو عمل مصفوفة للأرقام فقط من 0 إلى 9 ثم نفحص كل جزء من المتغير باستخدام طريقة ال mid أو left لنقارن كل حرف ثم نضمها لبعض بعد التخلص من أي حرف أو رمز غير مطلوب ..

سأضعها هنا بعد أن أجربها بنفسي :)

وقتا ممتعا مع الفريق العربي ;)

أخي محمد

شكرا جزيلا لك و لردك السريع

سأجرب ماكتبت ان شاء الله :)

بالتوفيق دائما ..

أختكم

الأمل