Information générale
Catégorie:
Codage, syntaxe et commandes
Titre:
How to Quit an Application
Like most applications, I begin with a prg that displays a splash screen, sets up the environment, opens the database, checks the user's permissions, and finally calls the menu.
Before the database is opened, I issue the following command:
on error do GiveUp
open database MyData shared
*------------------------------------------------
procedure GiveUp
=MessageBox("Helpful Hints ...")
close all
clear all
quit
cancel
return
All I want to do is to display a message and terminate.When the database cannot be opened, the messagebox does appear but, the application continues to run and produce error after error. Also, making this a function and returning .F. won't work either.
Is it possible to force the termination of an application. If so. How?
Suivant
Répondre
Voir le fil de ce thread
Voir le fil de ce thread à partir de ce message seulement
Voir tous les messages de ce thread
Voir tous les messages de ce thread à partir de ce message seulement