Form closing on invalid filters

Demonic240

I have flow filters set up on a form. If you input a value into a flow filter that is not on the table it will close the form. I tried using the code:

IF NOT FINDFIRST THEN BEGIN
  MESSAGE('Div/Dep '+divdepfilter+' is not listed in the table.');
  SETFILTER("Div/Dep",'');
END;

to display a message that it is an invalid entry and to keep the form from closing. This does keep the form from closing but it also asks for the record to be changed each time you input a different value and errors out if you select to change it. That message is:

The [form] already exists.
Identification field and values:
No.='112',Accounting Period='4/30/07',Div/Dep='8082'

The referred fields and values are the primary keys and the first entry line in the table.

I need a way to keep the forum from closing when an invalid entry is input into a flow filter. That is the primary concern. The secondary concern is to reset the filters and display a message if the input value doesn't exist.

Thanks.

Savatage

haven't tried but what about setting some conditions to check that the filter is good else CurrForm.**.ACTIVATE a field on the form to return focus to the form & not close.

http://www.mibuso.com/forum/viewtopic.php?t=9646

Demonic240

How would I check if the filter is good? I can handle variables well, but filters use a whole different set of code.

Savatage

Hmm. I guess I need to read the orig post better :oops:
I was focusing on the closing of the form.

IF *** FINDFIRST
THEN
Something
ELSE
Somethingelse

Demonic240

I tried using

IF FINDFIRST
THEN
  MESSAGE('YAY')
ELSE
  Rec.RESET;
  MESSAGE('Boo');

It does keep the form from closing, but it is still asking if I want to rename the record each time I enter a value into a filter. It also displays both messages if the filter is true and just the second if false. I have this running the the "onvalidate" of the filters.

Demonic240

I fixed it by using this:

IF Rec.ISEMPTY THEN  BEGIN
  Rec.RESET;
  MESSAGE('One of the values to be filtered is not in the table.');
  CurrForm."Salesman Filter".ACTIVATE;
  END;

Savatage

Feels great working out a problem! doesn't it!

Demonic240

Indeed it does. However that means I have to start working on the next project =/