Edit contacts; fill textbox out of listbox

Bandito1

Board Regular
Joined
Oct 18, 2018
Messages
80
Hi all,

I'm making a contactbook for phone contacts.

On userform frmTelephoneSearch i have a listbox named lstSearchResults. It displays all my contacts.

Now i would like to make a new userform to edit contacts that are in lstSearchResults.
I would like to select a name in the lstSearchResults, press a button and open a new userform and there there are textboxes that are filled with the data i clicked in lstSearchResults.

I made this test;

Code:
Private Sub lstSearchResults_Click()TextBox1.value = lstSearchResults.Text
End Sub
It works, the Full name is displayed in textbox1. But i would like that textbox on another userform.
Also there is more date; Full name, Department, Gender, phone and email. How do i specify each column to a textbox?

Hope someone can help.
Thanks in advance.
 

Bandito1

Board Regular
Joined
Oct 18, 2018
Messages
80
Found the answer on this;

It works, the Full name is displayed in textbox1. But i would like that textbox on another userform.
Also there is more date; Full name, Department, Gender, phone and email. How do i specify each column to a textbox?


Code:
[/COLOR]Private Sub UserForm_Initialize()
Me.txtSurname.value = frmTelephoneSearch.lstSearchResults.value
Me.txtDepartment.value = frmTelephoneSearch.lstSearchResults.Column(1)
End Sub
[COLOR=#333333]
 

Forum statistics

Threads
1,078,137
Messages
5,338,458
Members
399,234
Latest member
WaddoAU

Some videos you may like

This Week's Hot Topics

Top