Cancelled Previous Operation


G

Guest

Hi All,

I am running the following code and getting the "You Cancelled the previous
operation" error message. When I first open the form the error shows up on
the "Me.Filter = Left(strFilter, Len(strFilter) - Len(cAND))" line but then
on subsequent attempts it shows up on the "Me.FilterOn = True" line.

On the Main form "cbo_cnt_spec" and on the subform "Cnt_spec" are both
Lookup fields where I am trying to match the second colum. The same applies
to the Main form "cbo_actn" and the subform "Action" fields. The first colum
is the number field, and the second column contains the text. Can I even do
that?

Here is some additional information:

Numeric fields on the main form are:

cbo_Acct_Num
cbo_Terr

and on the Subform the numeric fields are:

Account_No
Terr



Private Function BuildFilter()

Const cAND As String = " AND "
Dim strFilter As String

If Not IsNull(cbo_Cnt_Spec) Then
strFilter = strFilter & "[Cnt_Spec]='" & [cbo_Cnt_Spec].Column(1) & "'"
& cAND
End If

If Not IsNull(cbo_Terr) Then
strFilter = strFilter & "[Terr]=" & [cbo_Terr] & cAND
End If

If Not IsNull(cbo_account_No) Then
strFilter = strFilter & "[Acct_Num]=" & [cbo_account_No] & cAND
End If

If Not IsNull(cbo_Acct_Name) Then
strFilter = strFilter & "[Acct_Name]='" & [cbo_Acct_Name] & "'" & cAND
End If

If Not IsNull(cbo_contract_No) Then
strFilter = strFilter & "[Contract_No]='" & [cbo_contract_No] & "'" & cAND
End If

If Not IsNull(cbo_Month_Year) Then
strFilter = strFilter & "[Month/Year]='" & [cbo_Month_Year] & "'" & cAND
End If

If Not IsNull(cbo_actn_No) Then
strFilter = strFilter & "[Action]='" & [cbo_Action] & "'" & cAND
End If

If Len(strFilter) = 0 Then
Me.FilterOn = False
Else
' remove the last " AND "
Me.Filter = Left(strFilter, Len(strFilter) - Len(cAND))
Me.FilterOn = True
End If

End Function
 
Ad

Advertisements

G

Guest

I'm sorry, I said when I first open the form I get these messages. That is
incorrect. I get them on my first attempt to filter.
 
Ad

Advertisements

G

Graham Mandeno

This question is being discussed in another thread below...
Subject: Need help filtering on multiple combo boxes
--

Graham Mandeno [Access MVP]
Auckland, New Zealand

Emma Aumack said:
I'm sorry, I said when I first open the form I get these messages. That
is
incorrect. I get them on my first attempt to filter.
--
www.bardpv.com
Tempe, Arizona


Emma Aumack said:
Hi All,

I am running the following code and getting the "You Cancelled the
previous
operation" error message. When I first open the form the error shows up
on
the "Me.Filter = Left(strFilter, Len(strFilter) - Len(cAND))" line but
then
on subsequent attempts it shows up on the "Me.FilterOn = True" line.

On the Main form "cbo_cnt_spec" and on the subform "Cnt_spec" are both
Lookup fields where I am trying to match the second colum. The same
applies
to the Main form "cbo_actn" and the subform "Action" fields. The first
colum
is the number field, and the second column contains the text. Can I even
do
that?

Here is some additional information:

Numeric fields on the main form are:

cbo_Acct_Num
cbo_Terr

and on the Subform the numeric fields are:

Account_No
Terr



Private Function BuildFilter()

Const cAND As String = " AND "
Dim strFilter As String

If Not IsNull(cbo_Cnt_Spec) Then
strFilter = strFilter & "[Cnt_Spec]='" & [cbo_Cnt_Spec].Column(1) &
"'"
& cAND
End If

If Not IsNull(cbo_Terr) Then
strFilter = strFilter & "[Terr]=" & [cbo_Terr] & cAND
End If

If Not IsNull(cbo_account_No) Then
strFilter = strFilter & "[Acct_Num]=" & [cbo_account_No] & cAND
End If

If Not IsNull(cbo_Acct_Name) Then
strFilter = strFilter & "[Acct_Name]='" & [cbo_Acct_Name] & "'" &
cAND
End If

If Not IsNull(cbo_contract_No) Then
strFilter = strFilter & "[Contract_No]='" & [cbo_contract_No] & "'" &
cAND
End If

If Not IsNull(cbo_Month_Year) Then
strFilter = strFilter & "[Month/Year]='" & [cbo_Month_Year] & "'" &
cAND
End If

If Not IsNull(cbo_actn_No) Then
strFilter = strFilter & "[Action]='" & [cbo_Action] & "'" & cAND
End If

If Len(strFilter) = 0 Then
Me.FilterOn = False
Else
' remove the last " AND "
Me.Filter = Left(strFilter, Len(strFilter) - Len(cAND))
Me.FilterOn = True
End If

End Function
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top