Question

This request is based in MS Access VBA. I would like to know what the most efficient way is, to see if an item exists in a listbox control.

Answer 1

Here is a sample function that might be adapted to suit.

Function CheckForItem(strItem, ListB As ListBox) As Boolean Dim rs As DAO.Recordset Dim db As Database Dim tdf As TableDef      Set db = CurrentDb      CheckForItem = False      Select Case ListB.RowSourceType         Case 'Value List'             CheckForItem = InStr(ListB.RowSource, strItem) > 0          Case 'Table/Query'             Set rs = db.OpenRecordset(ListB.RowSource)              For i = 0 To rs.Fields.Count - 1                 strList = strList & ' & '','' & ' & rs.Fields(i).Name             Next              rs.FindFirst 'Instr(' & Mid(strList, 10) & ','' & strItem & '')>0'              If Not rs.EOF Then CheckForItem = True          Case 'Field List'              Set tdf = db.TableDefs(ListB.RowSource)              For Each itm In tdf.Fields                 If itm.Name = strItem Then CheckForItem = True             Next      End Select  End Function