UserForm enkel Cijfers ingeven, geen Tekst

[erwin71]

..

dim x as double
If Me("txtd" & x & "HuidigH") <> "" And Me("txtl" & x & "HuidigH") <> "" Then
        Me("txtmat" & x & "HuidigH") = CDbl(Me("txtd" & x & "HuidigH")) / CDbl(Me("txtl" & x & "HuidigH"))
        Me("txtMat" & x & "HuidigH") = Replace(Me("txtMat" & x & "HuidigH").Value, ".", ",")
End If

..

In deze UserForm mag de gebruiker geen text invullen, enkel cijfers bij ("txtd" & x & "HuidigH") en ("txtl" & x & "HuidigH").
Hoe kan ik dat het best ingeven, zodat er een MsgBox verschijnt, indien er toch tekst voorkomt?

Bedankt!

 

[OctaFish]

Check het veld op If Not IsNumeric(Me("txtmat" & x & "HuidigH")).

 

[Interface]

als je wil lussen door contorls op je userform

dan kun je beter een tag meegeven aan de controls. De IsNumeric() is zoals octa al zegt, het meest geschikt denk ik..

 

[erwin71]

Idd, werkt heel goed!

Bedankt..

 

[snb]

of gebruik een spinbutton of een combobox met getallen, dan is geen controle nodig.

 

[ReilingJ]

Gebruik keypress:

Private Sub TxtNr_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii <> 48 And _
KeyAscii <> 49 And _
KeyAscii <> 50 And _
KeyAscii <> 51 And _
KeyAscii <> 52 And _
KeyAscii <> 53 And _
KeyAscii <> 54 And _
KeyAscii <> 55 And _
KeyAscii <> 56 And _
KeyAscii <> 57 Then
KeyAscii = 0

End If
End Sub