thank you for reply,

this part did not work,

IF thisform.text12.Value=("x")
   REPLACE PRIOR WITH 1
ENDIF

IF thisform.text13.Value=("x")
   REPLACE PRIOR WITH 2
ENDIF

IF thisform.text14.Value=("x")
    REPLACE PRIOR WITH 3
ENDIF

thanks

>So what is the question? Does the code work? If not, what is the problem?
>
>>hi all,
>>
>>i need to use this code for append new records or modify .
>>

>>Do Case
>>Case This.Caption="EDIT"
>>	This.Caption = "Save"
>>	Thisform.command30.Enabled = .T.
>>	Thisform.SetAll("Enabled",.T.,"textbox")
>>	Thisform.SetAll("Enabled",.T.,"COMBObox")
>>		Thisform.COMMAND18.Enabled=.t.
>>		
>>Case This.Caption = 'Save'
>>	This.Caption = 'EDIT'
>>	cAlias = Thisform.DataEnvironment.InitialSelectedAlias
>>	Select (cAlias)
>>	If CursorGetProp("Buffering")> 1
>>		=Tableupdate(1,.T.,cAlias)
>>IF thisform.text12.Value=("x")
>>REPLACE PRIOR WITH 1
>>ENDIF
>>
>>IF thisform.text13.Value=("x")
>>REPLACE PRIOR WITH 2
>>ENDIF
>>
>>IF thisform.text14.Value=("x")
>>REPLACE PRIOR WITH 3
>>ENDIF
>>	Thisform.SetAll("Enabled",.F.,"textbox")
>>
>>	Endif
>>	Thisform.command30.Enabled = .T.
>>	Thisform.SetAll("Enabled",.F.,"textbox")
>>    ENDCASE
>>
>>

>>
>>THANKS