Use textbox in userform to retrieve data

Hi,
Please see the below code as some ideas may help you..

Please Login or Register  to view this content.

First you create the textbox for ask user input some id information to search criteria rapidly.
(so above code is textbox change represent for new textbox)
second is create the listbox to display the information to choose as per criteria.
(so above code is listbox1 represent for listing id or some data to choose (click) )

Lutoxel,

Thanks for your response. That code caused a problem with opening the search userform for some reason.

I already have the code that drags the info I want from a spreedsheet to the userform (using a combo box). I just need to know if a textbox can be used for the search instead of a combo or list box. As soon as I get rid of my combo box and change it to a textbox, the 'search' macro to bring up the userform fails.

It would be preferable if, in the search userform, I could type in the Employee ID, click a retrieve cmdbutton and vua la.... Up comes the info. Using the dropdown and scrolling through a hundred employee IDs is a pain.

John

As according to your query, textbox can use for search, but you have put it with for searching purpose only.
If you submit sample file may more clear to advice.

G'day Lotuxel,

I've attempted in the past to attach the database, but it is too big to upload. Here is the code I use to retrieve data, indicating the combo box (cmbEmplID) as the search cell:


Private Sub UserForm_Initialize()
Dim rng As Range

With Sheets(2)
Set rng = .Range("A3", .Range("A" & Rows.Count).End(xlUp))
End With

cmbEmplID.List = rng.Value

End Sub


Private Sub CommandButtonGetData_Click()
Dim idx As Long

idx = cmbEmplID.ListIndex

If idx <> -1 Then
With Worksheets("Recall")
Rank_Title.Value = .Cells(idx + 3, 2).Value
Surname.Value = .Cells(idx + 3, 3).Value
FirstName.Value = .Cells(idx + 3, 4).Value
Address.Value = .Cells(idx + 3, 5).Value
Suburb.Value = .Cells(idx + 3, 6).Value
State.Value = .Cells(idx + 3, 7).Value
Postcode.Value = .Cells(idx + 3, 8).Value
HomeNo.Value = .Cells(idx + 3, 9).Value
MobileNo.Value = .Cells(idx + 3, 10).Value
WorkNo.Value = .Cells(idx + 3, 11).Value
DOB.Value = .Cells(idx + 3, 12).Value
DefEmail.Value = .Cells(idx + 3, 13).Value
Dept.Value = .Cells(idx + 3, 14).Value
PECTitle = .Cells(idx + 3, 15).Value
PECSurname = .Cells(idx + 3, 16).Value
PECFirstNames = .Cells(idx + 3, 17).Value
PECRelationship = .Cells(idx + 3, 18).Value
PECReligion = .Cells(idx + 3, 19).Value
PECAddress = .Cells(idx + 3, 20).Value
PECSuburb = .Cells(idx + 3, 21).Value
PECState = .Cells(idx + 3, 22).Value
PECPostcode = .Cells(idx + 3, 23).Value
PECPrimaryNo = .Cells(idx + 3, 24).Value
PECAltNo = .Cells(idx + 3, 25).Value
PECEmail = .Cells(idx + 3, 26).Value
PECAdditional = .Cells(idx + 3, 27).Value

End With
End If

End Sub