A
alianzista84
"Runtime Error '7769': The filter operation was cancelled. The filte
would be too long."
As the above line states, that is the error I am receiving. I've trie
googling for information regarding this problem but unfortunately th
few things I found did not help me much. I will post a snippet of m
code on which it is detecting this error.
Thanks in advance
-----------------------------------------------------------
Case 2 ' OPENED/In-Progress Issues
Me!NowPrinting.Visible = True
' loop through listbox items selected
For Each varItem In Me!lboProject.ItemsSelected
strFilter = strFilter & "[Phase] = '" & _
Me![lboProject].ItemData(varItem) & "' AN
[STATUS]<>'CLOSED' AND [DateOpened] Between #" & _
Me![Start] & "# AND #" & Me![End] & "# OR "
Next ' continue loop
'
' the next bit of code will subtract out the last "OR"
If strFilter <> "" Then
strFilter = Left(strFilter, Len(strFilter) - 4)
Else
MsgBox "You did not select any application(s)."
lboProject.SetFocus
Exit Sub
End If
'
' now, run the report using strFilter to pass a string
' containing the needed apps
DoCmd.OpenReport RName, acPreview, , strFilter
Edited by: alianzista84 on Tue Jun 28 11:51:25 EDT 2005
would be too long."
As the above line states, that is the error I am receiving. I've trie
googling for information regarding this problem but unfortunately th
few things I found did not help me much. I will post a snippet of m
code on which it is detecting this error.
Thanks in advance
-----------------------------------------------------------
Case 2 ' OPENED/In-Progress Issues
Me!NowPrinting.Visible = True
' loop through listbox items selected
For Each varItem In Me!lboProject.ItemsSelected
strFilter = strFilter & "[Phase] = '" & _
Me![lboProject].ItemData(varItem) & "' AN
[STATUS]<>'CLOSED' AND [DateOpened] Between #" & _
Me![Start] & "# AND #" & Me![End] & "# OR "
Next ' continue loop
'
' the next bit of code will subtract out the last "OR"
If strFilter <> "" Then
strFilter = Left(strFilter, Len(strFilter) - 4)
Else
MsgBox "You did not select any application(s)."
lboProject.SetFocus
Exit Sub
End If
'
' now, run the report using strFilter to pass a string
' containing the needed apps
DoCmd.OpenReport RName, acPreview, , strFilter
Edited by: alianzista84 on Tue Jun 28 11:51:25 EDT 2005