Loops 循环浏览整个Access 2010列表框
我有一个带有列表框和日期选择器的表单。当我输入日期并从列表框中选择40项中的一项,然后单击我的按钮时,我就能够生成一份报告。我的问题是,如何循环浏览所有40个项目并将每个报告导出为pdf?任何帮助都将不胜感激。此外,我希望每个报告都以列表框中的名称保存。第一份报告的标题是RHM1,以此类推Loops 循环浏览整个Access 2010列表框,loops,ms-access,listbox,vba,Loops,Ms Access,Listbox,Vba,我有一个带有列表框和日期选择器的表单。当我输入日期并从列表框中选择40项中的一项,然后单击我的按钮时,我就能够生成一份报告。我的问题是,如何循环浏览所有40个项目并将每个报告导出为pdf?任何帮助都将不胜感激。此外,我希望每个报告都以列表框中的名称保存。第一份报告的标题是RHM1,以此类推 Private Sub Command3_Click() MyFilter = "rptIncidentsByOrg" MyPath = "C:\ComplyTrack\" MyFilename = "Te
Private Sub Command3_Click()
MyFilter = "rptIncidentsByOrg"
MyPath = "C:\ComplyTrack\"
MyFilename = "Test.pdf"
For Each varItem In Me.lstActivityOrgs.ItemsSelected
Debug.Print Me.lstActivityOrgs.Column(0, varItem)
DoCmd.OpenReport "rptIncidentsByOrg", acViewPreview, , "([Activity Org] = " & Chr(34) & Me.lstActivityOrgs.Column(0, i) & Chr(34) & ")"
DoCmd.OutputTo acOutputReport, "rptIncidentsByOrg", acFormatPDF, MyPath & MyFilename, True
DoCmd.Close acReport, "Test"
Next varItem
End Sub
已更新文件名的选项“B” 尝试以下操作:根据需要更改列
A. To list only items selected:
Private Sub Command3_Click()
For Each varItem In Me.lstActivityOrgs.ItemsSelected
Debug.Print Me.lstActivityOrgs.Column(0, varItem)
DoCmd.OpenReport "rptIncidentsByOrg", acViewPreview, , "([Activity Org] = " & Chr(34) & Me.lstActivityOrgs.Column(XXX,varItem) & Chr(34) & ")"
Next varItem
End Sub
Or B. List All Items:
Private Sub Command3_Click()
MyFilter = "rptIncidentsByOrg"
MyPath = "C:\ComplyTrack\"
MyFilename = "<fromListBox>.pdf"
For i = 0 To Me.lstActivityOrgs.ListCount
MyFileName = Me.lstActivityOrgs.Column(0, i) & ".pdf"
Debug.Print Me.lstActivityOrgs.Column(0, i)
DoCmd.OpenReport "rptIncidentsByOrg", acViewPreview, , "([Activity Org] = " & Chr(34) & Me.lstActivityOrgs.Column(XXX,i) & Chr(34) & ")"
DoCmd.OutputTo acOutputReport, stDocName, acFormatPDF, MyPath & MyFileName
DoCmd.Close acReport, "rptIncidentsByOrg"
Next i
End Sub
我选择了选项B。第一个报告按预期生成并保存到我的C:\中。但是,在第一个报告完成后,我收到运行时错误2501。我发布了修改后的代码和我的问题,我更新了“选项B”以按名称保存在列表框中。错误2501的原因是您正在关闭不存在的报告“测试”-请使用实际的报告名,而不是它工作的文件名。我正在将所有报告输出到我的C;\使用专有名称和pdf格式的驱动器,只需单击按钮