What is Alternate method to change Focus from TextBox to another Control ?

[NimishK]

What is Alternate method to change Focus from TextBox to another Control
whose following properties are


Textbox1.EnterKeyBehaviour = True
Textbox1.MultiLine = True

Following does not Trigger to set focus on another control
Private Sub Textbox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)


If KeyAscii = 13 Then 'The ENTER key.'
SendKeys "{tab}" 'Set the focus to the next control.
KeyAscii = 0 'Ignore this key.
End If
End Sub

NimishK

 

[Yongle]

The code you posted works for me, but try this

Private Sub Textbox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    If KeyAscii = 13 Then 'The ENTER key.'
        SendKeys "{Enter}"[COLOR=#ff0000], True[/COLOR]  'Set the focus to the next control.
        KeyAscii = 0 'Ignore this key.
    End If
End Sub

 

[NimishK]

Am Afraid Yongle Even with Sendkeys "{Enter}" have no success Everything remains same. Hope you changed the foll. properties of Textbox1

Textbox1.EnterKeyBehaviour = True
Textbox1.MultiLine = True

 

[mikerickson]

Its your userform, you know which control is next in the tab order. Send the focus to that control explicitily, code like

Private Sub Textbox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    If KeyAscii = 13 Then
        ComboBox1.SetFocus
        KeyAscii = 0 'Ignore this key.
    End If
End Sub

On the other hand if you want pressing Enter to send the focus to the next control, just set the .EnterKeyBehavior to False.

 

[NimishK]

Sir, Mikerickson

here Textbox1.Multiline = True
so if i change its EnterKeyBehaviour = False then i am not able to goto to next line of Textbox1. Though the focus shifted to next Control ie another Textbox. What can be done so that everyhting goes smoothly With
Textbox1.Multiline = True
Textbox1.EnterKeyBehaviour = True
In Textbox1 when Pressing Enter It goes to new line feed of Textbox1 if
Textbox1.Multiline = True
Textbox1.EnterKeyBehaviour = True

If you have a method with (Alt + Enter) for New Line feed in Textbox1 I shall be really grateful and achieve what i want

 

[Yongle]

Am Afraid Yongle Even with Sendkeys "{Enter}" have no success Everything remains same. Hope you changed the foll. properties of Textbox1

Textbox1.EnterKeyBehaviour = True
Textbox1.MultiLine = True

Yes - my properties are set the same as yours and the cusor jumps to the next control whenever {Tab} is used

If any other event macros are associated with this textbox please post the code - and don't forget CODE TAGS

 

[NimishK]

So you mean to say for this particular text box i need to use Tab key to setfocus to next control and other Controls with Enter.
Will it be not Odd Just for one textbox i ve to use tab key and for others Enter Key as per the following

Private Sub Textbox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    If KeyAscii = 13 Then 'The ENTER key.'
        SendKeys "{Tab}", True  'Set the focus to the next control.
        KeyAscii = 0 'Ignore this key.
    End If
End Sub

 

[NimishK]

Resolved
Got the Hint below quoted from Sir Mikericksons Reply Post 6 from Following Thread : https://www.mrexcel.com/forum/excel-questions/354430-user-form-enter-key-behavior.html

User form ENTER Key behavior.

Have you played with the .EnterKeyBehaviour property?
It will prevent the next control getting the focus when Enter is pressed.

So i changed EnterKeyBehaviour to False in Property of Textbox1 and coded below

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
  If KeyAscii = 13 Then 'The ENTER key.'
     SendKeys "{Tab}" 'Set the focus to the next control.
     KeyAscii = 0 'Ignore this key.
End If
End Sub

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If Shift = 4 And KeyCode = 13 Then
    TextBox1.Text = TextBox1.Text & vbLf
End If

End Sub

So the above is the same effect when data entered with Alt+Enter in a Cell of Worksheet
Thanks NimishK