Text Box not working in userform

[mmartinezq202]

Hello Excel Forum,

Looking for help as usual. I am completing a file to look up employees info and to have the ability to add that info by clicking the option " Edit ". To complete that I am using a text box named "ID" that would find the ID value of the employee (which is a random number) and will give me the ability to edit the info.

This is the code I am using...

Somehow it seems that I have disabled the text box ID and it is not pulling up any results. I need help... Attached the file for reference

Private Sub cmdEdit_Click()
'error handler
On Error GoTo cmdEdit_Click_Error
'check that there is data to edit
If Me.txtID = "" Then
Call MsgBox("The fields are not complete", vbInformation, "Edit Contact")
Exit Sub
End If
'find the value in case of duplicates we use an ID
Set findvalue = Sheet1.Range("n8:n10000").Find(what:=Me.txtID, LookIn:=xlValues)
'findvalue.Value = Me.txtID "we do not want to edit the ID"
findvalue.Offset(0, -1).Value = Me.txtEmail.Value
findvalue.Offset(0, -2).Value = Me.txtAddress.Value
findvalue.Offset(0, -3).Value = Me.txtNeigborhood.Value
findvalue.Offset(0, -4).Value = Me.txtPhone.Value
findvalue.Offset(0, -5).Value = Me.txtSupervisor.Value
findvalue.Offset(0, -6).Value = Me.txtNTlogin.Value
findvalue.Offset(0, -7).Value = Me.txtOperatorID.Value
findvalue.Offset(0, -8).Value = Me.txtContractorID.Value
findvalue.Offset(0, -9).Value = Me.txtAvayaID.Value
findvalue.Offset(0, -10).Value = Me.txtEmployeeID.Value
findvalue.Offset(0, -11).Value = Me.txtFirstName.Value
findvalue.Offset(0, -12).Value = Me.txtLastName.Value
Call MsgBox("The contact has been updated", vbInformation, "Edit Contact")

'reset error
On Error GoTo 0
Exit Sub
'if error occurs then show me exactly where the error occurs
cmdEdit_Click_Error:

MsgBox "Error " & Err.Number & " (" & Err.Description & ") in procedure cmdEdit_Click of Form PhoneList"
End Sub

[Norie]

The Operator ID textbox is named txtOperatorID not txtID.

txtID appears to refer to a disabled, 'hidden' textbox below all the other controls in the centre of the form.

[sanram]

Replace

Please Login or Register  to view this content.

With

Please Login or Register  to view this content.

[mmartinezq202]

Thank you for your responses...

The "Operator ID" is a different text box than the "ID" one. The column "N" is the one that contains the company ID for each employee and it should be placed in the bottom part of the userform

[sanram]

Then where is txtID?

[mmartinezq202]

Here you have the file edited so that it shows.
It is the red box showing at the bottom of the userform. What it should do is to return the number assigned in the column "N" of the database sheet for the employee.

For example if I search for Acevedo, Osiris the number 1 should show in that text box

Thank you for your help

[sanram]

You didn't declare the source of txtID anywhere in your macros.

[mmartinezq202]

What should be the best way to fix that # sanram?

[sanram]

You need some adjustment to do this.

1. Press Ctrl+F3. Then click on outdata and change the 12 to 13 on formula at the end.

2. Now go to Private Sub ListBox1_DblClick(). Then write

Please Login or Register  to view this content.

after

Please Login or Register  to view this content.

That's it. Your macro will work then I think.

[mmartinezq202]

It actually did

Thank you

[sanram]

Glad to hear that it did.