Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
NODEFAULT no effect on MMC
Message
From
26/06/2001 14:24:57
 
 
To
All
General information
Forum:
Visual FoxPro
Category:
ActiveX controls in VFP
Title:
NODEFAULT no effect on MMC
Miscellaneous
Thread ID:
00523726
Message ID:
00523726
Views:
42
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
Next
Reply
Map
View

Click here to load this message in the networking platform