CASE lnAnswer = IDYES *---------------------- *--- Save the record *---------------------- lnAnswer = This.SaveRecord() IF lnAnswer = FILE_MUSTKEY lnAnswer = IDMUSTKEY ELSE IF lnAnswer <> FILE_OK lnAnswer = IDCANCEL * ELSE * lnAnswer = IDYES ENDIF ENDIF