>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
IF MESSAGEBOX("Are you Sure") = 6 && or whatever the return code is, check the help APPEND BLANK ENDIF