>yes, but message "invalid entry" appears and not a kinder message "Duplicate code. Please Reenter"

Do you have RI? Basically, you should be able to do something like this.

if !tableupdate()
   =messgebox('Duplicate code. Please reenter')
   RETURN .F.
endif