[RESOLVED] textbox question?

[mapperkids]

Hi,

I have 10 textboxes in the form and would like to do something when the user press ENTER, it go to the next textbox (like the tab key does). (Multi-line) text box is not the option.

THanks!

[ganeshmoorthy]

you can use either textboxName.SetFocus or use the following code

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = 13 Then
        SendKeys vbTab
    End If
End Sub

Set FormName.KeyPreview = True in design mode. It will navigate based on the TabIndex value

[Hack]

This is fundamentally what ganeshmoorthy has, but I prefer using the KeyPress event.

Private Sub Text1_KeyPress(KeyAscii As Integer) 
If KeyAscii = 13 Then                ' Enter = Tab
    SendKeys "{tab}"
    KeyAscii = 0
End If
End Sub

[ganeshmoorthy]

This is fundamentally what ganeshmoorthy has, but I prefer using the KeyPress event.

I agree, but I suggest writting it in the Form_KeyPress instead of Text1_KeyPress. If he uses text1_KeyPress then he has to write it in every textbox, if he does not have control array...

[mapperkids]

you can use either textboxName.SetFocus or use the following code

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = 13 Then
        SendKeys vbTab
    End If
End Sub

Set FormName.KeyPreview = True in design mode. It will navigate based on the TabIndex value

Hi,

I tried on both form keypress, keydown events, but not working.

Any reason why?

[ganeshmoorthy]

have you set the KeyPreview of the Form as I mentioned in my earlier post

[Hack]

Again, a matter of preference. If I'm naviagting a specific set of individual controls I prefer coding those individual controls rather than turning "control" over to the form itself.

In the project I just finished one screen is an Audited Financial Statement log. It has three sections: Statement of Operations, Balance Sheet and Cash Flow. Between those three sections there are 61 textboxs (including two separate comments textboxs) and I coded each of their KeyPress events for the Enter key. It may be a bit more work, but I like the control I have of what textbox does what when.

[mapperkids]

Hi,

I tried on both form keypress, keydown events, but not working.

Any reason why?

If KeyAscii = 13 Then ' Enter = Tab
SendKeys "{tab}"
KeyAscii = 0
End If


Yes, it works on the text1.keypress event, but NOT work on form.keypress event.

Thanks a lot !

[ganeshmoorthy]

ya, you may be right for certain projects, but I prefer coding in the Form which has got more controls, eventhough two controls have to be excluded

If KeyCode = 13 Then
        If Not (Form1.ActiveControl.Name = "Text1" Or Form1.ActiveControl.Name = "Text2") Then
            SendKeys vbTab
        End If
    End If

Yes, it works on the text1.keypress event, but NOT work on form.keypress event.

have you set the Form's KeyPreview property to True...