Help with Code from a Blog Site

[MichaelA]

I found a blog that describes something I want to do but there seems to be a problem with a couple lines in the code provided. The blog is here:



https://www.microsoft.com/en-us/micr...h-as-you-type/

I changed text color of the offending lines of code to red.

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

Thank you very much!

[mike60smart]

Hi

Have you created the Form as a Split Form

Do you have a Control on the Form named "Company"?

[Missinglinq]

The problem, I'm pretty sure, is that that blog gave the code as

Me.Form.Filter = “[Company] = ‘” & _
Replace(Me.cboFilter.Text, “‘”, “””) & “‘”

and the VBA code window doesn't accept these types of symbols...they have a specific name but I can't remember it.

But go into the code window and replace the slanted Single and Double Quotes with " and ' Quotes, which are the ones the code editor uses and recognizes.

Do the same for the code in the Else clause.

Linq ;0)>

[MichaelA]

Hi

Have you created the Form as a Split Form

Do you have a Control on the Form named "Company"?

Yes, I created a split form. I don't have a control called "Company." Mine is named "Title" but I changed the appropriate parts of the code.

Thank you!

[MichaelA]

The problem, I'm pretty sure, is that that blog gave the code as

Me.Form.Filter = “[Company] = ‘” & _
Replace(Me.cboFilter.Text, “‘”, “””) & “‘”

and the VBA code window doesn't accept these types of symbols...they have a specific name but I can't remember it.

But go into the code window and replace the slanted Single and Double Quotes with " and ' Quotes, which are the ones the code editor uses and recognizes.

Do the same for the code in the Else clause.

Linq ;0)>

I did what you suggested. Now, I'm getting an "Expected: list separator or )" message from the ElseIf statement. The last single quote in the ElseIf statement is highlighted and I get an "Expected: end of statement" error in the Else statement and [Title] is highlighted.

NOTE: I changed [Company] to [Title] to match my form.

Thank you, in advance!

[mike60smart]

Hi

Can you post the SQL that you have used?

[mike60smart]

Hi


Try this:-

Me.Form.Filter = "[Company] = '" & _
Replace(Me.cboFilter.Text, "'", """) & "'"

[MichaelA]

Mike,

Thank you for your time and help. I found another code that accomplished the same thing. I went with this...

Private blnSpace As Boolean




Private Sub cboFilter_Change()
    If blnSpace = False Then
        Me.Requery
        Refresh
        cboFilter.SetFocus
        cboFilter.SelStart = Len(Me.cboFilter.Text)
    End If
End Sub


Private Sub cboFilter_KeyPress(KeyAscii As Integer)
    If KeyAscii = 32 Then
        blnSpace = True
    Else
        blnSpace = False
    End If
End Sub

[Missinglinq]

Just so you know...

Me.Form.Filter = "[Company] = '" & _
Replace(Me.cboFilter.Text, "'", """)

should have been

Me.Form.Filter = "[Company] = '" & _
Replace(Me.cboFilter.Text, "'", """")

replacing an apostrophe with ""...a Zero-Length String.

When doing this sort of thing...your Quote marks (the Doubles, in this case) have to be in pairs. In the first example there are 7 Double Quotes, not 8.

Glad you got it working!

Linq ;0)>

[MichaelA]

Just so you know...

Me.Form.Filter = "[Company] = '" & _
Replace(Me.cboFilter.Text, "'", """)

should have been

Me.Form.Filter = "[Company] = '" & _
Replace(Me.cboFilter.Text, "'", """")

replacing an apostrophe with ""...a Zero-Length String.

When doing this sort of thing...your Quote marks (the Doubles, in this case) have to be in pairs. In the first example there are 7 Double Quotes, not 8.

Glad you got it working!

Linq ;0)>

OK, that's why I was getting the "Expected: End of Statement" error.

Thank you! I appreciate your time and help.

[Missinglinq]

Glad we could help!

Good luck with your project!

Linq ;0)>