>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

It's not quite clear where you want to add this code, but you don't need "GO BOTTOM" APPEND BLANK automatically places you in the new record.

you can use MESSAGEBOX() to display a message and get the response. SO your code would look something like this:

IF MESSAGEBOX("Are you Sure") = 6 && or whatever the return code is, check the help
   APPEND BLANK
ENDIF