Need correction in Very Short search code

[rehanemis]

Hi Professionals,


I have copied code from http://blogs.office.com/2012/05/03/using-a-combo-box-to-search-as-you-type/ and tried it to my Access program but not working as they mentioned. Can any body tell what is the wrong into the code and can give me access file after implementing it for demo.

Then in the Change event of the Combo Box, we add the following code:

Private Sub cboFilter_Change()​

‘ If the combo box is cleared, clear the form filter.
If Nz(Me.cboFilter.Text) = “” Then
Me.Form.Filter = “”
Me.FilterOn = False

‘ If a combo box item is selected, filter for an exact match.
‘ Use the ListIndex property to check if the value is an item in the list.
ElseIf Me.cboFilter.ListIndex <> -1 Then
Me.Form.Filter = “[Company] = ‘” & _
Replace(Me.cboFilter.Text, “‘”, “””) & “‘”
Me.FilterOn = True

‘ If a partial value is typed, filter for a partial company name match.
Else
Me.Form.Filter = “[Company] Like ‘*” & _
Replace(Me.cboFilter.Text, “‘”, “””) & “*'”
Me.FilterOn = True
End If

‘ Move the cursor to the end of the combo box.
Me.cboFilter.SetFocus
Me.cboFilter.SelStart = Len(Me.cboFilter.Text)
End Sub


Your help will be highly appreciated.


Thanks

 

[JHB]

Do you get any error or what is the problem?
One thing I can see which isn't correct is the “” it should be " and the same for ‘ it should be '. try to replace all the above mention character!

 

[rehanemis]

Thanks for your reply.

Can you please give a look at the DB i have attached and can correct it.

Thanks

 

[JHB]

Replace the code you've with the below:

Private Sub cboSearch_Change()
If Nz(Me.cboSearch.Text) = "" Then
    Me.Form.Filter = ""
    Me.FilterOn = False
    
ElseIf Me.cboSearch.ListIndex <> -1 Then
  Me.Form.Filter = "[FirstName] ='" & Me.cboSearch.Text & "'"
  Me.FilterOn = True
ElseIf Me.cboSearch.ListIndex <> -1 Then
   Me.Form.Filter = "[FirstName] = '" & Replace(Me.cboSearch.Text, "'", """")
   Me.FilterOn = True
Else
    Me.Form.Filter = "[FirstName] Like '*" & Me.cboSearch.Text & "*'"
    Me.FilterOn = True
End If
Me.cboSearch.SetFocus
Me.cboSearch.SelStart = Len(Me.cboSearch.Text)
End Sub

 

[rehanemis]

Excellent,

So much Thanks professional Coder.

 

[rehanemis]

Hi,

One More thing, Can you add comments into your code, what changes you made so that i can understand the working of whole code.

Thanks

 

[vbaInet]

Sorry, not following this thread, just highlighting two little lines for JHB to correct.

[COLOR="red"]ElseIf Me.cboSearch.ListIndex <> -1 Then[/COLOR]
  Me.Form.Filter = "[FirstName] ='" & Me.cboSearch.Text & "'"
  Me.FilterOn = True
[COLOR="Red"]ElseIf Me.cboSearch.ListIndex <> -1 Then[/COLOR]
   Me.Form.Filter = "[FirstName] = '" & Replace(Me.cboSearch.Text, "'", """")
   Me.FilterOn = True

 

[JHB]

Hi,

One More thing, Can you add comments into your code, what changes you made so that i can understand the working of whole code.

Thanks

Compare it to the code you have in the database you attached.
Take advance of what vbaInet wrote, you've two with the same if statement.