hi all,

i try this code it works ,this part not work (no replace)

is there another way as checkbox or option group

IF thisform.text12.Value=val("x")&&no replace
IF thisform.text12.Value=("x")&&no replace
IF thisform.text12.Value="x"&&no replace

		       	replace prior WITH 1
		 endif      	
			 
			 IF thisform.text13.Value=val("x")
		       	replace prior WITH 2
		       	
		 endif      	
			 
			 IF thisform.text14.Value=val("x")
		       	replace prior WITH 3
		 endif      	

all code

cAlias = Thisform.DataEnvironment.InitialSelectedAlias  && This is generic code in this case it is set to "Sore"
Select (cAlias) && Store
Go BOTTOM 
Append Blank
			 
Thisform.Refresh() && thisform.command29.Caption ="Save"
Thisform.SetAll("Enabled",.T.,"textbox")

	Thisform.SetAll("Enabled",.T.,"COMBObox") 
this.enabled = .f. 
thisform.text1.SetFocus() && 
	Thisform.COMMAND18.Enabled=.t. 
		Thisform.COMMAND19.Enabled=.t. 
			Thisform.COMMAND20.Enabled=.t.
			
			IF thisform.text12.Value=val("x")
		       	replace prior WITH 1
		 endif      	
			 
			 IF thisform.text13.Value=val("x")
		       	replace prior WITH 2
		       	
		 endif      	
			 
			 IF thisform.text14.Value=val("x")
		       	replace prior WITH 3
		 endif      	

thanks