Question

单击按钮后，我无法使用选择组合框打开报告。这就是我所拥有的。你有什么建议？它只是在没有点击任何内容时打开报告库存但是我无法打开其他报告。

Private Sub Run_Inventory_Report_Macro_Click()
Dim strSortBy As String

strSortBy = Nz(Me.cmb_InventorySort.Value, "")

Select Case strSortBy
Case ""
    DoCmd.OpenReport "Inventory", acViewPreview
Case "Provider ID"
    DoCmd.OpenReport "Inventory-Provider Number", acViewPreview
Case "Provider Last Name"
    DoCmd.OpenReport "Inventory-Provider Last Name", acViewPreview
Case "Inventory Type"
    DoCmd.OpenReport "Inventory-Inventory Type", acViewPreview
Case "Corporate Receipt Date"
    DoCmd.OpenReport "Inventory-Corporate Receipt Date", acViewPreview
Case "PODM Receipt Date"
    DoCmd.OpenReport "Inventory-PODM Receipt Date", acViewPreview
End Select

End Sub

Answer 1

cmb_InventorySort组合框中有哪些值？比使用查找表返回您要打开的报告名称更好的方法。

即。 ReportList

ID  |  ReportName
Inv |  Inventory
Provider ID | Inventory - Provider Number

您的组合框将使用上表，因为它是RowSource。

然后，他们从组合框中选择了一个项目（或单击一个按钮后），然后您可以查找他们选择的报告，并且您不需要对案例陈述进行硬编码。即，您可以根据需要更改/添加/删除表中的报告名称。

StrReport = dlookup("ReportName","ReportList", "ID = '" & me!cmb_InventorySort & "'"

docmd.openreport strReport, acViewPreview

Answer 2

原来这个剧本是对的。我不得不回到报告中并在报告布局上修正错误。

选择组合框以打开报告

2 个答案: