Our programmer got this script to work using VBA. I am wondering how to
convert this script to JavaScript. Is there anyone out there who knows
both and can give me a hand?
Jim
Public Sub BallotOutput()
Dim rs As Recordset
Dim lThreshold As Long
Dim lCopies As Long
Dim x As Long
Set rs = CurrentDb.OpenRecordset("RL_18625_", dbOpenDynaset)
Do Until rs.EOF
lCopies = CLng(rs!Totals)
lThreshold = 100
If lCopies < lThreshold Then
Debug.Print "Slip Sheet: " & lCopies
lThreshold = lCopies
Else
Debug.Print "Slip Sheet: " & lThreshold
End If
Debug.Print "Job: " & lCopies
lCopies = lCopies - 1
For x = lThreshold To 0 Step -1
If x = 1 Then
If lCopies < lThreshold Then
Debug.Print "Slip Sheet: " & lCopies
x = lCopies + 1
Else
Debug.Print "Slip Sheet: " & lThreshold
x = lThreshold + 1
End If
End If
Debug.Print "Job: " & lCopies
lCopies = lCopies - 1
If lCopies = 0 Then Exit For
Next x
rs.MoveNext
Loop
MsgBox "Done"
End Sub
--
Users of FusionPro Desktop have unlimited free email support. Contact Printable
Support at [EMAIL PROTECTED]
--
View FusionPro Knowledge Base, FusionPro Samples at
www.printable.com/vdp/desktop.htm
--
You are currently subscribed to fusionpro as: [EMAIL PROTECTED]
To unsubscribe send a blank email to [EMAIL PROTECTED]
--
--
Note: All e-mail sent to or from this address will be received or otherwise
recorded by the e-mail recipients of this forum. It is subject to archival,
monitoring or review by, and/or disclosure to someone other than the recipient.
Our privacy policy is posted on www.printplanet.com
--
