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.


 

Hallo,

de bedoeling was dat men bij het intypen van het veld enkel numerieke waarden kon ingeven en dit in plaats van achteraf een controle uit te voeren of de ingave numeriek is.

Gr,
Sven.