Replies

Thank you Steve. That worked. Thanks for your help.

I am getting an error 2501 The outputTo action was cancelled.

Here is my module that I created. I created a form with a command button that calls the module.

Public Sub ExportReportsPDF()

Dim zDestFolder As String
Dim zReportName(1 To 13) As String
Dim iCntr As Integer

zReportName(1) = “01_Total All Members ReportAll”
zReportName(2) = “01_Total All Members ReportExcludesPre65”
zReportName(3) = “01_Total All Members ReportExcludesPre65-NONOPEB”
zReportName(4) = “01_Total All Members ReportExcludesPre65-OPEB”
zReportName(5) = “01_Total All Members ReportNON-OPEB”
zReportName(6) = “01_Total All Members ReportOPEB”
zReportName(7) = “01_Total All Members ReportPre65”
zReportName(8) = “01_Total All Members ReportPre65andNONOPB”
zReportName(9) = “01_Total All Members ReportPre65andOPEB”
zReportName(10) = “03RPt_CntbyProduct_BlueCare2”
zReportName(11) = “03RPt_CntbyProduct_CompPPO2”
zReportName(12) = “03RPt_FirstStBasicandCDHGold”
zReportName(13) = “03RPt_Medicfill and POS”

zDestFolder = ” V:CORPDATA17AdminLindaDelawareReportPDFFolder”

For iCntr = 1 To UBound(zReportName)

DoCmd.OutputTo acOutputReport, zReportName(iCntr), acFormatPDF, _
zDestFolder & zReportName(iCntr) & “.pdf”

Next iCntr

End Sub

I named the module ExportPDF

Thank you for your help. Will try this on Monday.

I put the code in a module and when you say call it from the click event, what does that look like? Sorry, I am not that good at VBA.

I was going to create a form and put the code in the on click event of a command button. Can I do this?

Access 2007 but will be upgrading to Access 2010 in near future. For now 2007.

thank you so much. Saved me hours of work.

Can’t you just select the summation symbol on the top and hit enter. If you look at the calculation, it uses =subtotal(9,c2:C100) for example

How about a pop-up calendar. The attached spreadsheet describes how to do this in Excel 2003. Not sure about 2007. In the code, you have to format the column to the date format you want.

Right click one of the total lines.
Click on Field Settings
Click None.

=Date(Mod(A2, 10000),TRUNC(A2 / 1000000), MOD(TRUNC(A2 / 10000), 100))

Copy down

Highlight and Right click the column you want to enter the dates.
Select Format Cells.
On the number tab choose custom and enter in the Type Box 00/00/0000.
It looks like a V between the 0s but they are forward and backward slashes. If you want to use the date values in calculations, you will need to add a column containing formulas that will translate them into actual dates for Excel.If you want that formula, let me know.

This may be too simplistic but have you tried:

Put a + sign in the cell you want the data to appear
Go to the other spreadsheet and highlight the cell that has the data you want
Hit enter
This will take you back to the first spreadsheet and the info will appear.

Since it is a zip code and a set number of characters try this:

In a new column put =TEXT(A1,”000000″) and copy down.

Then highlight that column and
EDIT
copy
Paste Special
Choose values

This removes the calculation. Delete the original column.

I figured out how to prevent the #REF! error from showing. Just in case someone else has this problem.

=IF(ISERROR(SUM(E5,E7,E9,E13,E23,E27)),” “,SUM(E5,E7,E9,E13,E23,E27))