sumox
Registered User.
- Local time
- Today, 07:56
- Joined
- Oct 1, 2013
- Messages
- 89
i have created a module under module section of my DB
My Report Name : "PURCH VB Query"
the code is as follows :
(what is want tell you later..)
i've placed a TextBox in my report named Text25 to the value :
=+1
properties-->data-->running sum--> Set to OVer all
i've also set a textbox in my report named CpyWord to the value :
=IIf([Text25]=1,"Original Buyer Copy", IIf([Text25]=2,"Duplicate File copy",))
Now what is want is Three Copies of Report with Two copies
marked seperately as per above IIF statement
Please help me out guys. As i want Three Copies with each Rpt-header
as Different Text
Possible solutions (ba donna no a script)
How do i refer to Report's control after Docmd.SelectObj....
if any facility then i can do easily thru the dazzling for next loop
How do i increase Report's control Text25's value, if three copies r there
I know there are many events in Report
I've stucked over this point. My all App in db is ready
I've searched all google. ba i think here in the heaven of Access
i shall find my true sol.
My Report Name : "PURCH VB Query"
the code is as follows :
(what is want tell you later..)
Code:
Sub Erlick()
DoCmd.SelectObject acReport, "PURCH VB Query", True
'"PURCH VB Query", acViewPreview, "PURCH VB Query"
For i = 1 To 3
DoCmd.PrintOut acPrintAll, , , , i
Next i
'This is for creating Seperate Text Per Copy in RptHeader Preview
End Sub
i've placed a TextBox in my report named Text25 to the value :
=+1
properties-->data-->running sum--> Set to OVer all
i've also set a textbox in my report named CpyWord to the value :
=IIf([Text25]=1,"Original Buyer Copy", IIf([Text25]=2,"Duplicate File copy",))
Now what is want is Three Copies of Report with Two copies
marked seperately as per above IIF statement
Please help me out guys. As i want Three Copies with each Rpt-header
as Different Text
Possible solutions (ba donna no a script)
How do i refer to Report's control after Docmd.SelectObj....
if any facility then i can do easily thru the dazzling for next loop
How do i increase Report's control Text25's value, if three copies r there
I know there are many events in Report
I've stucked over this point. My all App in db is ready
I've searched all google. ba i think here in the heaven of Access
i shall find my true sol.