[REBOL] Re: The all function.
From: louisaturk:eudoramail at: 13-Apr-2002 1:54
Anton,
Thanks for the help. Further testing proved that you are right about my
code being incorrect. However, when I try
find database/2 chknum
I get the following error message:
Code: boo
Check#: 9898
** Script Error: find expected series argument of type: series port bit
set
** Where: forever
** Near: rec: all [find database code find database/2 chknum]
either rec
>>
Here is the the code from my program:
if choice = #"1" [
forever [
print cls
print " ADD A RECORD"
print " ============^/"
code: ask " Code: "
chknum: ask " Check#: "
if code = "" [break] ;gsj added to avoid empty error
rec: all [find database code find database/2
chknum]
either rec = none [
date: ask " Date: "
amount: ask " Amount: "
special: ask " Special Offering: "
insert-data code chknum date amount special
save-data
][
ask "^/ Record is already in database. Continue? "
]
] ; End forever loop for choice 1
] ; End if choice 1
Thanks again,
Louis
At 03:42 PM 4/13/2002 +1000, you wrote: