Re: Runtime Error 2001,when setting filter.

Tech-Archive recommends: Fix windows errors by optimizing your registry

How long is this filter?
You should be able to assign any practical filter in code.

If it's a multi-select list box, use IN () instead of a bunch of ORs.

If the worst comes to the worst, you could build the complete SQL statement
instead of just the Filter (which is the WHERE clause of an SQL statement),
and assign it to the form's RecordSource.

--
Allen Browne - Microsoft MVP. Perth, Western Australia.
Tips for Access users - http://allenbrowne.com/tips.html
Reply to group, rather than allenbrowne at mvps dot org.

"Lars Pedersen" <no> wrote in message
news:O1ahnvzaFHA.2996@xxxxxxxxxxxxxxxxxxxxxxx
> But I ran into another problem, the filter will to long to be applied :-(
>
> /Lars
>
> "Lars Pedersen" <no> wrote in message
> news:%23M1yUgzaFHA.2124@xxxxxxxxxxxxxxxxxxxxxxx
>> Thank you very much, now it works.(I found the code on internet, and was
>> making it work for me. obviously I haven't got the fundamentals right,
>> since I did not se that one)
>>
>> /Lars
>>
>> "Allen Browne" <AllenBrowne@xxxxxxxxxxxxxx> wrote in message
>> news:uJlxl3yaFHA.3040@xxxxxxxxxxxxxxxxxxxxxxx
>>> The message means that Access cannot complete the current action
>>> (turning the FilterOn), because the previous action is now found to be
>>> invalid. The previous operation is therefore assigning the string to the
>>> Filter, and the message is telling you that the Filter string you
>>> assigned is malformed.
>>>
>>> If ID is a Number field (not a Text field), lose the extra quotes, i.e.:
>>> Criteria = Criteria & " ID = " & Me![lstShipInfo].ItemData(i)
>>>
>>> That will still be invalid if ItemData(i) is null or a zero-length
>>> string.
>>>
>>>
>>> "Lars Pedersen" <no> wrote in message
>>> news:OGPgk9uaFHA.3144@xxxxxxxxxxxxxxxxxxxxxxx
>>>> Hi there.
>>>> I am getting run-time error 2001 "You cancled the previus operation",
>>>> when my code reach
>>>> the frmFilterOn=true . I can not find out what operation it is talking
>>>> about and why, can anyone help me.
>>>> The code is on a popup search form, ID is autonumber that uniquely
>>>> identifies the record
>>>>
>>>> Code:
>>>> Private Sub cmdUseAsFilter_Click()
>>>> Dim Criteria As String
>>>> Dim i As Variant
>>>> Dim frm As Form
>>>> Set frm = Forms(Me.OpenArgs)
>>>> ' Build criteria string from selected items in list box.
>>>> Criteria = ""
>>>> For Each i In Me![lstShipInfo].ItemsSelected
>>>> If Criteria <> "" Then
>>>> Criteria = Criteria & " OR "
>>>> End If
>>>> Criteria = Criteria & " ID = '" & Me![lstShipInfo].ItemData(i) &
>>>> "'"
>>>> Next i
>>>> ' Filter the form using selected items in the list box.
>>>> frm.Filter = Criteria
>>>> frm.FilterOn = True
>>>> DoCmd.Close acForm, Me.Name
>>>> End Sub


.

Relevant Pages

  • Re: Filtering records on a form using multiple combo boxes
    ... So, then, you will need to build the Where string from that information, ... these 3 combo boxes have command buttons to activate the filtering ... filter the field in the record list box.. ... For the Agent Combo Box, ...
    (microsoft.public.access.forms)
  • RE: Set Filter from Startup form to another form
    ... Private Sub Form_Load ... Dim strPrg As String ... Private Function StartProgramAs String ... Now all that is necessary is to set the filter for each form where you want ...
    (microsoft.public.access.formscoding)
  • Re: Filter for Report not working?????
    ... cno2, cField string ... contFilter DynArrayString ... I surround the value with quotes to make it a string otherwise the filter ... I decided to go with a table in PRIV for the report. ...
    (comp.databases.paradox)
  • data access page search code
    ... Dim SerVal As String 'Value to search against ... Dim strWhere As String 'The filter to use ... Dim strPrompt As String 'MsgBox prompt to use ...
    (microsoft.public.access.modulesdaovba)
  • RE: Query form coding
    ... What is the record source of the report? ... Dim strSource As String ... ' Remove Filter ... For Each varItem In Me.namelst.ItemsSelected ...
    (microsoft.public.access.formscoding)