访问 2010 年报告在日期之间受到限制

Question

我正在尝试设置一个表单以根据不同的条件启动各种报告，但我在获取一个基于 GroupBy/Count/Sum 的 SQL 数据源的报告以在两个未绑定的文本框之间工作时遇到问题FromDate 和 ToDate。

VBA 脚本 - 从表单调用报告 (frmRptFeedback)：

Private Sub cmdPrint_Click()

    If Not chkPrintPreview Then
        Set Application.Printer = Application.Printers.Item(cboPrinter.Value)
    End If

    Dim strCondition As String

    Dim strFromDate As String
    Dim strToDate As String

    strFromDate = txtFromDate.Value
    strToDate = txtToDate.Value


    Select Case opgOptions

        Case 1  ' Feedback By Employee
            If IsNull(cboEmployee.Value) Then
                strCondition = "DateSubmitted BETWEEN '" & strFromDate & "' AND '" & strToDate & "'"
            Else
                strCondition = "RespEmp = '" & cboEmployee.Value & "' AND DateSubmitted BETWEEN '" & _
                strFromDate & "' AND '" & strToDate & "'"
            End If

            Call OpenReport("rptFeedbackByEmp", IIf(chkPrintPreview, acViewPreview, acViewNormal), strCondition)

        Case 2  ' Feedback By Team
            If IsNull(cboTeam.Value) Then
                strCondition = "DateSubmitted BETWEEN '" & strFromDate & "' AND '" & strToDate & "'"
            Else
                strCondition = "EmpType = '" & cboTeam.Value & "' AND DateSubmitted BETWEEN '" & _
                strFromDate & "' AND '" & strToDate & "'"
            End If

            Call OpenReport("rptFeedbackByTeam", IIf(chkPrintPreview, acViewPreview, acViewNormal), strCondition)

        Case 3  ' Feedback By Project #
            If IsNull(txtProjectID) Then
                strCondition = "DateSubmitted BETWEEN '" & strFromDate & "' AND '" & strToDate & "'"
            Else
                strCondition = "ProjectID = " & txtProjectID & "AND DateSubmitted BETWEEN '" & _
                strFromDate & "' AND '" & strToDate & "'"
            End If

            Call OpenReport("rptFeedbackByProject", IIf(chkPrintPreview, acViewPreview, acViewNormal), strCondition)

    End Select

    If Not chkPreview Then
        Set Application.Printer = Nothing
    End If
End Sub

SQL 查询 - 最初将数据拉入主 SQL 视图 (vueRptFeedback)：

SELECT f.FeedbackID, f.BFID, bf.ProjectID, p.ProjectName, e2.Name AS PM, e1.Name AS RespEmp, 
       et.Description AS EmpType, f.SubByInits, f.DateSubmitted, f.QtyIssues, 
       f.EstHoursImpact, f.PlusDelta, f.Notes, f.HowResolved
FROM dbo.tblEmployee e2 
INNER JOIN dbo.tblProject p
INNER JOIN dbo.tblBookingForm bf 
        ON p.ProjectID = bf.ProjectID 
        ON e2.EmployeeID = p.Scope_PM_EmployeeID 
RIGHT OUTER JOIN dbo.tblEmployeeType et 
INNER JOIN dbo.tblEmployee e1 
        ON et.EmployeeTypeID = e1.EmployeeTypeID 
INNER JOIN dbo.tblFeedback f 
        ON e1.EmployeeID = f.ResponsibleEmpID 
        ON bf.BookingFormID = f.BFID

SQL 查询 - 按项目 ID (vueRptFeedbackByProject) 报告的当前记录源：

SELECT ProjectID, ProjectName, RespEmp, COUNT(FeedbackID) AS CountReports, 
       SUM(QtyIssues) AS SumIssues, SUM(EstHoursImpact) AS SumHours
FROM vueRptFeedback
WHERE (DateSubmitted 
       BETWEEN CONVERT(DATETIME, [Forms]![frmRptFeedback]![txtFromDate], 102) 
           AND CONVERT(DATETIME, [Forms]![frmRptFeedback]![txtToDate], 102))
GROUP BY ProjectID, RespEmp, ProjectName, DateSubmitted
ORDER BY ProjectID, RespEmp

我知道我的问题出在WHERE 子句中，因为当我将其取出时，报告可以正常显示，但包含所有记录，而不是这两个日期之间的记录。一旦我可以在 txtFromDate 和 txtToDate 之间获取报告，我可能需要更改 OpenReport() 以传递 txtFromDate 和txtToDate 作为参数而不是在 X 和 Y 之间，但我一直被报告的 Recordsource 上的语法绊倒。

Answer 1

基本上，您将两种 SQL 方言混为一谈 - SQL Server SQL 和 MS Access SQL。 Access SQL 语法中没有 CONVERT() 函数，该函数似乎是运行报表记录源的引擎，而不是 MSSQL 运行的传递查询 vueRptFeedback。

考虑使用FORMAT() 将日期与ANSI 日期时间格式对齐：YYYY-MM-DD:

SELECT ProjectID, ProjectName, RespEmp, COUNT(FeedbackID) AS CountReports, 
       SUM(QtyIssues) AS SumIssues, SUM(EstHoursImpact) AS SumHours
FROM vueRptFeedback
WHERE (DateSubmitted 
       BETWEEN FORMAT([Forms]![frmRptFeedback]![txtFromDate], "YYYY-MM-DD") 
           AND FORMAT([Forms]![frmRptFeedback]![txtToDate], "YYYY-MM-DD"))
GROUP BY ProjectID, RespEmp, ProjectName, DateSubmitted
ORDER BY ProjectID, RespEmp

在 VBA 方面，您仍然可以使用 Format()，因为 Access 的许多 SQL 函数派生自 VBA 函数（这可能是 Access SQL 与其他遵循 ANSI 的 RDMS 对应物不同的原因，因为需要在 MS Office VBA 上下文中保持兼容）：

Dim strFromDate As String
Dim strToDate As String

strFromDate = Format(txtFromDate.Value, "YYYY-MM-DD")
strToDate = Format(txtToDate.Value, "YYYY-MM-DD")
...