A5RunXbasicAfterClosingWindows()

Syntax

A5RunXbasicAfterClosingWindows( Code as C [, Message as C ] )

Argument	Description
Code	Xbasic code saved in a character variable.
Message	Optional. The message to display in the warning dialog box.

Description

The A5RunXbasicAfterClosingWindows() function closes all open windows (and the tables behind them), runs Xbasic code, then restores the current window. This function is useful for performing <TBL>.PACK()operations that require exclusive access to a table.

Supported By

Alpha Five Version 6 and Above

Limitations

Desktop applications only.

Example

The following example, when attached to a button on the customer form, closes the form, displays a message box, executes the specified Xbasic code after the user presses OK, then redisplays the customer form.

dim code as C

code = <<%code%
t = table.open("customer")
t.pack()
t.close()
%code%

A5RunXbasicAfterClosingWindows(code, "Temporary Shutdown" )