CLOSE_IF_EXISTS() error?

[brett s]

Can anyone debug the following error message for me?

The function CLOSE_IF_EXISTS() is supposed to close any open form with the given name. However when I run it, A5 gives me an error saying the function is not recognized (see attached thumbnail). According to the documentation this function has been around since A5 version 5, I am using version 7, 4130-3033. This is the first time I have tried to use this function.

I have the CLOSE_IF_EXISTS() code tied to the 'OnPush' event of the Close button on one form to make sure another related form is not inadvertently left open.

Many thanks.

[MikeC]

Re: CLOSE_IF_EXISTS() error?

Hi Brett,
I just tried this function in my version 5 and came up with the exact same error...so believe it is one of those odd functions that either were not completed or deemed unnecessary.

Mike

[brett s]

Re: CLOSE_IF_EXISTS() error?

Hi Mike. This is a really useful function that I could use a lot if it worked. I cannot even imagine that it would be left in the documentation since version 5 for so long when it has never been present.

[Marcel Kollenaar]

Re: CLOSE_IF_EXISTS() error?

How about this:

p = obj(":frmGDP")
if (is_object(p)) then
    p.close()
end if

[csda1]

Re: CLOSE_IF_EXISTS() error?

Brett,

The function works just fine, just as long as you use the correct name, CloseIfExists(objectname). Unfortunately, it does not jive with the documentation, and hence your problem.

[Marcel Kollenaar]

Re: CLOSE_IF_EXISTS() error?

Ira,

Still the function is not recognized!

Did you create a global function yourself in a library?

[csda1]

Re: CLOSE_IF_EXISTS() error?

Hi Marcel,

OOPS! My faux pa! It was a function in my global library. :o

The code was basically the same except it returned true or false if the window was present or not before closing.

Sorry Brett.

[brett s]

Re: CLOSE_IF_EXISTS() error?

Thanks, guys. Looks like I will have to create my own UDF (guess what I will call it!) using Marcel's code, just passing the form name or maybe a form pointer. I had tried this previously and it didn't work, maybe because I left out the colon.

[whanigsberg]

Re: CLOSE_IF_EXISTS() error?

What about A5_CLOSE_ALL_WINDOWS()?

[MikeC]

Re: CLOSE_IF_EXISTS() error?

Bill---second that...I have not had any luck with that function either even though have several times seen it in threads touting it as a good function.

Mike

[Tim Kiebert]

Re: CLOSE_IF_EXISTS() error?

Brett and all,

I was testing in Alpha sports (Since the help example had the familiar alphasports table names) and could not get this function to not work. Ie it always worked. Then rereading the threads by Ira and Marcel that they had similar functioning UDFs I checked the code page in Alphasports and lo and behold there is the offending udf. It seems like some created a help entry for a function that is included in Alphasports but that did not make into A5 itself.

And guess what this function consists of Marcel ........

'Date Created: 18-Jul-2002 10:25:25 PM
'Last Updated: 18-Jul-2002 10:25:25 PM
'Created By  : 
'Updated By  : 
''
'' CLOSE_IF_EXISTS()
''  Test if an object exists and if so closes it
''
'' Parameters:
''        name:            The name of the object to close
''
function close_if_exists as N(name as C)
    DIM op as P

    ''
    '' Get the object pointer for the specified object
    ''
    op = obj(name)

    ''
    '' If the object pointer is valid then an object was found and we can close it.
    ''
    if is_object(op)
        op.close()
    end if

end function

[brett s]

Re: CLOSE_IF_EXISTS() error?

Thanks, Tim. That looks pretty good. It's in my library already, with a couple of small mods (take out the "as N" in line 12, add "then" in line 23).

[MikeC]

Re: CLOSE_IF_EXISTS() error?

Hi all,

Taking from Tim's example of how the Close_If_Exists function was a UDF in Alpha I decided to see if the "close_all_windows" was one too....yep, you guessed it! It was! Here it is for those who have been stymied by this function as well.


'Date Created: 19-Jul-2002 11:24:32 AM
'Last Updated: 06-Feb-2003 04:55:27 PM
'Created By :
'Updated By : Selwyn Rabins
function close_all_windows as c (prompt = .t.)

msg = "Close all open windows before ending the application?"

if prompt = .t. then
q_close = ui_msg_box("AlphaSports",msg,UI_YES_NO_CANCEL+ui_question_symbol)
else
q_close = ui_yes_selected
end if
if q_close = ui_yes_selected then
'a5_list_open_windows() is an a5 function that returns the names of all open windows
open_windows = a5_list_open_windows()
if is_object(topparent.this) then
current_window = topparent.name()
else
current_window = ""
end if
open_windows = word_subtract(open_windows,current_window,crlf()) 'remove the current window from the list

'generate the xbasic to close all of the open windows
cmd = *for_each(x,x+".close()" , open_windows)
'now execute the xbasic
evaluate_template(cmd)

else if q_close = ui_cancel_selected then
cancel()
end if



end function


Mike