Textbox to take focus

[Arkimediz]

I have command button that makes a text box visible to
input a password. How do I make the text box take the
focus to input the password without having to click in it
and can I make the enter key take the action to check the
password instead of having to use another command button?

 

[Tom Ogilvy]

assuming you are using a userform, set the taborder to 0 for the textbox.

use one of the key events to detect the enter key.

 

[Cesar Zapata]

for the commandbutton you need something like this

Private Sub CommandButton1_Click()
TextBox1.Visible = True
TextBox1.SetFocus '
End Sub




for the textbox use the Keydown event. something like this.

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger,
ByVal Shift As Integer)
If KeyCode = 13 Then


'your ACtion here


End If

End Sub




Cesar Zapata

 

[Arkimediz]

Not using userform but just a textbox and I am not sure
how to use the key events. Sorry.

 

[Guest]

I tried that - Visible works but setfocus throws up an
error.

 

[Tom Ogilvy]

Activesheet.Textbox1.Activate


Private Sub TextBox1_KeyUp(ByVal KeyCode As _
MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 13 Then
' code to validate entry
End If
End Sub

 

[Tom Ogilvy]

Based on Arkimediz latest input, it appears the textbox is not on a
userform.
So just for information for Arkimediz, a textbox on a worksheet does not
have a setfocus method.

 

[Arkimediz]

Thank you - first bit works to "take focus"

Will work on next bit!!

 

[Tom Ogilvy]

If you put the KeyUp event in the same module as the CommandButton event,
then it should work. It worked for me. (unless you mean add the code to
validate the password).