Question about a textbox_change event in Excel Userform

[FuNeS13]

Hello all,

Am I right to say that after this txtbx_Change event is run the cursor/focus should be set to the same textbox, right?

Private Sub TextBox1_change()
If Not Len(TextBox1.Value) = 14 Then
        Exit Sub
    Else
End If

Dim SN As String
SN = TextBox1.Value

    Call Label_Print_Code(SN)
   
Application.Wait (Now + TimeValue("0:00:01"))
Me.TextBox1.SetFocus
End Sub

 

[Norie]

It should be, is that not happening?

 

[FuNeS13]

It should be, is that not happening?

It does work on my computer, but when I run it on a desktop it doesn't, goes back to a previous combo box.

 

[DanteAmor]

Call Label_Print_Code(SN)

You can put that code here.

 

[FuNeS13]

You can put that code here.

Here you go.

Public Sub Label_Print_Code(SN As String)
Dim SapGuiAuto 'As Object 
Dim SapApp 'As Object 
Dim SapCon 'As Object 
'Dim Session As Object 


'Connect to SAP input Data"

    Set SapGuiAuto = GetObject("SAPGUI") 
    Set SapApp = SapGuiAuto.GetScriptingEngine
    Set SapCon = SapApp.Children(0) 
    Set session = SapCon.Children(0) 



session.findById("wnd[0]/usr/subSUBSCR_SERIAL_NO:SAPLZEGL_LB51:8010/tblSAPLZEGL_LB51LG_IOTAB_CTR/txtZEGLS_SERIOT-START[2,0]").Text = SN

session.findById("wnd[0]/usr/subSUBSCR_SERIAL_NO:SAPLZEGL_LB51:8010/tblSAPLZEGL_LB51LG_IOTAB_CTR/txtZEGLS_SERIOT-START[2,0]").SetFocus
session.findById("wnd[0]/usr/subSUBSCR_SERIAL_NO:SAPLZEGL_LB51:8010/tblSAPLZEGL_LB51LG_IOTAB_CTR/txtZEGLS_SERIOT-START[2,0]").caretPosition = 14
session.findById("wnd[0]/usr/subSUBSCR_PRINTER:SAPLZEGL_MP11:8010/cmbCCGLC_PRN-NAME").Key = "000000000000000041"

session.findById("wnd[0]/usr/btnDRUCKEN").press




session.findById("wnd[0]/usr/subSUBSCR_SERIAL_NO:SAPLZEGL_LB51:8010/tblSAPLZEGL_LB51LG_IOTAB_CTR/txtZEGLS_SERIOT-START[2,0]").Text = ""
session.findById("wnd[0]/usr/subSUBSCR_SERIAL_NO:SAPLZEGL_LB51:8010/tblSAPLZEGL_LB51LG_IOTAB_CTR/txtZEGLS_SERIOT-START[2,0]").SetFocus
session.findById("wnd[0]/usr/subSUBSCR_SERIAL_NO:SAPLZEGL_LB51:8010/tblSAPLZEGL_LB51LG_IOTAB_CTR/txtZEGLS_SERIOT-START[2,0]").caretPosition = 0


'disconnect from SAP
    Set session = Nothing ' 
    Set SapCon = Nothing ' 
    Set SapApp = Nothing ' 
    Set SapGuiAuto = Nothing '


Me.TextBox1.Value = ""


End Sub

 

[DanteAmor]

The only weird thing I see is that you are cleaning the textbox1. Let's repeat the setfocus, try this:

Private Sub TextBox1_change()
  If Not Len(TextBox1.Value) = 14 Then
    Me.TextBox1.SetFocus
    Exit Sub
  End If
  
  Dim SN As String
  SN = TextBox1.Value
  Call Label_Print_Code(SN)
  Application.Wait (Now + TimeValue("0:00:01"))
  Me.TextBox1.SetFocus
End Sub

 

[FuNeS13]

The only weird thing I see is that you are cleaning the textbox1. Let's repeat the setfocus, try this:

Private Sub TextBox1_change()
  If Not Len(TextBox1.Value) = 14 Then
    Me.TextBox1.SetFocus
    Exit Sub
  End If
 
  Dim SN As String
  SN = TextBox1.Value
  Call Label_Print_Code(SN)
  Application.Wait (Now + TimeValue("0:00:01"))
  Me.TextBox1.SetFocus
End Sub

The reason why I'm cleaning txtbx1 is because there is going to be a new entry. let me try your code. thanks!