Unable to change textbox name without code breaking

[ipbr21054]

Morning,
On my form i have a textbox called txtEmpID
I wish to change its name but when i do the code fails.
In the code shown ive also changed the id = part to match but still fails.
Do you see why please ?


This is the code for my userform.

Private Sub txtEmpID_AfterUpdate()
    Dim id As Integer, rowcount As Integer, foundcell As Range
    
    id = txtEmpID.Value
    
    rowcount = Sheets("G INCOME").Cells(Rows.Count, 13).End(xlUp).Row ' THIS IS COLUMN NUMBER WHERE EMP ID LOCATED
    
    With Worksheets("G INCOME").Range("M1:M" & rowcount) ' THIS IS CELL REFERENCE OF WHERE THE TEXT EMP ID IS LOCATED
        Set foundcell = .Find(what:=id, LookIn:=xlValues)
        
        If Not foundcell Is Nothing Then
            TextBox1.Value = .Cells(foundcell.Row, 2)
            TextBox2.Value = .Cells(foundcell.Row, 3)
            TextBox3.Value = .Cells(foundcell.Row, 4)
            TextBox4.Value = .Cells(foundcell.Row, 5)
            TextBox5.Value = .Cells(foundcell.Row, 6)
        
         Else
            TextBox1.Value = ""
            TextBox2.Value = ""
            TextBox3.Value = ""
            TextBox4.Value = ""
            TextBox1.Value = ""
            
        End If
        
    End With
    
End Sub

 

[Trevor G]

What is the new name you want to use. Also in your Else statement you use the TextBox1.Value = "" Twice the second time I think it should be TextBox5.

As a suggestion you should name each textbox as well it will help identify what the textbox is doing. Example

Textbox1 name code example txtName
Textbox1 name code example txtJobTitle

You mention it is on a form. Do you mean a UserForm and if so what code are using when the form is initialized.

 

[ipbr21054]

Ive changed the TextBox 1 to 5 now thanks.

Keen to know why i am unable to change it.
If i was to call it Customer ID what would need to be changed in the code for it to work.

Curious more than anything why im unable to change it

 

[RoryA]

You can't use a name with a space in it.

You would also need to alter the declaration line:

Private Sub ThisIsTheTextboxName_AfterUpdate()

 

[ipbr21054]

It fails.
I right click that Text box & name it CustomerID
In the code i changed id = txtEmpID.Value TO id = CustomerID.Value

So when i run the code i enter a value in the textbox, say 20 & jot enter.
Then the other textboxes & supposed to get populated from sheet values but nothing happens.

I change CustomerID back to id = txtEmpID.Value & rename box on form & it then works

 

[RoryA]

See post #4.

 

[ipbr21054]

Now sorted i forgot that part.
Thanks.

Another small isue with same form but will start new post