Trying to create a small database of email addresses and I want to perform
a search of the existing list to check if an email address already exists in the list.
The code I wrote works fine for names but as soon as you enter an "@" or a "." it
fails to find anything.
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
Bidge