func reclok PARAMETERS nrecord tries=0 do while !rlock() IF !EMPTY(nrecord) MESSAGEBOX("The record ("+ALLTRIM(STR(nrecord))+") you are trying to access is locked, and may be in use by another user.; If this isn't the case, please contact your systems administrator...",64,'Record locking information...') ELSE MESSAGEBOX("The record you are trying to access is locked, and may be in use by another user.; If this isn't the case, please contact your systems administrator...",64,'Record locking information...') ENDIF tries=tries+1 IF tries=3 UNLOCK all return endi enddo