Controle op numerieke waarde

[henkwim]

Ik heb een piepklein en volgens mij ook wel simpel op te lossen probleempje, maar ik kom er niet uit...

Ik wil controleren of de waarde van een textveld numeriek is. Ik gebruik IsNumeric(Me.txtZoek).

Dat gaat echter niet goed als de waarde '15,' is, dus inclusief die komma. Dan is IsNumeric nog steeds true, terwijl ik wil dat-ie false is. Er zit immers een kommaatje in en die is niet numeriek!

Ik wil dus dat hij echt controleert dat er niets-dan-numerieke waarden in zitten. Hoe kan ik dit oplossen?

 

[Bartuls]

Gebuik een invoermasker op je veld.
Met bijvoorbeeld het masker 00;; zorg je ervoor dat een veld van twee posities hebt waar alleen maar getallen ingetikt kunnen worden.

 

[henkwim]

Nope, dat kan niet. Want in het veld mogen best niet-numerieke waarden worden ingevuld. Alleen moet het programma dan anders reageren.

Zucht...

 

[Bartuls]

Moet je even zelf een functie schrijven:

Public Function fnIsNumSpec(mstrData As String) As Boolean
Dim strToCheck As String
Dim intCount As Integer

fnIsNumSpec = True
strToCheck = Trim(mstrData)
intCount = 0

If Len(strToCheck) > 0 Then
Do While Not intCount = Len(strToCheck)
If Not IsNumeric(Mid(strToCheck, intCount + 1, 1)) Then
fnIsNumSpec = False
End If
intCount = intCount + 1
Loop
End If
End Function

Deze functie geeft waar terug als de aangeleverde string leeg is.