I am looking for a work around. I am unable to get the "skip to" to bring me back to my form.
I have (and will continue) tried every suggestion so far stated. If you can get the code below to work for you (on RBwin 6.5++ (it works fine on 6.5)) Let me know...:) I have reinstalled a copy of 6.5 on one of our workstation so we will be able to finish inventory this year.
At 02:59 PM 4/18/02 -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
Dan Champion
P.O. Box 223
Grandville, MI. 49428-0223
www.championsolutions.net
