Sorry, my slip up there. You can't use find on an object!
You should probably use this:
in database/2 'chknum ; to see if there is such a word
database/2/chknum ; get the value (not none or false it's ok).
so...
all [find database code (in database/2 'chknum) database/2/chknum]
> 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
--
To unsubscribe from this list, please send an email to
[EMAIL PROTECTED] with "unsubscribe" in the
subject, without the quotes.
