对于查询窗中的【查询】命令按钮代码中的SQL语句怎么写

你这个窗体的子窗体是个查询，按你那样做要把查询做成窗体，或者改一下代码：

If Len(strWhere) > 0 Then
     strWhere = " where " & Left(strWhere, Len(strWhere) - 5)
    End If

   Debug.Print strWhere
   strSQL = "SELECT 费用ID, 开始日期, 结束日期, 周日常支出, 周购物支出, 周突发支出, 周淘宝支出," _
   & " 周固定支出, [总计 金额] FROM 联合查询 "
   CurrentDb.QueryDefs("查询3").SQL = strSQL & strWhere

     Me.费用统计月报子窗体.SourceObject = "Query.查询3"