> >cAlias = Thisform.DataEnvironment.InitialSelectedAlias > Select (cAlias) >*GO bottom >*APPEND BLANK >Thisform.Refresh() >thisform.command4.Caption ="Save" >thisform.SetAll("Enabled", .T., "TextBox") >thisform.SetAll("Value", "", "TextBox") > >this.enabled = .f. >thisform.text1.SetFocus() > >>
>IF MESSAGEBOX("Are you Sure") = 6 && or whatever the return code is, check the help > APPEND BLANK >ENDIF>
cAlias = Thisform.DataEnvironment.InitialSelectedAlias Select (cAlias) IF MESSAGEBOX("Are you Sure") = 6 && or whatever the return code is, check the help APPEND BLANK Thisform.Refresh() thisform.command4.Caption ="Save" thisform.SetAll("Enabled", .T., "TextBox") thisform.SetAll("Value", "", "TextBox") this.enabled = .f. thisform.text1.SetFocus() ENDIFBut why didn't you post this code first?