بسم الله الرحمن الرحيم
اخواني انا اريد ان اتحقق ان المستخدم اذا ادخل قيمة عددية أن تظهر لة رسالة خطأ فهل هذا الكود صح؟؟؟ لان ما أشتغل معاي
If IsNumeric(txt1.Text) = True Or _ IsNumeric(txt2.Text) = True Or _ IsNumeric(txt3.Text) = True Or _ IsNumeric(txt4.Text) = True Or _ IsNumeric(txt7.Text) = True Or _ IsNumeric(txt8.Text) = True Then MsgBox " يجب ألا تدخل بيانات رقمية", vbOKOnly + vbMsgBoxRight + vbMsgBoxRtlReading, "خطأ" End If
انا اريد ان يفحص ذلك في زر الاضافة الى قاعدة البيانات فإنة يتحقق من كل text box أنها غير رقمية ثم يقوم بالاضافة الى قاعدة البيانات
فهل الكود فية خطأ؟؟؟
بالنسبة للكود اظنه صحيح
ومعنى القيمة العددية هنا ان المدخل كله ارقام أي بمجرد ادخال حرف سيعتبره قيمة غير عددية
أنا بعرف ان له الصيغة التالية أيضاً
Option Explicit Private Sub Command1_Click() If IsNumeric(Text1) Then MsgBox " يجب ألا تدخل بيانات رقمية" Else MsgBox "تمام" End If End Sub
اقتباسطيب لو انا عايز أحدد للمستخدم بالKeyAscii ان يكتب أرقام فقط؟؟؟؟؟؟؟
Private Sub Text1_KeyPress(KeyAscii As Integer) Dim xxx As String xxx = "0123456789" If KeyAscii > 26 Then If InStr(xxx, Chr(KeyAscii)) = 0 Then KeyAscii = 0 End If End If End Sub
ألا بذكر الله تطمئن القلوب
txt8 اظن الخطا هنا لان قد يكون خطا بسيط
انت مسمي الtext ,,,, txt ??
لان الكود مكتوب txt
اظن الخطا هنا
او اذا خطا ....
استعمل ascii
If KeyAscii < 58 And KeyAscii > 47 Then
keyascii = 0
end if
تم تعديل هذه المشاركة بواسطة مبرمج مبتدا في 5 يونيو 2007 في 04:43
ايضا انت بحاجة الى ايقاف التنفيذ اذا تحقق الشرط فبعد الرسالة يجب ان تضع exit sub
MsgBox " يجب ألا تدخل بيانات رقمية" exit sub
كذلك هذا الكود يفحص فقط اذا كان النص عددي مثل 500 أو 2000 أو 20 لكن لا ينطبق الشرط اذا كان مثل abc2000 .
أعتقد انه صحيح , بعدين جربه وشوف
وكما قال الأخ المزمجر ... بدل ا تسيبه يدخل أرقام , امنعه من انه يدخل أرقام وبكده ترتاح
اقتباسIf A is success in life, then A equals x plus y plus z. Work is x; y is play; and z is keeping your mouth shut
Albert Einstein
هذا الموضوع مغلق.
المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية
جارٍ التحقق من المتواجدين…
