Question

我终于让我的交叉表报告动态更新，但由于某种原因，日期参数没有传递给报告或查询。

我有一个更新交叉表报告的记录集，并且在hover / step中通过vba中的date参数显示正确的日期，但报告仍显示所有数据。

查询还显示所有日期的数据。这是我在查询中做错了吗？我已经尝试了在每个论坛看起来都能找到的每一个选项而且无法找到解决方案。

这是查询的SQL

PARAMETERS [Forms]![frm_menu]![txtFromDate] DateTime, 
           [Forms]![frm_menu]![txtToDate] DateTime, 
           [Forms]![frm_menu]![cmbMplTag1] Text ( 255 ), 
           [Forms]![frm_menu]![cmbMplTag2] Text ( 255 ), 
           [Forms]![frm_menu]![cmbMplTag3] Text ( 255 ), 
           [Forms]![frm_menu]![cmbMplTag4] Text ( 255 ), 
           [Forms]![frm_menu]![cmbMplTag5] Text ( 255 );
TRANSFORM First(tbl_logdata.Input_Value) AS FirstOfInput_Value
SELECT tbl_logdata.Log_Date, tbl_logdata.Log_Time
FROM tbl_logdata
WHERE (((tbl_logdata.Log_Date) Between [Forms]![frm_menu]![txtFromDate] 
                                   And [Forms]![frm_menu]![txtToDate]) 
  AND ((tbl_logdata.tag)=[Forms]![frm_menu]![cmbMplTag1])) 
   OR (((tbl_logdata.tag)=[Forms]![frm_menu]![cmbMplTag2])) 
   OR (((tbl_logdata.tag)=[Forms]![frm_menu]![cmbMplTag3])) 
   OR (((tbl_logdata.tag)=[Forms]![frm_menu]![cmbMplTag4])) 
   OR (((tbl_logdata.tag)=[Forms]![frm_menu]![cmbMplTag5]))
GROUP BY tbl_logdata.Log_Date, tbl_logdata.Log_Time
PIVOT tbl_logdata.tag;

这是交叉表报告的VBA。 cmbMplTag＃的参数工作正常：

Private Sub Report_Open(Cancel As Integer)
Dim rst As dao.Recordset
Dim db As dao.Database
Dim qdf As dao.QueryDef
Dim i As Integer
Dim j As Integer
Set db = CurrentDb
Set qdf = db.QueryDefs("qry_MplTagsSummary")

'on hover shows date from textbox'
qdf.Parameters("Forms!frm_menu!txtFromDate") = [Forms]![frm_menu]![txtFromDate] 
'on hover shows date from textbox'
qdf.Parameters("Forms!frm_menu!txtToDate") = [Forms]![frm_menu]![txtToDate] 
qdf.Parameters("[Forms]![frm_menu]![cmbMplTag1]") = [Forms]![frm_menu]![cmbMplTag1]
qdf.Parameters("[Forms]![frm_menu]![cmbMplTag2]") = [Forms]![frm_menu]![cmbMplTag2]
qdf.Parameters("[Forms]![frm_menu]![cmbMplTag3]") = [Forms]![frm_menu]![cmbMplTag3]
qdf.Parameters("[Forms]![frm_menu]![cmbMplTag4]") = [Forms]![frm_menu]![cmbMplTag4]
qdf.Parameters("[Forms]![frm_menu]![cmbMplTag5]") = [Forms]![frm_menu]![cmbMplTag5]

Set rst = qdf.OpenRecordset()
rst.MoveFirst
j = -1
i = 0
For i = 0 To rst.Fields.Count - 1

    j = j + 1
    Select Case j

        Case 0
            Me.Log_Date.ControlSource = rst.Fields(i).Name
        Case 1
            Me.Log_Time.ControlSource = rst.Fields(i).Name
        Case 2
            Me.field1.ControlSource = rst.Fields(i).Name
        Case 3
            Me.field2.ControlSource = rst.Fields(i).Name
        Case 4
           Me.Field3.ControlSource = rst.Fields(i).Name
        Case 5
            Me.Field4.ControlSource = rst.Fields(i).Name
        Case 6
            Me.Field5.ControlSource = rst.Fields(i).Name

    End Select
skip_it:
Next i

rst.Close
Set rst = Nothing
End Sub

如果我没有提供足够的详细信息/信息，请告诉我

Answer 1

您可能需要转换为真实的日期值。并使用 Value 属性：

qdf.Parameters("Forms!frm_menu!txtFromDate").Value = DateValue([Forms]![frm_menu]![txtFromDate])
qdf.Parameters("Forms!frm_menu!txtToDate").Value = DateValue([Forms]![frm_menu]![txtToDate])

Answer 2

检查SQL WHERE子句条件逻辑。按原样，逻辑过滤器记录在（不是两个）阵营中：

落在日期范围和查询的标记仅等于表单标记
查询的标记等于任何格式的tag2 - tag5。

可能您打算将日期范围和标签分开。因此，使用AND运算符围绕每个条件括起括号，甚至使用IN子句。请参阅下面的缩进说明：

...
WHERE (
        (
          (tbl_logdata.Log_Date) Between [Forms]![frm_menu]![txtFromDate] 
                                     And [Forms]![frm_menu]![txtToDate]
        ) 
    AND (
           (tbl_logdata.tag) IN (
                                 [Forms]![frm_menu]![cmbMplTag1],
                                 [Forms]![frm_menu]![cmbMplTag2], 
                                 [Forms]![frm_menu]![cmbMplTag3], 
                                 [Forms]![frm_menu]![cmbMplTag4], 
                                 [Forms]![frm_menu]![cmbMplTag5]
                                )
        )
     )
GROUP BY tbl_logdata.Log_Date, tbl_logdata.Log_Time

访问交叉表查询数据参数不过滤查询

2 个答案: