The trouble is that the table ALREADY HAS a record whose SHIPNO = the value you have in thisform.text1.value.
I presume that ShipNo is the primary key (PK) of your table and is therefore meant to be unique.

You COULD make ShipNo an integer, AutoInc field. Otherwise you need to check the table to ensure that there isn't a record with the new pk already.

>hi all,
>
>any idea ,help
>
>i try to run save command, i have error message Uniqueness of index "shipno" is violated
>

>Append From Dbf('temp')
>

>
>this is the code
>

>cAlias = Thisform.DataEnvironment.InitialSelectedAlias
>Select (cAlias)
>IF act_flag="1"
>     GO BOTTOM
>      LOCATE FOR UPPER(shipno)=ALLTRIM(thisform.text1.Value) AND  act_flag="1"
>  IF!FOUND()
>     Append From Dbf('temp')
>     replace transtype with "RE"
>     replace SHIPNO with ALLTRIM(thisform.text1.value)
>
>    With thisform.grid1
>          .recordsource = ''
>            Select temp
>          *  Zap  &&& another error ,many users can use this form
>          *delete all
>         .recordsource = 'temp'
>          thisform.text1.SetFocus
>         thisform.refresh
>   endwith
>**********************
>            with thisform.Grid1
>              .Recordsource = .Recordsource
>            endwith
>ENDIF
>endif
>
>

>
>thanks