You can use AutoInc field for your ShipNo field. It should not be created by a user.

>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