R
RNUSZ@OKDPS
The following is the code from an old Fox Pro database application (form
letter). It has multiple conditional statements that I would like to replace
with Visual Basic/Microsoft Access capabilities. Any suggestions would be
greatly appreciated.
Fox Pro 2.6 paragraph follows:
It is further ordered, pursuant to 47 o.s. 7-206, that the license and
registration(s) of licensee, (if LIC_DL_STA = "N") shall remain suspended
unless (if SECURITY > " " ) said security in the amount of (SECURITY) is
posted and (eif) proof of current insurance in your name is filed with this
Department along with a $100.00 reinstatement fee in the form of a cashier's
check or money order made payable to the Department of Public Safety.(else)
are hereby suspended unless (if SECURITY > " ") said security in the amount o
f (SECURITY) is posted and (eif) proof of current insurance in your name is
filed with this Department before (REVO_DATE).
----------------------------------------------------------------------------------------------------
(If LIC_DL_STA = "N" and SECURITY > Null) then output needs to be:
It is further ordered, pursuant to 47 o.s. 7-206, that the license and
registration(s) of licensee, shall remain suspended unless said security in
the amount of (SECURITY) is posted and proof of current insurance in your
name is filed with this Department along with a $100.00 reinstatement fee in
the form of a cashier's check or money order made payable to the Department
of Public Safety.
----------------------------------------------------------------------------------------------------
(If LIC_DL_STA = "N" and Security = Null) then output needs to be:
It is further ordered, pursuant to 47 o.s. 7-206, that the license and
registration(s) of licensee, shall resmain suspended unless proof of current
insurance in your name is filed with this Department along with a $100.00
reinstatement fee in the form of a cashier's check or money order made
payable to the Department of Public Safety.
--------------------------------------------------------------------------------------------------------
(If LIC_DL_STA Not = "N" and Security > " " ) then output needs to be:
It is further ordered, pursuant to 47 o.s. 7-206, that the license and
registration(s) of licensee, are hereby suspended unless said security in the
amount of (SECURITY) is posted and proof of current insurance in your name is
filed with this Department before (REVO_DATE).
---------------------------------- else if
------------------------------------------
(If LIC_DL_STA Not = "N" and Security is Null), then output needs to be
It is further ordered, pursuant to 47 o.s. 7-206, that the license and
registration(s) of licensee, are hereby suspended unless proof of current
insurance in your name is filed with this department before (REVO_DATE).
---------------------------------------------------------------------------------------------
At this point, I have 4 possible print paragraphs to present based on data
conditions, but at this point, I'm unable to code the paragraph correctly
without getting errors.
I've tried the following:
=IIf(LIC_DL_STA]="N" And IIf(IsNull(SECURITY) paragraph....."," but unable
to match conditionals with correct number of comma's and outputs...
Any suggestions would be greatly appreciated...
Thanks
Robert Nusz
Sr. Programmer Analyst II
letter). It has multiple conditional statements that I would like to replace
with Visual Basic/Microsoft Access capabilities. Any suggestions would be
greatly appreciated.
Fox Pro 2.6 paragraph follows:
It is further ordered, pursuant to 47 o.s. 7-206, that the license and
registration(s) of licensee, (if LIC_DL_STA = "N") shall remain suspended
unless (if SECURITY > " " ) said security in the amount of (SECURITY) is
posted and (eif) proof of current insurance in your name is filed with this
Department along with a $100.00 reinstatement fee in the form of a cashier's
check or money order made payable to the Department of Public Safety.(else)
are hereby suspended unless (if SECURITY > " ") said security in the amount o
f (SECURITY) is posted and (eif) proof of current insurance in your name is
filed with this Department before (REVO_DATE).
----------------------------------------------------------------------------------------------------
(If LIC_DL_STA = "N" and SECURITY > Null) then output needs to be:
It is further ordered, pursuant to 47 o.s. 7-206, that the license and
registration(s) of licensee, shall remain suspended unless said security in
the amount of (SECURITY) is posted and proof of current insurance in your
name is filed with this Department along with a $100.00 reinstatement fee in
the form of a cashier's check or money order made payable to the Department
of Public Safety.
----------------------------------------------------------------------------------------------------
(If LIC_DL_STA = "N" and Security = Null) then output needs to be:
It is further ordered, pursuant to 47 o.s. 7-206, that the license and
registration(s) of licensee, shall resmain suspended unless proof of current
insurance in your name is filed with this Department along with a $100.00
reinstatement fee in the form of a cashier's check or money order made
payable to the Department of Public Safety.
--------------------------------------------------------------------------------------------------------
(If LIC_DL_STA Not = "N" and Security > " " ) then output needs to be:
It is further ordered, pursuant to 47 o.s. 7-206, that the license and
registration(s) of licensee, are hereby suspended unless said security in the
amount of (SECURITY) is posted and proof of current insurance in your name is
filed with this Department before (REVO_DATE).
---------------------------------- else if
------------------------------------------
(If LIC_DL_STA Not = "N" and Security is Null), then output needs to be
It is further ordered, pursuant to 47 o.s. 7-206, that the license and
registration(s) of licensee, are hereby suspended unless proof of current
insurance in your name is filed with this department before (REVO_DATE).
---------------------------------------------------------------------------------------------
At this point, I have 4 possible print paragraphs to present based on data
conditions, but at this point, I'm unable to code the paragraph correctly
without getting errors.
I've tried the following:
=IIf(LIC_DL_STA]="N" And IIf(IsNull(SECURITY) paragraph....."," but unable
to match conditionals with correct number of comma's and outputs...
Any suggestions would be greatly appreciated...
Thanks
Robert Nusz
Sr. Programmer Analyst II