السلام عليكم ورحمة الله
لدي حقل نص غير منظم
وأردت الا يطبع الا ارقام فا ادخلت الكود التالي
Private Sub fail_no_KeyPress(KeyAscii As Integer)
KeyAscii = IIf(InStr("0123456789" & Chr$(8), Chr$(KeyAscii)), KeyAscii, Empty)
End Subفي البداية يعمل معي ولا يكتب الحروف
حين أعيد تشغيل البرنامج يعطيني رسالة
Run-time error 5 Invalid Procedure call or argument
ثانيا كيف أغير رسالة الخطأ في القيمة الافتراضية بحيث تكون نعم ولا
اخي الفاضل ابو غدى
السلام عليكم ورحمة الله وبركاته
ولماذا كل هذا التعب وهذه الأكواد
الموضوع ببساطه لكي لا يتم كتابة اي حروف في مربع النص الغير منضم والإكتفاء فقط بالأرقام نقوم بعمل التالي :
في قاعدة التحقق من الصحه لنفس مربع النص نضع هذا التعبير
IsNumeric([YourTextName])=True
YourTextName هو اسم الحقل النصي الخاص بك
جزاك الله كل خير اخت زهرة
أعرف هذه الطريقة ولكن عيبها انها تقبل كتابة الحروف وبعد التحديث تظهر رسالة الخطأ
فأردت ان اختصر المسافة وامنع المستخدم من كتابة الحروف اصلا
لهذا انا احناج هذا الكود
بالنسبة للتحكم في رسائل الأخطاء فراجع هذا الرابط ( كل ما عليك هو وضع رقم الخطأ وهو لديك في الرسالة رقمه 5 )
جزاك الله كل خير هذا هوالمطلوب
المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية
جارٍ التحقق من المتواجدين…
