LiveCode Forums.

Code: Select all

on mouseUp
   if field "Email" is empty then
      answer "Please Enter Email"
   else 
      find the text of field "Email" in field "List" 
      put the foundText into fText
      if line 1 of fText = field "Email" then
         answer "Email Exists"
      else 
     
         get fld "List"
         put cr & field "Email" after it
         sort it
         put it into dataBase
         put dataBase into fld "List"
      end if
   end if
end mouseUp

Code: Select all

on mouseUp
   put field "Email" into ttsearch
   find string ttsearch in field "List"
   if the result <> empty then
      put ttsearch into tList
      put cr after tList
      put field "List" after tList
      sort it
      put tList into field "List"
      answer "Email Added"
   else
      answer "Email Already Exists"
   end if
end mouseUp

Code: Select all

...
put field "Email" into ttsearch
put field "List" into tList

## To be sure -> ethel.wonka@willi.com <> wonka@willi.com!
set the wholematches to TRUE
if lineoffset(ttsearch,tList) <> 0 then
     answer "Email Already Exists"
    exit to top
end if

put CR & ttsearch after tList
sort tList
put tList into field "List"
...