*Interactive Change * lEntered00 - custom property of textbox this.lEntered00 = (THIS.TEXT = "00") *Valid DO CASE CASE this.lEntered00 this.value = ADDCENT(this.value) CASE EMPTY(this.value) this.value=YEAR(DATE()) ENDCASE ...>Thanks for the idea Sergey. I'm trying to determine if this.text is '00' in the interactive change and if the lastkey entered was 13,9,15, or 24 then convert it to the year 2000. This only works if the user presses ENTER. IF the user presses TAB, SHIFT-TAB, or UP ARROW, or DOWN ARROW then it jumps right into the valid. I need to detect for '00' when the user exits the control. So far, it only works if the user presses ENTER to leave the control. Any ideas?
>*Interactive Change >IF INLIST(LASTKEY(),13,9,5,15,24) .and. THIS.TEXT = "00" > this.value = ADDCENT(this.value) >ENDIF > >*Valid > >*--Interactive change should have changed 00 to 2000 by now and all >*--other entries left alone >IF EMPTY(this.value) > this.value=YEAR(DATE()) >ENDIF >IF UPDATED() > mvh_Year(lvchoice) = AddCent(mvh_Year(lvchoice)) >ENDIF >THIS.REFRESH() >RETURN .T. >>