[cvcvcv]

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

[kslawy]

كود :

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]

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