Excel VBA Keep Focus on TextBox

[hendyhellen]

Hello all,

How to make the cursor always focus on the textbox after user pressing enter on textbox ?

Using this code, the cursor not focus on textbox after input and pressing enter

Private Sub TextBox1_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
If Len(TextBox1.Text) <> 0 Then
    Product = UCase(TextBox1.Value)
    Call Print_Label
    Me.TextBox1.Text = vbNullString
    Me.TextBox1.SetFocus
    Cancel = True
End If
End Sub

Thank you all~

 

[hendyhellen]

The details of code that i want is, open the textbox for user input the barcode -> then excel find the data on other sheet -> data match the label will be print out -> focus again on text box

Could you explain what you're trying to do in more detail?
I'm not familiar with scanning barcode in Excel.
When you scanning the barcode, where the barcode should go? in the textbox? and in order to do that you need the focus at the textbox first?

 

[hendyhellen]

PERFECT!!, now the code works as what i needed

Thank you so much for the code.
You help me out as much as you can.
It really means a lot

You have my deepest thanks. All the very best for you
Have a great day Micron~

In a test copy of your file try this:
- delete Module1, 3 and 4
- change Module2 to:
Option Explicit '<< don't duplicate this line anywhere

Public Product As String

Sub Print_Label()

On Error GoTo ErrHandler
With Sheets("Label")
    .Range("A4") = Product
    .PrintOut
    .PrintOut
End With

Exit Sub
ErrHandler:
MsgBox "BARCODE DOES NOT EXIST", vbInformation, ""

End Sub

In ThisWorkbook module at the top:
Option Explicit

In same module, create ThisWorkbook.Open event and paste in:

Private Sub Workbook_Open()
    'Application.Visible = False '<< you can cycle this on/off as it suits you
    UserForm1.Show vbModeless
End Sub

Comment out all the Textbox1 BeforeUpdate code, or delete the whole sub
Add CommandButton1.click event, then paste this code into it:

If Len(TextBox1.Text) <> 0 Then
     Product = UCase(TextBox1.Value)
     Print_Label
     Me.TextBox1.Text = "" 'vbNullString
     Cancel = True
End If

Me.TextBox1.SetFocus

That works for me.
The reason you see a different view is because as I noted, not all of your code runs for you the way you have it.

 

[Micron]

Glad I could help & thanks for the recognition!

 

[hendyhellen]

Sorry to interrupt you again,
the code works, but i must click the button then print out label works
is there a way to make event like this
Input Code (my barcode scanner already set ENTER after scanning) - ENTER - PRINT

the vba code that you make now is
Input Code - click the command button - PRINT

Thanks once again~

Glad I could help & thanks for the recognition!

 

[Micron]

Based on research and lack of experience with scan guns I did this, which seems to work. I suggest you read all before attempting.
In form design view...
Add another textbox, anywhere, any size. I first put it under command button then moved it over top of button
Set tab stop property to False for all controls
For both textboxes
- set EnterKeyBehavior property to false
- set TabStop property to false
Right click on Textbox1, choose View Code from context (right click) menu.
Select KeyUp from events list

Put this line in the KeyUp event
If KeyCode = 13 Then Call CommandButton1_Click
Change button click code to this:

change to this
Private Sub CommandButton1_Click()

If Len(TextBox1.Text) <> 0 Then
     Product = UCase(TextBox1.Value)
     Print_Label
     Me.TextBox1.Text = "" 'vbNullString
     Cancel = True
End If

Me.TextBox2.SetFocus
Me.TextBox1.SetFocus
'Me.TextBox1.SelStart = 1 'try enabling this line if focus doesn't go to textbox1

End Sub

Now you can drag Textbox2 over top of button and hide it under button:

If you need to get at textbox2, pick it from this list

Hopefully I didn't forget anything all that will fix your problem.

 

[hendyhellen]

Based on research and lack of experience with scan guns I did this, which seems to work. I suggest you read all before attempting.
In form design view...
Add another textbox, anywhere, any size. I first put it under command button then moved it over top of button
Set tab stop property to False for all controls
For both textboxes
- set EnterKeyBehavior property to false
- set TabStop property to false
Right click on Textbox1, choose View Code from context (right click) menu.
Select KeyUp from events list
View attachment 96370

Put this line in the KeyUp event
If KeyCode = 13 Then Call CommandButton1_Click
Change button click code to this:

change to this
Private Sub CommandButton1_Click()

If Len(TextBox1.Text) <> 0 Then
     Product = UCase(TextBox1.Value)
     Print_Label
     Me.TextBox1.Text = "" 'vbNullString
     Cancel = True
End If

Me.TextBox2.SetFocus
Me.TextBox1.SetFocus
'Me.TextBox1.SelStart = 1 'try enabling this line if focus doesn't go to textbox1

End Sub

Now you can drag Textbox2 over top of button and hide it under button:
View attachment 96368

If you need to get at textbox2, pick it from this list
View attachment 96369

Hopefully I didn't forget anything all that will fix your problem.

This works 100%

Thank you so much once again for spending your time helps me with this code

 

[Micron]

Glad to have been able to help. Good thing too because I was at the end of my rope.