Search Record Within a ListBox

[allansiu823]

Hi I am new to MS Access and VBA and have been bothered by this problem for a looooong time. I have this listbox containing all the records (~1000) in a form and I want to be able to type something in and match it with the matching record IN the listbox. I want it to work exactly like the "Find" function in the "Edit" Menu on the Toolbar, however the Find function does not search anything within the listbox.

I tried tp create a textbox and its name is "SearchBox" with a command button called "cmdSearch" . I have the following code on the clicking event of the command button but it says Error:

Private Sub cmdGoSearch_Cli ck()

Dim SearchString As String

SearchString = Me.SearchBox.Va lue
ComputerList.Se tFocus

DoCmd.FindRecor d SearchString, , , , , acAll, True


End Sub

Is there just a syntax error or I have to use some other command or there is no way to implement a Find function like I desire in a listbox?

I have to use a listbox because the desired outlook of the interface is like viewing files in "Details" view of a normal window. I thought about using a form and aligning it nicely but it just won't give you something like a listbox. Using a subform in datasheet view is not desired either.


Please shed me some light on that. Thank you soooooooooooooo much!


allansiu823

[nova_lite]

Try this, im new to access and vba too tho so no idea if it will work..

ListBox1.Select edIndex = ListBox1.FindSt ring("SearchStr ing")

[allansiu823]

Try this, im new to access and vba too tho so no idea if it will work..

ListBox1.Select edIndex = ListBox1.FindSt ring("SearchStr ing")

It seems okay but there is no "FindString " method.......an y similar methods though?

[nova_lite]

try FindByValue

[allansiu823]

Doesnt work either.

I think the problem is the data type. It seems like the listbox does not have those function because when I type ListBox1. and search through the options in the pop up list I cannot find anything related to "find" (nor FindString and FindByValue). Would this be because a listbox simply just doesnt support these find functions? Is there another way to display the records like a listbox then?

[nova_lite]

http://msdn.microsoft.com/library/de...tringTopic.asp

there is a FindString method for listboxes, I don't know if it is for access tho.

[nova_lite]

Try this:

If the items contained within your ListBox are just strings then you could use the IndexOf() method to search the items for a specific string and then set the ListBox’s SelectedIndex property to the value gained from IndexOf() ala:

// Find the item in the list and store the index to the item.
int index = listBoxPartInfo ..Items.IndexOf (searchString);
// Determine if a valid index is returned. Select the item if it is valid.
if (index != -1)
listBoxPartInfo .SelectedIndex = index;
else
MessageBox.Show ("The search string did not match any items in the ListBox");

[nova_lite]

Or this lol.. sorry im just shooting you things I found from other forums..

From time to time, I am frequently asked this question – How do I search a listbox for a string? Well you need ask now more!


Code:
Option Explicit
Private Declare Function SendMessage Lib "User32" Alias "SendMessag eA" (ByVal hWnd As Long, ByVal wMsg As Integer, ByVal wParam As Integer, lParam As Any) As Long

'Searchs a listbox for a matching string. Returns the listindex of the matching item.

Function ListboxFindStri ng(strSearchStr ing As String, lHwndListbox As Long) As Long
Const LB_FINDSTRING = &H18F
ListboxFindStri ng = SendMessage(lHw ndListbox , LB_FINDSTRING, -1, ByVal strSearchString )
End Function



Code:
Private Sub Text1_Change()
Me.List1.ListIn dex = ListboxFindStri ng(Me.Text1, Me.List1.hWnd)
End Sub

Private Sub Form_Load()
With List1
.AddItem "Haresoftwa re"
.AddItem "LocateSoft "
.AddItem "EncodeSoft "
.AddItem "IconSoft"

End With
End Sub


Hey Presto! Search a ListBox for a string!

[nova_lite]

the second method seems to work, try it.

[nova_lite]

http://www.vbcity.com/forums/topic.asp?tid=64808

heres more on that..