* CmdAdd.Click() #CAPADD "Add \<New" #CAPDEL "\<Delete" #CAPCOM "Comp\<leted" #CAPCAN "Can\<cel" IF THIS.CAPTION = CAPADD * ADD NEW RECORD THIS.CAPTION = CAPCOM THISFORM.CMDDEL.CAPTION = CAPCAN Select myTable && Avoid Work Area Append Blank ** If you've and reference Key_No, replace with right value!! ** i.e. REPLACE myKEY_NO with ... Thisform.Refresh ELSE * COMPLETE THIS.CAPTION = CAPADD THISFORM.CMDDEL.CAPTION = CAPDEL Select myTable IF TABLEUPDATE(.F.) > 0 WAIT WINDOW "New Record Successful added!" NOWAIT ELSE MESSAGEBOX("Fail to Add New Record!", 16, _SCREEN.CAPTION) =TABLEREVERT(.F.) GO LAST ENDIF THISFORM.REFRESH ENDIF * CmdDel.Click() #CAPADD "Add \<New" #CAPDEL "\<Delete" #CAPCOM "Comp\<leted" #CAPCAN "Can\<cel" IF THIS.CAPTION = CAPDEL * DELETE RECORD THIS.CAPTION = CAPADD THISFORM.CMDDEL.CAPTION = CAPDEL SELECT myTable DELETE SKIP -1 THISFORM.REFRESH ELSE * CANCEL ADD THIS.CAPTION = CAPADD THISFORM.CMDDEL.CAPTION = CAPDEL SELECT myTable TABLEREVERT(.F.) SKIP -1 THISFORM.REFRESH ENDIF