If This.lcuniq Set Exact On Set Near Off Private lcalias lcalias=Alias() Private lnrecno lnrecno=0 lnrecno=Recno() Use (This.lctable) Again In 0 Alias loctable Order Tag (This.lcindex) lcvalue = Alltrim(This.Value) lcindex = This.lcindex lctable = "loctable" If !Empty(lcvalue) And !Empty(lcindex) And !Empty(lctable) If Seek(lcvalue, lctable, lcindex) Messagebox('Code AllReady Exist',16,'Opps',2) this.SetFocus Else Messagebox('New&Edit Possible',64,'Onay',1) Endif Endif If Used('loctable') Use In loctable Endif If !Empty(lcalias) If Alltrim(Upper(Alias()))<>Alltrim(Upper(lcalias)) Select (lcalias) If lnrecno>0 And Recno()<>lnrecno Goto lnrecno Endif Endif Endif Endifit works but every time warnings . which is the best way for detecting UniqID's for this situations ?