Question

我正在使用Access数据库并且已经为用户编写了VBA以更新数据库，然后将生成的报告打印为PDF。我现在想要允许一个选项打印两个报告中的一个，具体取决于用户选择运行哪个报告。

我知道我必须提示用户输入，理想情况是通过下拉列表（我还没想出怎么做，但谷歌似乎表明它可行）。我的问题是如何根据输入来获取执行打开报告的代码。

我对此有两点想法 - 我可以在VBA中写出所有内容，其中打印的报告取决于所选内容，或者提示可以绑定到运行两个宏中的一个然后执行报告。任何关于如何编写代码以允许用户输入的建议都将受到赞赏 - 或者如果我完全倒退，我会感激任何其他建议。

Answer 1

您可以使用输入框要求用户选择一个数字来引用报告。下面是如何完成此操作的示例。

Dim iAnswer

iAnswer = InputBox("Enter in the number of the report you want to run" & vbCrLf & vbCrLf & "1) ReportName1" & vbCrLf & "2) ReportName2")
    If iAnswer = 1 Then
        'run macro to produce report 1
    Else
        If iAnswer = 2 Then
            'run macro to produce report 2
        Else
            MsgBox "Not a valid report selection"
        End If
    End If

Access中的VBA：提示输入以选择要打印的报告

1 个答案: