تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
كود لحذف البيانات الحرفية المدخلة لحقل رقمي
#1
السلام عليكم
خصصت نوع حقل معين رقمي tinyint في جدول بقاعدة بيانات بالفيجوال بيسك .
عند ادخال قيمة بداخله بطريقة details :
لو رقمية عادي ..
أما لو حرفية يقف المؤشر ولا ينتقل للخلية التي بعدها .. وهذا شئ طبيعي ..
أريد كود يعرض لي رسالة "لقد قمت بادخال قيمة حرفية في خانة هذا الحقل الرقمي" ويقوم بحذف القيمة الحرفية
وشكراً
الرد }}}}
تم الشكر بواسطة:
#2
كود :
Dim ErrProv As New ErrorProvider


    Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
        If IsNumeric(e.KeyChar) Or Asc(e.KeyChar) = 8 Then ' يعني إذا كان المفتاح المضغوط رقمي أو هو مفتاح التراجع
            e.Handled = False ' يتم السماح بالكتابة أو الحذف
            ErrProv.SetError(Me.TextBox1, "") ' تفريغ أداة عرض الأخطاء
        Else
            e.Handled = True ' هذا الأمر لا يسمح للمستخدم بكتابة القيم النصية
            ErrProv.SetError(Me.TextBox1, "لقد حاولت ادخال قيمة حرفية في خانة هذا الحقل الرقمي")
        End If
    End Sub
(وَقُل رَّبِّ زِدْنِي عِلْمًا)

الرد }}}}
تم الشكر بواسطة:
#3
شكرا .. جزاك الله خيراً
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  كيفية عرض البيانات فى DataGridView فى وضع CrossTab noway 1 51 أمس, 09:03 PM
آخر رد: noway
  استفسار عن تعبئة combobox من قاعدة البيانات المتألق9 2 62 16-02-17, 11:57 AM
آخر رد: المتألق9
  ما الفرق بين اضافة قاعدة البيانات عن طريق الكود و اضافى قاعدة البيانات عن طريق add ne noway 1 51 12-02-17, 08:06 PM
آخر رد: مساعدة
  [سؤال] مشكلة في قاعدة البيانات عبدالرحمن المكاوي 2 58 08-02-17, 05:43 PM
آخر رد: عبدالرحمن المكاوي
  [VB.NET] خطأ في كود الاتصال بقاعدة البيانات ،، مرفق مشروع أبووسم 5 103 08-02-17, 04:56 PM
آخر رد: atefkhalf2004
  [سؤال] خطأ اثناء ادخال البيانات RAWAN.HQ 1 53 07-02-17, 01:15 PM
آخر رد: Amir_alzubidy
  [سؤال] كود الاتصال بقاعدة البيانات فى Class noway 0 54 06-02-17, 02:48 AM
آخر رد: noway
  عرض البيانات من قاعده البيانات لليوم الحالي. Rabeea Qbaha 5 155 05-02-17, 10:18 PM
آخر رد: khodor1985
  [VB.NET] الاتصال بقاعدة البيانات عن طريق real Ip engmedomed@gmail.com 1 94 02-02-17, 11:44 PM
آخر رد: nabil.1710
  [VB.NET] التجميع و الفرز قواعد البيانات tifagreet 4 146 19-01-17, 04:21 AM
آخر رد: tifagreet

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم