Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
NODEFAULT no effect on MMC
Message
De
26/06/2001 14:24:57
 
 
À
Tous
Information générale
Forum:
Visual FoxPro
Catégorie:
Contrôles ActiveX en VFP
Titre:
NODEFAULT no effect on MMC
Divers
Thread ID:
00523726
Message ID:
00523726
Vues:
43
In MMC, in my RecordClick() event, I verify if the file exist. If it is, I prompt the user to confirm overwriting it before continuing. If he says not, then, I want to get out of the event and cancel the default behavior. So, I put this in my code:
This.Command='Close'

IF FILE(This.FileName)

   * If the file exist, we ask the user to overwrite it
   IF ShowMes(GetMes('Multimed','FileExist'),36)=7
      This.lRecord=.F.
      This.Command='Open'
      NODEFAULT
      RETURN
   ENDIF

   ERASE (This.FileName)
ENDIF

This.Command='Open'
However, this doesn't work. Even if we have a no confirmation, the NODEFAULT doesn't take effect. The RecordClick() event processes as is and start the recording. What am I missing?
Michel Fournier
Level Extreme Inc.
Designer, architect, owner of the Level Extreme Platform
Subscribe to the site at https://www.levelextreme.com/Home/DataEntry?Activator=55&NoStore=303
Subscription benefits https://www.levelextreme.com/Home/ViewPage?Activator=7&ID=52
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform