5 makes the buffering Table Optimistic. You also need to add a TableUpdate() to the Save button;

* Save button's Click
IF NOT TableUpdate(1,.F.,"TableName")
   * Update failed
   WAIT WINDOW "Unable to save your changes, please try again later"
   TableRevert(.T.,"TableName")
ENDIF
RETURN