>>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

Naomi

I use INDEXSEEK(). with lMovePointer = .F. That way you don't need to lerave the record you're on. (or KEYMATCH())