hi all,

i need to add
go bottom
append blank to this code below, and message as are you sure Y,N

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