thank you for reply
i use this code as add button

	
cAlias = Thisform.DataEnvironment.InitialSelectedAlias
	Select (cAlias)
*GO bottom
*APPEND BLANK
Thisform.Refresh() 
thisform.command4.Caption ="Save"
thisform.SetAll("Enabled", .T., "TextBox")
thisform.SetAll("Value", "", "TextBox")

this.enabled = .f. 
thisform.text1.SetFocus() 

where i can add this code to previous message

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

>>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