Alleen nummers in textbox toestaan

[Ricky2]

Ik gebruik onderstaande code om te voorkomen dat een gebruiker iets anders dan cijfers invoert. Echter nu blijkt dat het toch mogelijk is om tekens in te geven anders dan alleen cijfers. Bijvoorbeeld spaties d.m.v de toetscombinatie ALT-255.

Wie kan deze code verbeteren dat echt alleen de cijfers 0 t/m 9 zijn toegestaan. Bovendien mag het aantal posities (lengte veld) niet groter zijn dan 10 posities.

Private Sub TextBox1_Change()
    If TypeName(Me.TextBox1) = "TextBox" Then
        With Me.TextBox1
            If Not IsNumeric(.Value) And .Value <> vbNullString Then
                MsgBox "Sorry, alleen cijfers zijn toegestaan !", vbOKOnly, "Foutmelding"
                .Value = vbNullString
            Else
                Sheet11.Range("A2") = TextBox1.Value
            End If
        End With
    End If
End Sub

 

[snb]

Je kunt beter een kringveld gebruiken als je alleen cijfers wil toestaan. Daarmee kun je ook de bovengrens en de benedengrens vastleggen.

 

[Ricky2]

Kan je een voorbeeld geven

Aha...Kan je aangeven hoe jij dit zou programmeren ?