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"

访问VBA多重排序标准

1 个答案: