Search Combo Box

[joesmithjunior]

Hello,


I have a database that keeps track of customers by last name, first name and various other information. I have the combo box setup so that I can type in a last name and it brings up my results. The problem is that it only brings up the first match and doesnt let me browse through all the matches. The last name and first name are seperate fields so if I look for a last name that more than one customer has like smith it only takes me to the first match. Is there any way to make it filter all the names that arent matches out of the combo box as the values are typed in?

[Toyman]

Hello,
I have a database that keeps track of customers by last name, first name and various other information. I have the combo box setup so that I can type in a last name and it brings up my results. The problem is that it only brings up the first match and doesnt let me browse through all the matches. The last name and first name are seperate fields so if I look for a last name that more than one customer has like smith it only takes me to the first match. Is there any way to make it filter all the names that arent matches out of the combo box as the values are typed in?

post the code you use to do the search

[joesmithjunior]

I'm not using any code. I just used the combobox wizard and used option 3 to set it up to search

[joesmithjunior]

Nevermind. Here is the code

Private Sub txtSearch_AfterUpdate()
With Me.RecordsetClone
.FindFirst "[FirstName]=""" & Me.txtSearch & """ OR [Lastname]=""" & Me.txtSearch & """"
If .NoMatch Then
Beep
Else
Me.Bookmark = .Bookmark
End If
End With
End Sub

Private Sub Combo1254_AfterUpdate()
' Find the record that matches the control.
Dim rs As Object

Set rs = Me.Recordset.Clone
rs.FindFirst "[ID] = " & Str(Nz(Me![Combo1254], 0))
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub

Private Sub Combo1256_AfterUpdate()
' Find the record that matches the control.
Dim rs As Object

Set rs = Me.Recordset.Clone
rs.FindFirst "[CUST] = '" & Me![Combo1256] & "'"
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub