كيفية عمل Validation على الادخالات

ممكن تستخدم الحدث Validate لكن انا شخصياً احب اعملها بالكود احسن.

الكود التالى تستطيع تحديد عن طريقه المدخلات اذا كانت رقمية او نصية

Private Const SYMPOLS = "!@#$%^&*()_[]{}"""":;><?/*-+"
Function SetText(tbName As TextBox, Optional _
Numeric As Boolean = True)
Dim Counter As Integer, curChr As String, FinalText As String
Counter = 1
Do While Counter <= Len(tbName.Text)
DoEvents
    curChr = Mid(tbName.Text, Counter, 1)
    Select Case Numeric
    Case True
        If IsNumeric(curChr) Then FinalText = FinalText & curChr
    Case False
        If Not IsNumeric(curChr) Or InStr(1, SYMPOLS, curChr _
        , vbTextCompare) Then FinalText = FinalText & curChr
    End Select
    Counter = Counter + 1
Loop
tbName.Text = FinalText
End Function

اتمنى ان تجد فيه طلبك :rolleyes: