Can a popup message script be created for a non-existent form and how?

[datacaster]

Hello All,
I love to do crazy things and I am probably lost here and is probably very simple. I wish to create a main menu to launch modules which the modules are individual Alpha project folders where you launch program. The menu is pre-populated with various optional modules. If a user did not acquire an optional module, I would like to have a popup message to say something to tell them they do not have the optional module and then they click OK and window closes and it reopens or focuses back on the main menu. This way I can have a generic menu for all my applications that apply to the main menu I create.

Process

• User acquires module A module. It installs a main menu with Module A, Module B, Module C, Module D, etc. pre-defined to launch modules if acquired.
• User clicks on Module A and it looks in Module A's project folder and launches modules A's menu panel and all is okay and they use Module A.
• User clicks on Module B and it looks for Module B's project folder and it does not exist (Because they didn't acquire it). A scripts pops up a window saying you did not purchase this program and maybe a weblink for program information if possible. (By default an Alpha Anywhere window pops up saying it could not locate the file with path info, etc. and it appears to user as software issue)
• User clicks on this script generated popup message OK button and they are redirected back to the main menu thereby avoiding any Alpha Anywhere error messages.

Each module button uses script to call project folder

• Module A button :a5.load("C:\main directory\Module A\Module A.adb") [Call Module A's menu window] [When Module A's window is closed return to main menu]
• Module B button :a5.load("C:\main directory\Module B\Module B.adb") [Call Module B's menu window] [When Module B's window is closed return to main menu]
• Module C button :a5.load("C:\main directory\Module C\Module C.adb") [Call Module C's menu window] [When Module C's window is closed return to main menu]
• Module D button :a5.load("C:\main directory\Module D\Module D.adb") [Call Module D's menu window] [When Module C's window is closed return to main menu]

As usual any help is greatly appreciated!

Thank you!

[datacaster]

I was able to create a script to suppress the error message after all and keep the main menu loaded. Next is to get a web link in the popup box to figure out. Sorry if I wasted anyone's time reading as I guess I pulled the trigger too early.

Thanks!!

[datacaster]

I was able to create a script to suppress the error message after all and keep the main menu loaded. Next is to get a web link in the popup box to figure out. Sorry if I wasted anyone's time reading as I guess I pulled the trigger too early.

Thanks!!

I was wrong I screwed up and it doesn't really work right!
If the project folder file is there the message still pops up and trying code examples for error code reporting doesn't work as it says, so I know there is a different way to do this but how?
Here is what code I tried and I had some other lines, but they are removed like end statement. I'll keep trying, but any thoughts are appreciated!
This code appears to run the message handle area without end and never goes to handle area with end, so I am confused, but learning!
I assumed I would set the variable to true and if all is well (No error code) change variable to false, so if message handle area ran it would not display message. I guess good or bad it is read and continues through message handle area.
I thought if there was an error code it would stop reading code and jump to message handle area upon first error which is missing .adb file and not process the change variable to false. Then maybe I am just confused.

'Pre-Set the value of variable.
DIM shared bad AS L
bad = a5_eval_expression("=.T.")
on error goto message
'Open database: C:\AlphaFive Software\UXonADesktop\DateTime.adb
:a5.load("C:\AlphaFive Software\UXonADesktop\DateTime.adb")
'Change variable bad to false for no message box to display
DIM shared bad AS L
bad = a5_eval_expression("=.F.")


message:
'Conditional code follows. Executes only if the condition expression is True.
IF a5_eval_expression("=Var->bad=.T.",local_variables()) THEN
'Execute following inline Xbasic code to display message.
ui_msg_box("Unpurchased Program", "You are trying to access a program that you hve not purchased. Go to http://www.google.com for more information on this program")
end if

[Al Buchholz]

I was wrong I screwed up and it doesn't really work right!
If the project folder file is there the message still pops up and trying code examples for error code reporting doesn't work as it says, so I know there is a different way to do this but how?
Here is what code I tried and I had some other lines, but they are removed like end statement. I'll keep trying, but any thoughts are appreciated!
This code appears to run the message handle area without end and never goes to handle area with end, so I am confused, but learning!
I assumed I would set the variable to true and if all is well (No error code) change variable to false, so if message handle area ran it would not display message. I guess good or bad it is read and continues through message handle area.
I thought if there was an error code it would stop reading code and jump to message handle area upon first error which is missing .adb file and not process the change variable to false. Then maybe I am just confused.

'Pre-Set the value of variable.
DIM shared bad AS L
bad = a5_eval_expression("=.T.")
on error goto message
'Open database: C:\AlphaFive Software\UXonADesktop\DateTime.adb
:a5.load("C:\AlphaFive Software\UXonADesktop\DateTime.adb")
'Change variable bad to false for no message box to display
DIM shared bad AS L
bad = a5_eval_expression("=.F.")


message:
'Conditional code follows. Executes only if the condition expression is True.
IF a5_eval_expression("=Var->bad=.T.",local_variables()) THEN
'Execute following inline Xbasic code to display message.
ui_msg_box("Unpurchased Program", "You are trying to access a program that you hve not purchased. Go to http://www.google.com for more information on this program")
end if

1. Check for the existence of the directory with A5_IS_PATH_VALID() before you attempt to open the database

2. use debug(1) to step through the code

[datacaster]

1. Check for the existence of the directory with A5_IS_PATH_VALID() before you attempt to open the database

2. use debug(1) to step through the code

Thanks Al, that was too simple and cut code in half and works great! I just used the path valid statement to build the code.

Thank you!

[Al Buchholz]

Thanks Al, that was too simple and cut code in half and works great! I just used the path valid statement to build the code.

Thank you!

Great!

And remove the debug(1) before sending it off to the production area...

[datacaster]

Great!

And remove the debug(1) before sending it off to the production area...

Actually I just ran the directory exists command and added the code in the interactive window and went with it since there were no issues.
Just added an HTML message box to click ok and with a link to take you to the website if the user wants to do so and that works, so my main menu is feasible. Now if I could just develop some applications to have a main menu for!

Thanks again for the guidance!

So many helpful people here!

Thank you!