>if empty(this.value) > return >endif > >sele Ther >seek alltrim(this.value) >if !found() > wait window "Staff Code Not Found" >else > ThisForm.LstStaff.AddListItem(alltrim(Ther.fname) + ' ' + alltrim(Ther.lname) + iif(empty(Ther.title),'',' ' + Ther.title)) > thisform.lststaff.addlistitem(Ther.thid, thisform.lstStaff.NewItemID,2) > Thisform.lststaff.numberofelements = Thisform.lststaff.numberofelements + 1 >endif >this.value = '' >return -1 > >>