close_if_exist() the only way?

[Don Reed]

is close_if_exist() the only way to close all forms opened?

I found only one suggestion so far in searching the forum that says this.

[Tom Cone Jr]

RE: close_if_exist() the only way?

What is close_if_exist()? I can't find it in the manual and I'm not familiar with it.

-- tom

[whanigsberg]

RE: close_if_exist() the only way?

Tom,

I use this user-defined function and I copied it from the documentation (I think) but I just searched and did not find it. It drives me nuts.

Anyway, here's the function:
==================================

function close_if_exists as N(op as p)
DIM op as P
''
'' If the object pointer is valid then an object was found and we can close it.
''
if is_object(op)
op.close()
end if

====================================

Bill
end function

[whanigsberg]

RE: close_if_exist() the only way?

Seems like I'm cut-and-paste challenged as well.

[Michael Humby]

RE: close_if_exist() the only way?

I don't think the close_if_exists() is documented. I copied it from the clever guy who developed the sample invoice application.

I can use it to close all forms individually, but I would dearly like to know of a script that enabled the function to close any open layout without naming each one specifically.

Michael

[whanigsberg]

RE: close_if_exist() the only way?

Hi Michael,

I also copied and use close_if_exists(). Just before logging on I remembered where it came from.

As to your question, it could possibly be done using the methods described in chap 36 of the xbasic documentation, "Application Level Methods." You will observe that methods exist to enumerate all an application's forms, browses, etc. If you put the object names into an array you could work your way down the list closing any which were open.

Not that I've done this, you understand, but it doesn't look that difficult.

Bill

[Willard]

RE: close_if_exist() the only way?

I think you might do this

''XBasic
dim form_name[100] as c
dim form_nme as c

form_nme= A5.form_enum("")
if form_nme"" then
i=1
while form_nme""
form_name[i]=form_nme
form_nme=:A5.form_enum(form_nme)
i=1+i
close_if_exists(form_nme)
end while
'sort_array("form_name")
'result= ui_get_list_array("Select a form",1,"form_name")
end if

[Michael Humby]

RE: close_if_exist() the only way?

Thanks Bill and Jack,

Ideally I need to close all forms that are open before rebuilding indexes and packing deleted records from my maintenance form. Presently I close_if_exists() individually all forms that can possibly be open except the calling maintenance form which is based on an empty table. Then I use the array to perform the pack and rebuild index operation. This works fine but is tedious so will give your suggestion a try.

Michael

[Tom Patten]

RE: close_if_exist() the only way?

Hi,

I've been trying to get this to work, but I have not been successful.

I create the Function. That goes okay.

I place a button on a form, and add the script defined above.

I then close the form, save it, and click on the button.

I get an error message stating, "(form_nme) Variable is of different type".

Any suggestions would be very much appreciated.

TIA

Tom

[Michael Humby]

RE: close_if_exist() the only way?

Tom,

Your 'See Above' was not there. But anyway try this.

If as you say you have created the new function 'close_if_exists()', then open a couple of forms and place this script on your button.

close_if_exists("Formname1")
close_if_exists("Formname2")

This is great if you need to be sure that a form is closed before running pack or delete operations etc. It will also close any dialog forms that you may have forgotten to add a close script.

MIchael