منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب - كود لحذف البيانات الحرفية المدخلة لحقل رقمي

السلام عليكم
خصصت نوع حقل معين رقمي tinyint في جدول بقاعدة بيانات بالفيجوال بيسك .
عند ادخال قيمة بداخله بطريقة details :
لو رقمية عادي ..
أما لو حرفية يقف المؤشر ولا ينتقل للخلية التي بعدها .. وهذا شئ طبيعي ..
أريد كود يعرض لي رسالة "لقد قمت بادخال قيمة حرفية في خانة هذا الحقل الرقمي" ويقوم بحذف القيمة الحرفية
وشكراً

كود :

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

شكرا .. جزاك الله خيراً

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

cvcvcv

kslawy

cvcvcv