*Lostfocus if !ValidationOK nodefault this.setfocus && First validate and stay in place if not satisfied return endif do case case this.value = case1 ... case this.value = case2 && Copy to new record c_Alias = alias() * Prepare new data select .. from .. where aField = this.value and .t. ; into cursor tData && Create a true cursor scatter memvar memo use in "tData" && Close cursor select (c_alias) m.anyfield = newValue && Change necessary fields insert into myTable from memvar otherwise ... endcaseCetin