Now I see your intention.. Golly.
Of course, database/2 always refers to the second
element in your database, which was your first record.
Duh. My apologies for misleading you there.
Ok, what you need is something simple like this:
rec: select database code
select finds the code, then returns the next object.
Great!
Now you can see if rec contains 'chknum and get its value.
chknum: all [(in rec 'chknum) rec/chknum]
Anton.
> Hi Anton,
>
> Thanks again. But it is still not working. No matter what record I
> search for
>
> all [find database code (in database/2 'chknum) database/2/chknum]
>
> appears to be stopping most of the time at the first record in the
> database, and returning its chknum.
>
> Louis
>
>
>
> At 02:05 PM 4/14/2002 +1000, you wrote:
> >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.
