* textbox properties lcuniq .t.,lctable (none),lcindex (none)
* textbox lostfocus event
If This.lcuniq
	If Thisform.EditMode=.T. Or Thisform.AddMode=.T.
		If Indexseek(Trim(This.Value),.F.,This.lctable,This.lcindex)
			Messagebox('This Code Allready Exist On Table',16,'Opps',2)
		Endif
	Endif
Endif