Mensaje
De
26/06/2001 14:24:57
 
 
a
Todos
General information
Foro:
Visual FoxPro
Category:
Controles ActiveX en VFP
Título:
NODEFAULT no effect on MMC
Miscellaneous
ID de la conversación:
00523726
ID del mensaje:
00523726
Views:
44
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
Responder
Mapa
Ver