Connie-
First, strFilterListings_AllChange must be either a Public or at least module
variable. If you declare it inside an event procedure, it gets reset as soon as
the procedure finishes.
On Load should give you the filter, if any. Just do:
strFilterListings_AllChange = Me.Filter
John Viescas, author
Microsoft Office Access 2010 Inside Out
Microsoft Office Access 2007 Inside Out
Building Microsoft Access Applications
Microsoft Office Access 2003 Inside Out
SQL Queries for Mere Mortals
http://www.viescas.com/
(Paris, France)
-----Original Message-----
From: MS_Access_Professionals@yahoogroups.com
[mailto:MS_Access_Professionals@yahoogroups.com] On Behalf Of mrsgoudge
Sent: Wednesday, August 24, 2011 8:00 PM
To: MS_Access_Professionals@yahoogroups.com
Subject: Re: [MS_AccessPros] When load form store filter and click reset button
to reset filter
John,
The purpose of strFilterListings_AllChange is to store the filter that is used
upon loading the form. As an example: One of the ways the form is opened is
using
DoCmd.OpenForm "Listings_AllChange", , , "CurrentListing = -1"
I know that "CurrentListing = -1" is the where condition. Isn't that a filter?
I am opening this form with another filter in a different situation, so I want
to store whatever where condition or filter the form is opened with so that I
can revert the form back to the initial way it was opened.
strFilterListings_AllChange = ???
Hope I'm being clear :-)
Connie
--- In MS_Access_Professionals@yahoogroups.com, "John Viescas" <john@...> wrote:
>
> Connie-
>
> I don't understand the purpose of strFilterListings_AllChange. If you're
trying
> to "collect" multiple filters, you should do:
>
> strFilterListings_AllChange = ("(" + strFilterListings_AllChange + ") AND ") &
> "(" & Me.Filter & ")"
>
> What that does is wrap parens around the existing contents of
> strFilterListings_AllChange and then add an AND operator, then add the current
> filter surrounded by parens. If there's nothing in
strFilterListings_AllChange,
> then you'll get the current filter surrounded with parens.
>
> John Viescas, author
> Microsoft Office Access 2010 Inside Out
> Microsoft Office Access 2007 Inside Out
> Building Microsoft Access Applications
> Microsoft Office Access 2003 Inside Out
> SQL Queries for Mere Mortals
> http://www.viescas.com/
> (Paris, France)
>
>
>
> -----Original Message-----
> From: MS_Access_Professionals@yahoogroups.com
> [mailto:MS_Access_Professionals@yahoogroups.com] On Behalf Of mrsgoudge
> Sent: Wednesday, August 24, 2011 6:51 PM
> To: MS_Access_Professionals@yahoogroups.com
> Subject: [MS_AccessPros] When load form store filter and click reset button to
> reset filter
>
> Good morning! I am using Access 2007. I have a form Listings that is
currently
> opened in two different ways. One button on another form opens the Listings
> form with a where condition. The code behind that button is:
>
> DoCmd.OpenForm "Listings_AllChange", , , "CurrentListing = -1"
> Forms!Listings_AllChange.FormTitle.Caption = "Current Listings"
> Forms!Listings_AllChange.Caption = "CurrentListings"
>
> The toggle filter button on the ribbon is highlighted and pressing it makes
the
> source go from all records, to current listings, and back.
>
> I want to store the filter that is used when this form is opened so that no
> matter what filter or non filter is applied, it can be reapplied. The On Load
> property where I'm trying to get the filter has this code which I'm pretty
sure
> is not correct:
>
> Dim strFilterListings_AllChange As String
> DoCmd.GoToRecord , , acNewRec
> strFilterListings_AllChange = strFilterListings_AllChange & " & Me.Filter
&
> "
>
> The Listings form has a header with search boxes and a button to reset the
> search boxes to "". I would like that reset button to apply the filter or
> nonfilter that was applied upon opening. Or should I say the where condition?
> Here's the code I have:
>
> 'Reset filter and source of records
> Me.Filter = ""
> cboSearch = ""
> If Me.FilterOn = True Then Me.FilterOn = False
> Me.Filter = strFilterListings_AllChange
> Me.FilterOn = True
>
> As you can see below when I search for a "non current" listing name it looks
at
> the recordsource without the filter. How can I change that code to add the
> filter? .
>
> The code behind the search box is:
> Private Sub cboSearch_AfterUpdate()
> '~~~~~~~~~~~~~~~~~~~~~~Error Handler came from Crystal
> 'set up Error Handler
> On Error GoTo Proc_Err
> '~~~~~~~~~~~~~~~~~~~~~~
>
> Dim strSql As String
>
> If IsNull(Me.cboSearch) Then
> 'If the combo is Null, use the whole table as the RecordSource.
> Me.RecordSource = "qListings_All"
> Else
> strSql = "SELECT DISTINCTROW qListings_All.* FROM qListings_All " & _
> "INNER JOIN ListingContacts ON " & _
> "qListings_All.ListID = ListingContacts.ListID " & _
> "WHERE ListingContacts.ContactID = " & Me.cboSearch & ";"
>
> Me.RecordSource = strSql
> End If
>
>
> thank you!
> Connie
>
>
>
>
>
>
>
> ------------------------------------
>
> Yahoo! Groups Links
>
------------------------------------
Yahoo! Groups Links
Tidak ada komentar:
Posting Komentar