Hi Mark,

If your customer getting "table corrupt" error:

set tablevalidate to 0
rename my_table.dbf to my_table_Backup.dbf
use my_table_backup
copy to my_table for !delete()

If your customer getting "not a database table" error. You can use different table fix applications. One of these is Cetin Basoz's :

*-------- metin in eki ------
lPARAMETERS xtable
  LOCAL xrepair
  xrepair=CREATEOBJECT("_repair")
  xrepair.repairheaderandmemo(m.xtable)
*-------- end metin in eki ------

Define CLASS _repair AS custom
*-- Reads given size of bytes at offsett specified by pos from a file opened
  Procedure readbytes
**************************************************************************
* ReadBytes(nHandle, nPos, nBytes[, lLR]) :
*   Reads given size of bytes at offsett specified by pos from a file opened
*   with low level functions (handle comes from that function)
* Parameters :
*   nHandle : (Numeric) Handle of a file to read bytes from
*   nPos    : (Numeric) File offsett to start reading
*   nBytes  : (Numeric) Byte count to read
*   (typically 1 for single byte, 2 for word and 4 for dword)
*   lLR     : (Logical)
*             if .T. left-to-right format used
*   (Default) if .F. right-to-left format used
*             (more likely to be used with low level)
* EXAMPLE :
* ReadBytes(handle,12,2)     - returns 62313 if bytes at offset 12 are ( 69 F3 )
* ReadBytes(handle,12,2,.T.) - returns 62313 if bytes at offset 12 are ( F3 69 )
* Remark :
* Doesn't save and restore current file pos. Caller should take care of it
**************************************************************************
  Lparameters tnHandle, tnPos, tnSize, tlLR
  Local lcString, lnRetValue,ix
  =fseek(tnHandle, tnPos,0) && Go to pos
  lcString = fread(tnHandle, tnSize) && Read tnSize bytes
  lnRetValue = 0
  For ix=0 to tnSize-1  && Convert to a number
    lnRetValue = lnRetValue + asc(substr(lcString,ix+1)) * ;
      iif(tlLR,256^(tnSize-1-ix),256^ix)
  Endfor
  Return int(lnRetValue)
Endproc


*-- Writes integer with given size of bytes at offsett specified by pos to a file opened
  Procedure writebytes
**************************************************************************
* WriteBytes
* Same as ReadBytes except writes to file
* 64 bits not available in this version
**************************************************************************
  Lparameters tnHandle, tnPos, tnSize, tnNumber, tlLR
  Local lcString, lnLowDword, lnHighDword,ix
  lcString=''
  If tlLR
    For ix=tnSize-1 to 0 step -1
      lcString=lcString+chr(tnNumber/256^ix%256)
    Endfor
  Else
    For ix=0 to tnSize-1
      lcString=lcString+chr(tnNumber/256^ix%256)
    Endfor
  Endif
  =fseek(tnHandle, tnPos,0) && Go to pos
  Return fwrite(tnHandle,lcString)
Endproc


*-- Repairs the header of a table and its memo. Frees the table removing backlink info and clears out has CDX flag.
  Procedure repairheaderandmemo
* RepairHeaderAndMemo
* Parameters
*	tcDBF          : Full path and name of dbf file to repair
* Remarks :
*   Table is freed (backlink info cleared if exists)
*   Has CDX flag is cleared && New copy has no CDX
  Lparameters tcDBF
  Local handle, lnFileSize, lnReccount, lnHeaderSize, lnRecordSize, ;
    lnCalculatedReccount, llHasMemo
  handle=fopen(tcDBF,12) && Opened readwrite
  lnFileSize = fseek(handle,0,2) && Get file size
* Read header info
  With this
    lnReccount   = .readbytes(handle, 4,4)
    lnHeaderSize = .readbytes(handle, 8,2)
    lnRecordSize = .readbytes(handle,10,2)

    lnCalculatedReccount = floor((lnFileSize-(lnHeaderSize+1))/lnRecordSize)

*-------- metin in müdahalesi ------
if lnCalculatedReccount<0
  lnCalculatedReccount=0
ENDIF   
*-------- end metin in müdahalesi ------
   
    If lnCalculatedReccount # lnReccount && If calculated # recorded fix it
      .writebytes(handle, 4,4,lnCalculatedReccount)
    Endif
    .writebytes(handle, 28,1,0) && Clear has CDX, has memo, isDBC flags
    =fseek(handle,lnHeaderSize-263 ,0)        && Go backlink info start
    =fwrite(handle,replicate(chr(0),263),263) && Clear backlink info and free table
    llHasMemo=file(forceext(tcDBF,'FPT'))
    If llHasMemo
      .RepairMemo(forceext(tcDBF,'FPT'))
      .writebytes(handle, 28,1,0x02) && Set has memo flag
    Endif
  Endwith
  =fclose(handle)
Endproc

*-- Fixes next block pointer, blocksize and filesize
  Procedure RepairMemo
* RepairMemo
* Simply fixes next block pointer, blocksize and filesize
  Lparameters tcMemoFilename
  Local handle, lnFileSize, lnNextBlockPointer, lnBlockSize, lnFirstBlock, lnCalculatedFileSize

  handle=fopen(tcMemoFilename,12) && Opened readwrite
  lnFileSize = fseek(handle,0,2) && Get file size
  With this
* Read header info
    lnNextBlockPointer = .readbytes(handle, 0,4,.T.) && Stored in left-to-right format
    lnBlockSize        = .readbytes(handle, 6,2,.T.) && Stored in left-to-right format

* Specific to me - no blocksize setting to something other than default 0x40
    If lnBlockSize # 0x40
      .writebytes(handle, 6,2,0x40,.T.)
      lnBlockSize=0x40
    Endif
*
    lnFirstBlock	   = ceiling(512/lnBlockSize) && Possible min lnNextblockpointer
    lnCalculatedFileSize = lnNextBlockPointer*lnBlockSize

* Fix if needs repair
    If !(lnFileSize >= 512 ;
        and lnNextBlockPointer >= lnFirstBlock ;
        and lnCalculatedFileSize >= lnFileSize) && Memo needs repair

      lnNextBlockPointer = max(lnNextBlockPointer, lnFirstBlock)
      lnFileSize = lnNextBlockPointer * lnBlockSize
      .writebytes(handle, 0,4,lnNextBlockPointer,.T.) && Fix next block pointer
      =fchsize(handle, lnFileSize) && Fix filesize
    Endif
  Endwith
  =fclose(handle)
Endproc
Enddefine