If DoDefault() If Lastkey() <> 27 If Seek( This.Value, "lookuptable", "indexkey" ) Thisform.txtName.Value = lookuptable.Name Else Local lcName lcName = "" Do Form CreateNewLookUpEntry With This.value To lcName If Empty(lcName) Return .F. Else Thisform.txtName.Value = lcName EndIf EndIf EndIf Return .T. Else Return .F. EndIf