Enter Key

[takeover]

Hi Gurus,

I am new to VB. Is there a way to write an even procedure in VB. The thing I need to achieve is, I have some text boxes in a form and when I enter a value in one text box and press enter key, I need to accept the value in a variable and the cursor should go to the next text box. How could I achieve this?

takeover

 

[vbrocks]

Try this .....


Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyReturn Then Text2.SetFocus
End Sub

 

[vbrocks]

I forgot the variable part ....

Public TextData

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyReturn Then Text2.SetFocus
Textdata = Text1.text
End Sub

 

[BlackKnight]

Hi,

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
'Be sure to have the form's keypreview property set to true.
If KeyCode = vbKeyReturn Then SendKeys ("{Tab}&quot
End Sub

Have a good one!
BK

 

[CCLINT]

And to get rid of the Beep use the KeyPress event instead, and a slight addition to BlackKnight's code wxample:

Private Sub Text_KeyPress(KeyCode As Integer, Shift As Integer)
If KeyAscii = vbKeyReturn Then
SendKeys ("{Tab}&quot
KeyAscii = 0
End If
End Sub

This, (all of the above examples) will conflict with things like Multi-Line text boxes, so you should check the control name and exempt these from the "override"