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. -- To unsubscribe from this list, please send an email to [EMAIL PROTECTED] with "unsubscribe" in the subject, without the quotes.
