Almost there 2

[tusconpapa]

I'm trying to set up the enter key to move the cursor to text2 when pressed (read on )I think I've tried every combo except the right one.. text1 as follows
Private Sub Text1_Keypress(keyascii as Integer)
dim strvalid as string
strvalid = "01234567890"
If InStr(strvalid, Chr(keyAcsii)) = 0 then
KeyAscii = 0
end if
............ This part works just fine.....
Thanks and Merry Christmas

 

[dpaulson]

Set keypreview of the form to true

Private Sub Form_KeyPress(KeyAscii As Integer)
If KeyAscii = vbKeyReturn Then
SendKeys "{TAB}"
KeyAscii = 0
End If
End Sub

David Paulson

 

[tusconpapa]

Works like a champ!! THANKS

 

[swilliams]

How about:

Private Sub Form_KeyPress(KeyAscii As Integer)
If KeyAscii = vbKeyReturn Then ' check for CR
KeyAscii = 9 ' change to tab
End If
End Sub

Simon