访问 VBA 多重排序标准

Question

案例：我有一个包含多个输入字段的表单。此表单中包含的按钮运行查询并根据表单输入字段生成报告。

我创建了 3 个组合框，允许用户根据各种标准对报告进行排序（即按分析师姓名排序，然后按会议日期，然后按股票代码）。

Combo Box 1 = Sort_By;
Combo Box 2 = Sort_By_2;
Combo Box 3 = Sort_By_3

守则：

Private Sub Run_Query_Button_Click()
If Revisit_Check.Value = False Then
DoCmd.OpenQuery "Important Information Extracted"
DoCmd.Close
DoCmd.OpenReport "Important Information Extracted", acViewReport
DoCmd.SetOrderBy Sort_By Sort_By_2 Sort_By_3
Else
DoCmd.OpenQuery "Revisit"
DoCmd.Close
DoCmd.OpenReport "Revisit_Report", acViewReport
DoCmd.SetOrderBy Sort_By Sort_By_2 Sort_By_3
End If
End Sub

此代码返回语法错误。它不按三个“排序依据”标准进行排序。如果我按以下方式仅使用其中一个条件：

Private Sub Run_Query_Button_Click()
If Revisit_Check.Value = False Then
DoCmd.OpenQuery "Important Information Extracted"
DoCmd.Close
DoCmd.OpenReport "Important Information Extracted", acViewReport
DoCmd.SetOrderBy Sort_By

代码运行正常并按给定的“排序依据”值排序。如果不使用表单字段组合框进行排序，我使用实际的字段名称，例如：

Private Sub Run_Query_Button_Click()
If Revisit_Check.Value = False Then
DoCmd.OpenQuery "Important Information Extracted"
DoCmd.Close
DoCmd.OpenReport "Important Information Extracted", acViewReport
DoCmd.SetOrderBy "Analyst, Meeting Date, Ticker"
   ...

一切正常。为什么，当我使用三个排序条件时，会出现语法错误？如何根据这三个标准进行排序？

Answer 1

假设Sort_By 是您在您正在寻找的组合框中获得的值，您将需要更多类似的东西：

Private Sub Run_Query_Button_Click()
    If Revisit_Check.Value = False Then
        DoCmd.OpenQuery "Important Information Extracted"
        DoCmd.Close
        DoCmd.OpenReport "Important Information Extracted", acViewReport
        DoCmd.SetOrderBy Sort_By & ", " & Sort_By_2 & ", " & Sort_By_3
    Else
        DoCmd.OpenQuery "Revisit"
        DoCmd.Close
        DoCmd.OpenReport "Revisit_Report", acViewReport
        DoCmd.SetOrderBy Sort_By & ", " & Sort_By_2 & ", " & Sort_By_3
    End If
End Sub

注意& ", " & 使其成为与您所说的有效的"Analyst, Meeting Date, Ticker" 相同的字符串。否则，您第一次发送的排序将如下所示："AnalystMeeting DateTicker"