VB Controls, How do I move cursor to next textbox after hitting enter

How do I move cursor to next textbox after hitting enter

Author	Message
Davi #1 / 4	How do I move cursor to next textbox after hitting enter I need to move to the next textbox after a user hits enter. Is there a way to do this? Private Sub Text2_KeyDown(KeyCode As Integer, Shift As Integer) Select Case KeyCode Case vbKeyReturn rstreturns!Date = returns.Text2.Text & vbNullString KeyCode = 9 ??? End Select End Sub Thanks in advance for any help David Adam
Sun, 05 Jan 2003 03:00:00 GMT

Ken Halte #2 / 4	How do I move cursor to next textbox after hitting enter There are a couple ways to do this.... Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii =13 then KeyAscii = 0 'Suppress beep TheNextTextBox.SetFocus End If End Sub or Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii =13 then KeyAscii = 0 'Suppress beep SendKeys "{Tab}" ,True 'Send a tab key to move the cursor to the next control in the tab order. End If End Sub Quote: > I need to move to the next textbox after a user hits enter. Is there a way > to do this? > Private Sub Text2_KeyDown(KeyCode As Integer, Shift As Integer) > Select Case KeyCode > Case vbKeyReturn > rstreturns!Date = returns.Text2.Text & vbNullString > KeyCode = 9 ??? > End Select > End Sub > Thanks in advance for any help > David Adam
Sun, 05 Jan 2003 03:00:00 GMT

Greg Siemo #3 / 4	How do I move cursor to next textbox after hitting enter Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then SendKeys vbTab: KeyAscii = 0 End Sub -- Greg Siemon Quote: > I need to move to the next textbox after a user hits enter. Is there a way > to do this? > Private Sub Text2_KeyDown(KeyCode As Integer, Shift As Integer) > Select Case KeyCode > Case vbKeyReturn > rstreturns!Date = returns.Text2.Text & vbNullString > KeyCode = 9 ??? > End Select > End Sub > Thanks in advance for any help > David Adam
Sun, 05 Jan 2003 03:00:00 GMT

Davi #4 / 4	How do I move cursor to next textbox after hitting enter SendKeys "{Tab}" ,True works for me. Thanks Ken David Adam Quote: > There are a couple ways to do this.... > Private Sub Text1_KeyPress(KeyAscii As Integer) > If KeyAscii =13 then > KeyAscii = 0 'Suppress beep > TheNextTextBox.SetFocus > End If > End Sub > or > Private Sub Text1_KeyPress(KeyAscii As Integer) > If KeyAscii =13 then > KeyAscii = 0 'Suppress beep > SendKeys "{Tab}" ,True 'Send a tab key to move the cursor to the > next control in the tab order. > End If > End Sub > > I need to move to the next textbox after a user hits enter. Is there a > way > > to do this? > > Private Sub Text2_KeyDown(KeyCode As Integer, Shift As Integer) > > Select Case KeyCode > > Case vbKeyReturn > > rstreturns!Date = returns.Text2.Text & vbNullString > > KeyCode = 9 ??? > > End Select > > End Sub > > Thanks in advance for any help > > David Adam
Sun, 05 Jan 2003 03:00:00 GMT

Page 1 of 1

[ 4 post ]