---

Lige et par ?

Hvordan koder man så der kun kan skrives tal i et tekstfelt. Det er til
beregninger og der kan den ikke lide bogstaver:(
Så skulle der vel ikke være en der lå inde med kode så man kan printe formen
ud på flere sider?
Dan

---

Hei Dan

Private Sub TextBox1_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
Case 8 To 10, 13, 27 'Control characters
Case 48 To 57 'numbers
Case Else 'Discard anything else
KeyAscii = 0
End Select
End Sub

Vurder også om du skal tillate desimalseparator (i så fall kun en) og minus
(i så fall alltid først).

--
HTH. Beste hilsen Harald
Followup to newsgroup only please

"Dan" <2@ludvigs.dk> skrev i melding
news:40346aa5$0$27405$edfadb0f@dread16.news.tele.dk...
> Lige et par ?
>
> Hvordan koder man så der kun kan skrives tal i et tekstfelt. Det er til
> beregninger og der kan den ikke lide bogstaver:(
> Så skulle der vel ikke være en der lå inde med kode så man kan printe
formen
> ud på flere sider?
> Dan
>
>

---

On Thu, 19 Feb 2004 09:36:23 +0100, "Harald Staff"
<innocent@enron.invalid> wrote:

>Hei Dan
>
>Private Sub TextBox1_KeyPress(KeyAscii As Integer)
>Select Case KeyAscii
> Case 8 To 10, 13, 27 'Control characters
> Case 48 To 57 'numbers
> Case Else 'Discard anything else
> KeyAscii = 0
>End Select
>End Sub
>
>Vurder også om du skal tillate desimalseparator (i så fall kun en) og minus
>(i så fall alltid først).

Jeg ville nok vælge at checke med funktionen IsNumeric().


mvh /Snedker
---
http://dbconsult.dk

---

Morten Snedker skrev:
> Jeg ville nok vælge at checke med funktionen IsNumeric().

IsNumeric er så generel at den nærmest er ubrugelig.

Eksempler:
IsNumeric("0e0") => True
IsNumeric("&h1") => True

-------
Tomas