Do Case Case This.Caption="Modify" This.Caption = "Save" Thisform.command1.Enabled = .T. Thisform.SetAll("Enabled",.T.,"textbox") Case This.Caption = 'Save' This.Caption = 'Modify' cAlias = Thisform.DataEnvironment.InitialSelectedAlias Select (cAlias) If CursorGetProp("Buffering")> 1 =Tableupdate(1,.T.,cAlias) Endif Thisform.command1.Enabled = .T. Thisform.SetAll("Enabled",.F.,"textbox") ENDCASE Thisform.command1.Enabled = .T.thanks