Kun tal i tekstboks VBA-Word2000

For at sikre, at der kun indtastet tal, kan du bruge text-boxens KeyPress-event:

Private Sub txtBox_KeyPress(KeyAscii As Integer)
  Select Case KeyAscii
    Case vbKeyReturn 'Enter-tast
      SendKeys "{tab}" 'Sender tabulatortegn i stedet for
    Case vbKeyBack 'Backspace
    Case 48 To 57 'Tallene 0-9
    Case Else 'Alle andre tastetryk
      KeyAscii = 0 'Sletter det tastede tegn
  End Select
End Sub

For at sikre, at der kun indtastes 11 karakterer i boxen (som pga. ovennævnte procedure kun kan være tal), kan du sætte dens property MaxLength til 11. Dette kan både gøres i runtime (txtBoks.MaxLength=11) eller i design mode.

/Martin

Hov - nu så jeg at du skriver VBA word 2000. Mit svar går på VB, men mon ikke det lige passer ind i VBA også - det vil jeg tro!!! - ellers skal der vel kun ændres ganske lidt... /Martin

Så besværligt er det ikke! Sådan istedet:

Text1.MaxLength = 11 i design mode er OK!!!

Metoden ser således ud:

Private Sub Text1_KeyPress(KeyAscii As Integer)
    If Not IsNumeric(Chr(KeyAscii)) Then
        KeyAscii = 0
    End If
End Sub

Hvis du vil kunne slette i textbox også skal metoden se dådan ud i stedet:

Private Sub Text1_KeyPress(KeyAscii As Integer)
    If Not IsNumeric(Chr(KeyAscii)) And Not KeyAscii = 8 Then
        KeyAscii = 0
    End If
End Sub

Tak for hjælpen.

Eftersom koden fra martin_moth passer bedst til mit formål, får du 8 og dimle, du får 7.

nicolaus