RUNTIME ERROR 2176 1

[Aaswi]

Hi to every one in the Forum.
My name is ALi and am new to the Forum. I have a problem with Filter in VBA when i try to execute the following code

----------------------------------
If RS1.RecordCount > 0 Then
X = "("
Do While Not RS1.EOF
X = X + "'" + RS1.Fields(0) + "'"
'MsgBox X

RS1.MoveNext

If Not RS1.EOF Then
X = X + ","
Else
X = X + ")"
End If
Loop
' MsgBox X
X = "EMPLOYEES IN " + X

Me.Filter = X
Me.FilterOn = True
' MsgBox X
End If
--------------------------

 

[Remou]

It works for me, though the usual text concatenator is & not +, + can cause problems. What error are you getting?

 

[Golom]

Check out thread705-1465113.

You have probably exceeded the allowable length of the filter property.

 

[JoeAtWork]

A suggestion for next time you post is to include the message for the error. I think most of us have not memorized the error codes.

 

[TheAceMan1]

How are ya Aaswi . . .

. . . and this:

[blue]   If RS1.RecordCount > 0 Then
      Do Until RS1.EOF
         If x <> "" Then
            x = x & ", '" & RS1.Fields(0) & "'"
         Else
            x = "('" & RS1.Fields(0) & "'"
         End If
         
         RS1.MoveNext
      Loop
     
      x = "EMPLOYEES IN " & x & ")"
      
      Me.Filter = x
      Me.FilterOn = True
   End If[/blue]

[blue]Your Thoughts? . . .[/blue]

See Ya! . . . . . .

Be sure to see thread181-473997
Also faq181-2886

 

[Remou]

Have you looked at the link posted by Golom?