Do Case Case This.Caption="EDIT" This.Caption = "Save" Thisform.command30.Enabled = .T. Thisform.SetAll("Enabled",.T.,"textbox") Thisform.SetAll("Enabled",.T.,"COMBObox") Thisform.COMMAND18.Enabled=.t. Case This.Caption = 'Save' This.Caption = 'EDIT' cAlias = Thisform.DataEnvironment.InitialSelectedAlias Select (cAlias) If CursorGetProp("Buffering")> 1 =Tableupdate(1,.T.,cAlias) IF thisform.text12.Value=("x") REPLACE PRIOR WITH 1 ENDIF IF thisform.text13.Value=("x") REPLACE PRIOR WITH 2 ENDIF IF thisform.text14.Value=("x") REPLACE PRIOR WITH 3 ENDIF Thisform.SetAll("Enabled",.F.,"textbox") Endif Thisform.command30.Enabled = .T. Thisform.SetAll("Enabled",.F.,"textbox") ENDCASETHANKS