More Than One Filter On A Form

[bgreer5050]

I have a form with various fields with a double click event to bring
up a filter via a query. Is it possible to goto another field and
apply another filter only to the records that were found after the
first filter.

i.e.

Double Click "Vendor" and "qryfltrDblClic kVendor" runs and returns
records.

Double Click "Mfr" and "qryflterMf r" runs and returns records (I do
not want a complete new filter, I want the previous "Vendor" event to
still apply)

Thanks

[Tom van Stiphout]

On 7 Feb 2007 05:11:06 -0800, "bg********@yah oo.com"
<bg********@yah oo.comwrote:

I'm thinking you have qryfltr* that look back at your form for
criteria. E.g.:
select * from sometable where VendorID=Forms! SomeForm!ddlVen dor

If so, then of course you could write qryfltrMfr to be:
select * from sometable where VendorID=Forms! SomeForm!ddlVen dor
and MfrID=Forms!Som eForm!ddlMfr

Btw, the built-in Filter By Form is very good for this kind of
filtering as well.

-Tom.

>I have a form with various fields with a double click event to bring
up a filter via a query. Is it possible to goto another field and
apply another filter only to the records that were found after the
first filter.

i.e.

Double Click "Vendor" and "qryfltrDblClic kVendor" runs and returns
records.

Double Click "Mfr" and "qryflterMf r" runs and returns records (I do
not want a complete new filter, I want the previous "Vendor" event to
still apply)

Thanks

[bgreer5050]

On Feb 7, 7:46 am, Tom van Stiphout <no.spam.tom7.. [e-mail]:

On 7 Feb 2007 05:11:06 -0800, "bgreer5...@yah oo.com"

<bgreer5...@yah oo.comwrote:

I'm thinking you have qryfltr* that look back at your form for
criteria. E.g.:
select * from sometable where VendorID=Forms! SomeForm!ddlVen dor

If so, then of course you could write qryfltrMfr to be:
select * from sometable where VendorID=Forms! SomeForm!ddlVen dor
and MfrID=Forms!Som eForm!ddlMfr

Btw, the built-in Filter By Form is very good for this kind of
filtering as well.

-Tom.

I have a form with various fields with a double click event to bring
up a filter via a query. Is it possible to goto another field and
apply another filter only to the records that were found after the
first filter.

i.e.

Double Click "Vendor" and "qryfltrDblClic kVendor" runs and returns
records.

Double Click "Mfr" and "qryflterMf r" runs and returns records (I do
not want a complete new filter, I want the previous "Vendor" event to
still apply)

Thanks- Hide quoted text -

- Show quoted text -

Tom

Thank you very much. What is ddl for ?

[Tom van Stiphout]

On 7 Feb 2007 06:52:29 -0800, "bg********@yah oo.com"
<bg********@yah oo.comwrote:

dropdown list.
-Tom.

>On Feb 7, 7:46 am, Tom van Stiphout <no.spam.tom7.. [e-mail]:

>On 7 Feb 2007 05:11:06 -0800, "bgreer5...@yah oo.com"

<bgreer5...@ya hoo.comwrote:

I'm thinking you have qryfltr* that look back at your form for
criteria. E.g.:
select * from sometable where VendorID=Forms! SomeForm!ddlVen dor

If so, then of course you could write qryfltrMfr to be:
select * from sometable where VendorID=Forms! SomeForm!ddlVen dor
and MfrID=Forms!Som eForm!ddlMfr

Btw, the built-in Filter By Form is very good for this kind of
filtering as well.

-Tom.

>I have a form with various fields with a double click event to bring
up a filter via a query. Is it possible to goto another field and
apply another filter only to the records that were found after the
first filter.

>i.e.

>Double Click "Vendor" and "qryfltrDblClic kVendor" runs and returns
records.

>Double Click "Mfr" and "qryflterMf r" runs and returns records (I do
not want a complete new filter, I want the previous "Vendor" event to
still apply)

>Thanks- Hide quoted text -

- Show quoted text -

Tom

Thank you very much. What is ddl for ?

[strive4peace]

Code: AddToFilter -- Add value of current control to form filter
---

on the double-click event of the controls you wish to filter on:

'for text control
=AddTofilter("' ")

'for numeric control
=AddTofilter("" )

'for date control
=AddTofilter("# ")

'~~~~~~~~~
Private Function AddToFilter(pDe li as string)

'if nothing is picked in the active control, exit
If IsNull(Me.Activ eControl) Then Exit Function

'save current record if changes were made
If me.dirty then me.dirty = false

'declare variables

dim mWhere as string
, mRecordID as long

'set value to look up by what is selected
mRecordID = Me.PrimaryKey_f ieldname

mFilter = me.activecontro l.name & "=" _
& pDeli _
& me.activecontro l & pDeli

if len(trim(nz(me. filter,""))) 0 then
me.filter = me.filter & " AND " & mwhere
else
me.filter = mwhere
end if

me.filteron = true
me.requery

'find the record you were on before
Me.RecordsetClo ne.FindFirst _
"PrimaryKey_fie ldname= " & mRecordID

'if a matching record was found, then move to it
If Not Me.RecordsetClo ne.NoMatch Then
Me.Bookmark = Me.RecordsetClo ne.Bookmark
End If

end function

'~~~~~~~~~

where

PrimaryKey_fiel dname is the primary key fieldname (assumeing it is long
integer data type)

pDeli is a delimiter -->
"" for numbers
"'" for text
"#" for dates

another assumption is that the NAME of the each control is the same as
the ControlSource and ytou have not used spaces or special characters in
your fieldnames (except _ is ok)

call
Warm Regards,
Crystal
*
(: have an awesome day :)
*
MVP Access
Remote Programming and Training
strive4peace200 6 at yahoo.com
*

bg********@yaho o.com wrote:

I have a form with various fields with a double click event to bring
up a filter via a query. Is it possible to goto another field and
apply another filter only to the records that were found after the
first filter.

i.e.

Double Click "Vendor" and "qryfltrDblClic kVendor" runs and returns
records.

Double Click "Mfr" and "qryflterMf r" runs and returns records (I do
not want a complete new filter, I want the previous "Vendor" event to
still apply)

Thanks