Filter on form Load

[Charles Hoens]

I have this problem over and over and can't seem to find the "right" way to fix it so here goes.

I want to enter a form showing just the active employees. To that end, I have created a checkbox variable called "IsActive" in the Onchange event of this variable I put the following code:

DIM records_found as N

records_found=0
if var-"showall=.T.
topparent.show_all()
else
records_found = topparent.queryrun"Isactive= .t.","Elastfirst","","No","Employees",.f.)
end if
browse1.refresh()

This works and successfully toggles back and forth between Active and Inactive employees.

My problem is on the load of the form. I want only the Active employees to show, so I placed this code in the OnInit of the form:

records_found = topparent.queryrun("Isactive = .t.","Elastfirst","","No","Employees",.f.)
browse1.refresh()

But it doesn't work - i.e. I get all the records not just the Active ones.

What am I doing wrong or can anyone help me.

Charlie

[Selwyn Rabins]

RE: Filter on form Load

you could try putting the filter in the form properties.

alternatively, put the filter in the form.view() method that you call to open the form.

[Charles Hoens]

RE: Filter on form Load

I've tried that, but then I cannot get the filter to release and let me see all the records. I've been using the command topparent:show_all(), but my records are still filtered.

Charlie

[CALocklin]

RE: Filter on form Load

Here's something from my old A5v5 Help file (based solely on A5 documentation) that may help you. It's now a free download near the bottom of my A5 Programs page. It doesn't include all the new v6 functions but what is in there is often easier to find because of the customized keyword list. (As I've said before, I don't blame Ed for not building his list this way. I didn't have a means to automate the process so it was very time consuming.)

These methods aren't as easy as Form.view_queried() but they really aren't that difficult either. I use the second two methods on a regular basis and find they work very well. The last one is most applicable for your case.

This script loads the customer form, puts it into Query by Form mode, enters a search restriction in the State field, runs the query and then shows the form.

Form.load("Customer")
customer.query_by_form()
customer:state.value = "MA"
customer:query_run()
customer.show()

This script does the same query as the above script, but instead, sets the form's base filter. This filter cannot be turned off by pressing the Show All button. (The script assumes that the Customer form is based on the Customer table.)

Form.load( "Customer" )
customer:tables:customer.filter_expression = "state = 'MA'"
customer:tables:customer.query()
:customer.show()

This script is similar to the above script in that it runs a query for the Customer form. Unlike the above script, the query does not set the form's base filter. Therefore, pressing the Show All button after the query has run will show all records in the form.

Form.load("customer")
query.filter = "state = 'MA'"
:customer:tables:customer.query_create()
:customer.fetch_first()
:customer.resynch()
:customer.show()
:customer.activate()

Cal Locklin
www.aimsdc.net

[Charles Hoens]

RE: Filter on form Load

Cal, once again and after many years you continue to help, aid and assist us on this site!

I tried everything in order to solve this problem - all to no avail!

I used your last solution on my pushbutton to load the form with only once minor modification - that of putting a query.order="Lastname" in order to sort my records.

I never would have thought of putting the code in that position because I am still unsure of how A5 loads things and in what order. I placed the code for the filter in the OnInit event thinking that that would load first. Obviously that was wrong at least in this application.

Once again many thanks for your very invaluable help!

Charlie