>FUNCTION Error >PARAMETER nError,cMethod,nLine >if !empty(alias()) and !this.lFirstTry > select 0 > retry > this.lFirstTry = .T. >endif >this.lFirstTry = .F. >RETURN TO ShowMessage >ENDFUNC >This assumes that the error event is fired. In the current test I am doing, the error event does not even fires. So, I can't test it. It is just unpredictable.