Your code is not releasing the called form if they use the Save button. Try this mofification;
Save Button
------------
micode = ThisForm.contMaster.txtIcode.Value
mprice = ThisForm.contMaster.mprice.value
SELECT dicode
SET ORDER TO icode
SEEK micode IN dicode
IF FOUND()
REPLACE sell_price WITH mprice
ENDIF
ThisForm.contMaster.mprice.value = 0
ThisForm.contMaster.txtIcode.SetFocus
ThisForm.Release()
>I tried it even but no result.
>
>The Code of the Save and Exit button is as follows:
>
>Save Button
>------------
>micode = ThisForm.contMaster.txtIcode.Value
>mprice = ThisForm.contMaster.mprice.value
>SELECT dicode
>SET ORDER TO icode
>SEEK micode IN dicode
>IF FOUND()
> REPLACE sell_price WITH mprice
>ENDIF
>ThisForm.contMaster.mprice.value = 0
>ThisForm.contMaster.txtIcode.SetFocus
>
>Exit Button
>-----------
>ThisForm.Release
>
>Init Event of the form
>----------------------
>LPARAMETER lType
>Public retval
>Store 0 to retval
>SET EXCLUSIVE OFF
>SET DATE BRITISH
>SET CENTURY ON
>SET deleted ON
>This.Height=519
>This.Width=681
>This.vtype = '19'
>This.AutoCenter = .F. && I put it here as per your suggestion
>This.AutoCenter = .T. &&
>ThisForm.contMaster.mprice.Value = 0
>ThisForm.contMaster.txtIcode.SetFocus
>
>Saify