G
Guest
Hi,
I have a question regarding updating a table. I am currently converting
dbase to access but do not know how you would update a table directly before
it's seen in a form. In dbase i can run a program(which evaluates each
record with a do while not eof() and replaces blank information) to directly
change a table before a form is viewed. How do you do this in access?
dbase program example:
USE WEBCPT **opens table
DO WHILE .NOT.EOF()
RCSCORE=0 ***variable
RECOMMEND=" "
rscre=""
DO CASE
CASE RCSCORE=0
RSCRE="NO"
CASE (RCSCORE>=20.0.AND.RCSCORE< 34.0)
RSCRE="RLO"
CASE (RCSCORE>=34.0 .AND.RCSCORE<53.0)
RSCRE="BR"
CASE (RCSCORE>=53.0 .AND.RCSCORE< 68.0)
RSCRE="WAIT/WRIT"
*CASE (RCSCORE>=64.0 .AND.RCSCORE< 68.0)
* RSCRE="CRREQ"
CASE (RCSCORE>=68.0.AND.RCSCORE< 120)
RSCRE="ELE"
ENDCASE
IF RSCRE="RLO"
RECOMMEND="RETEST"
ENDIF
IF RSCRE="BR"
RECOMMEND="BR"
ENDIF
IF RSCRE="WAIT/WRIT"
RECOMMEND="WAIT/WRIT"
ENDIF
IF RSCRE="CRREQ"
RECOMMEND="CRREQ"
ENDIF
IF RSCRE="ELE"
RECOMMEND="ELECT OPT"
ENDIF
REPLACE READPL WITH RECOMMEND
SKIP
ENDDO
REPL READPL WITH 'DNT' FOR RCSCORE=0
RETURN
I have a question regarding updating a table. I am currently converting
dbase to access but do not know how you would update a table directly before
it's seen in a form. In dbase i can run a program(which evaluates each
record with a do while not eof() and replaces blank information) to directly
change a table before a form is viewed. How do you do this in access?
dbase program example:
USE WEBCPT **opens table
DO WHILE .NOT.EOF()
RCSCORE=0 ***variable
RECOMMEND=" "
rscre=""
DO CASE
CASE RCSCORE=0
RSCRE="NO"
CASE (RCSCORE>=20.0.AND.RCSCORE< 34.0)
RSCRE="RLO"
CASE (RCSCORE>=34.0 .AND.RCSCORE<53.0)
RSCRE="BR"
CASE (RCSCORE>=53.0 .AND.RCSCORE< 68.0)
RSCRE="WAIT/WRIT"
*CASE (RCSCORE>=64.0 .AND.RCSCORE< 68.0)
* RSCRE="CRREQ"
CASE (RCSCORE>=68.0.AND.RCSCORE< 120)
RSCRE="ELE"
ENDCASE
IF RSCRE="RLO"
RECOMMEND="RETEST"
ENDIF
IF RSCRE="BR"
RECOMMEND="BR"
ENDIF
IF RSCRE="WAIT/WRIT"
RECOMMEND="WAIT/WRIT"
ENDIF
IF RSCRE="CRREQ"
RECOMMEND="CRREQ"
ENDIF
IF RSCRE="ELE"
RECOMMEND="ELECT OPT"
ENDIF
REPLACE READPL WITH RECOMMEND
SKIP
ENDDO
REPL READPL WITH 'DNT' FOR RCSCORE=0
RETURN