Textbox 4 haneli ve sadece rakam olsun

[o2l3m]

Textbox girişinde sadece 4 haneli rakam olarak girmeye zorlasa
Farklı bir durumda girişe izin vermese veya hata mesajı çevirse.

Forumda aradım bulamadım. Yardımcı olursanız çok memnun olurum

 

[Muzaffer Ali]

Aşağıdaki kodu deneyin.

Private Sub TextBox1_Change()
    If TextBox1.Value = "" Then Exit Sub
    If IsNumeric(TextBox1.Text) = False Then
        MsgBox "Sadece Rakam Girişi yapabilirsiniz...."
        TextBox1.Value = ""
        TextBox1.SetFocus
    ElseIf TextBox1.Value < 1000 Or TextBox1.Value > 10000 Then
        MsgBox "Sadece Dört Hane Rakam Girişi yapabilirsiniz...."
        TextBox1.Value = ""
        TextBox1.SetFocus
    End If
End Sub