>how to check if record is already exist.in numarci and character

Do you have an Index on each field?

you may want to do

local lcDeleted
lcDeleted = set('deleted')
set deleted off
if seek(MyValue, 'MyTable','MyField')
  if deleted()
     =messagebox("Record exists and it was deleted")
  else
   =messagebox("Record exists")
  endif
endif
set deleted &lcDeleted