No problem - glad to help! I've never noticed that help says "KeyANSI", but
you're right - it sure does....

--
Regards,

Jake Marx
MS MVP - Excel
www.longhead.com

[please keep replies in the newsgroup - email address unmonitored]


wrote:
Hi Jake,

Excellent idea! I didn't know setting KeyAscii to 0 would
surpress the keystroke. HELP has nothing about it. HELP
also says *KeyANSI* instead of *KeyAscii*, so I shouldn't
be too surprised.

I generalized your idea into a function I could call from
all of the text boxes and it seems to work nicely.

Thanks again,

David

--- code snippets ---

Private Sub Textbox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
KeyAscii = CheckKey(KeyAscii)
End Sub


Function CheckKey(ByVal KeyAscii As MSForms.ReturnInteger) As Integer
Dim i As Integer

i = InStr("/+*-.", Chr(KeyAscii))
' 12345
CheckSpecialKeyx = 0 ' Assume a match and we want to kill
' this key
Select Case i
Case 0 ' We're not interested
CheckSpecialKeyx = KeyAsciiin this key
Case 1 ' / = Toggle component textboxes
ToggleComponents
Case 2 ' + = Process data, dismiss form
CheckOut
Case 3 ' * = Toggle penalty textboxes
TogglePenalties
Case 4 ' - = Back-TAB
SendKeys "+{TAB}", False
Case 5 ' . = Delete textbox contents
ActiveControl = ""
ActiveControl.BackColor = rgbWhite
End Select
End Function


------------------------------------------------------------------------
Hi David,

You can use the KeyPress event to do something like that:

Private Sub TextBox1_KeyPress(ByVal KeyAscii As
MSForms.ReturnInteger) Select Case KeyAscii
Case Asc("+")
TextBox2.SetFocus
KeyAscii = 0
Case Asc("-")
TextBox3.SetFocus
KeyAscii = 0
End Select
End Sub

If the + key is pressed while in TextBox1, focus will move to
TextBox2. If - is pressed, focus goes to the previous TextBox.
Setting KeyAscii=0 within the event routine will supress the output
of that keystroke. You can also use this event routine to make sure
only numeric digits or +/- are pressed:

Private Sub TextBox1_KeyPress(ByVal KeyAscii As
MSForms.ReturnInteger) Select Case KeyAscii
Case Asc("+")
TextBox2.SetFocus
KeyAscii = 0
Case Asc("-")
TextBox3.SetFocus
KeyAscii = 0
Case Else
If InStr(1, "0123456789.", Chr$(KeyAscii)) = 0 Then
Interaction.Beep
KeyAscii = 0
End If
End Select
End Sub