我如何在报告中输入填充日期？

Question

我有一个多列表框，然后根据选择过滤查询（以下代码）。

  Private Sub Command39_Click()

  Dim db As DAO.Database
  Dim qdf As DAO.QueryDef
  Dim varItem As Variant
  Dim strCriteria As String
  Dim strSQL As String
  Set db = CurrentDb()
  Set qdf = db.QueryDefs("Productivity_WeeklyFinal")

      For Each varItem In Me!Combo.ItemsSelected

      strCriteria = strCriteria & [Forms]![ProductivityForm]![Combo].ItemData(varItem) & ", "

      Next varItem

      strSQL = "SELECT Info_ME_Employees.ID, gs_1_week_finalUnion.SampleID,
      gs_1_week_finalUnion.Operator, Format$([TestDate],'m/dd/yyyy') AS Test_Date,                  
      gs_1_week_finalUnion.Test FROM Info_ME_Employees INNER JOIN gs_1_week_finalUnion ON
      Info_ME_Employees.Full_Name = gs_1_week_finalUnion.Operator" & _
       " WHERE Info_ME_Employees.ID IN (" & strCriteria & " )AND gs_1_week_finalUnion.TestDate
      Between (Date()-7-Weekday(Date(),2)+1) And (Date()-Weekday(Date(),2)) " & _
        " ORDER BY gs_1_week_finalUnion.Operator"
      qdf.SQL = strSQL

      Set db = Nothing
      Set qdf = Nothing

  End Sub

然后过滤我的查询。

然后，我从这些记录中进行报告，然后按操作员将记录分组。“ >>

我的问题是，如何在报表所基于的查询中的那些记录之间输入填充日期。如果我在查询中使用字段操作符的空字段加入填充日期，它将对空值进行分组。有VBA方法可以引导我朝正确的方向发展吗？谢谢

我有一个多列表框，然后根据选择过滤查询（以下代码）。 Private Sub Command39_Click（）Dim db as DAO.Database Dim qdf As DAO.QueryDef Dim varItem As Variant Dim ...

Answer 1

考虑将您原始的命名查询加入所有不同运算符的交叉查询，并根据您的Productivity_WeeklyFinal