Hallo,
voor het ingeven van een numerieke waarde gebruik is bij toets indrukken de volgende code:
Dim strnumeriek As String
Dim strbackspace As String
Dim stringave As String
strnumeriek = "1234567890"
strbackspace = Chr(acht)
stringave = strnumeriek & strbackspace
If InStr(stringave, Chr(KeyAscii)) = 0 Then
KeyAscii = 0
End If
Hierdoor kan je enkel cijfers ingeven en geen letters. En dit werkt correct totdat je de alt indrukt en een cijfercombinatie ingeeft.
Dan loopt het fout want hierdoor kan je andere tekens genereren en faalt de code.
Is dit op te lossen en zo ja, iemand een idee hoe?
Alvast bedankt,
Sven.