Mailing List Archive: 49091 messages
  • Home
  • Script library
  • AltME Archive
  • Mailing list
  • Articles Index
  • Site search
 

[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: