"FIND" routine

[sabavno]

Hi
I have a list box consisting of 5 columns and many rows. I want to create a FIND routine that will let the user find a record(row) in the listbox.

So far I have got the following:

Dim intRow As Integer
Dim cntl As Control
Dim rst As DAO.Recordset
Dim sql As String
Dim strA As String


strA = Nz(InputBox("Enter Last Name", "Cancel&quot)

Set cntl = Me!List0


sql = "select LastName from BlackBerryRecord where LastName = '" & strA & "'"
Set rst = CurrentDb.OpenRecordset(sql, dbOpenDynaset)
If rst.NoMatch = False Then
rst.MoveFirst
For intRow = 0 To cntl.ListCount - 1
If List0.Column(1, intRow) = strA Then
List0.Selected(intRow) = True


Exit For
End If
Next intRow
End If

Set rst = Nothing


It does work if I look for a number, but it comes to the string (last name) it does not work

Please advise

 

[straydog]

If I understand you correctly, It sounds like you may be looking up the wrong column.

e.g If your columns are like such:

Column 0 Column 1 Column 2
IDField, FirstName, LastName

then you will want to change your code from

If List0.Column([red]1[/red], intRow) = strA Then

to

If List0.Column([red]2[/red], intRow) = strA Then

Hope that's what you were looking for.

PDeeney