Is the form based on a dummy table that has no rows of data in it? Is the form called with an ENTER or EDIT?
At 18:20 18/04/02 -0400, you wrote: >Ok, > I am now at home and have taken the code from the previous email and > copied and pasted to a new file using rbedit. saved the file as test.app >connected to the concomp database >created a simple form with 4 fields as stated. >and I get the same results as at work, and as my other program. >the first occasion I enter data that will cause the lookup to fail (10), >hence skip to invbin1... and it works. Then the second time, I enter data >that WILL be found in the lookup (100) and it goes on to the second field. > >$COMMAND >block1 > > SET VAR invpartnum = company IN customer WHERE custid = .invbin1 > IF invpartnum IS NULL THEN > SET VAR invstatus TEXT = "No Data Found" > SET VAR invbin1 = NULL > SKIP to invbin1 > ELSE > SET VAR invstatus TEXT = "Data Found" > SKIP to invqty > ENDIF > > >showing that it did hit the else correctly. > >>$COMMAND >>block2 >> >> SET VAR invstatus TEXT = "You got to updates" >> RECALC VARIABLES >> SKIP to invbin1 >> RETURN > >the var invstatus does now = "You got to updates" however, >the form has no fields waiting for data. You have to use your mouse to get >to a field to enter data. >One little hint I do pick up is that during each of the data entries, the >status bar does show the correct table, and field. But when it gets to >this last line and exits the command file back to the form, the status >line says. "no editable data in this table" Until I click on a field. > >Has anyone else given this a try? > > > > > >At 02:59 PM 4/18/2002 -0400, you wrote: > >>Ok... >> I have recreated the program, and form, based on the concomp database. >> >> >> >>Same results... No variables are named for colums, I created a small >>form with 4 fields. >>Field 1 Variable invbin1 "User CAN enter new or change data" >>exit field = run block1 in test.apx >>field 2 Variable invqty "User CAN enter new or change data" >>exit field = run block2 in test.apx >>Field 3 Variable invstatus "NO new data or entry on field" >>field 4 variable invpartnum "NO new data or entry on field" >> >> >> >>$COMMAND >>test >> >> CLS >> CONNECT concomp >> SET QUOTES = " >> set eqnull off >> CLEAR VAR inv* >> SET VAR invqty REAL = null >> SET VAR invpartnum TEXT = NULL >> SET VAR invbin1 INTEGER = NULL >> SET VAR invstatus TEXT = "No Data Yet" >> EDIT USING testform AT 60, 60, 549, 341 CAPTION " " noheader >> -- CLEAR V inv* >> RETURN >>end >>$COMMAND >>block1 >> >> SET VAR invpartnum = company IN customer WHERE custid = .invbin1 >> IF invpartnum IS NULL THEN >> SET VAR invstatus TEXT = "No Data Found" >> SET VAR invbin1 = NULL >> SKIP to invbin1 >> ELSE >> SET VAR invstatus TEXT = "Data Found" >> SKIP to invqty >> ENDIF >> RECALC VARIABLES >> RETURN >> >>$COMMAND >>block2 >> >> SET VAR invstatus TEXT = "You got to updates" >> RECALC VARIABLES >> SKIP to invbin1 >> RETURN >> >> > >Warmest regards, > > >Tom Grimshaw >coy: Just For You Software >tel: 612 9552 3311 >fax: 612 9566 2164 >mobile: 0414 675 903 > >post: PO Box 470 Glebe NSW 2037 Australia >street: 3/66 Wentworth Park Rd Glebe NSW 2037 > >email: [EMAIL PROTECTED] >web: www.just4usoftware.com.au > >the most needed product in the world can be found at >www.thewaytohappiness.org > >This email and any files transmitted with it are confidential to the >intended recipient and may be privileged. If you have received this email >inadvertently or you are not the intended recipient, you may not >disseminate, distribute, copy or in any way rely on it. Further, you >should notify the sender immediately and delete the email from your >computer. Whilst we have taken precautions to alert us to the presence of >computer viruses, we cannot guarantee that this email and any files >transmitted with it are free from such viruses. ================================================ TO SEE MESSAGE POSTING GUIDELINES: Send a plain text email to [EMAIL PROTECTED] In the message body, put just two words: INTRO rbase-l ================================================ TO UNSUBSCRIBE: send a plain text email to [EMAIL PROTECTED] In the message body, put just two words: UNSUBSCRIBE rbase-l ================================================ TO SEARCH ARCHIVES: http://www.mail-archive.com/rbase-l%40sonetmail.com/
