对联合查询子窗体筛选，查询代码哪时出错了？

点击下载此附件   对联合查询子窗体筛选，查询代码哪时出错了？请高人指点！！

Private Sub Command3_Click()
  On Error GoTo Err_cmd查询_Click

    Dim strWhere As String  '定义条件字符串
    Dim qdf1 As DAO.QueryDef    'qdf被定义为一个查询定义对象
     Dim qdf2 As DAO.QueryDef    'qdf被定义为一个查询定义对象
      Dim qdf3 As DAO.QueryDef    'qdf被定义为一个查询定义对象
      
    Dim strSQL1 As String
    Dim strSQl2 As String
    Dim strSQl3 As String

    strWhere = ""    '设定初始值－空字符串

    If Not IsNull(Me.年份) Then
              strWhere = strWhere & "(查询1.[日期年] = " & Me.年份 & ") AND "
    End If
   '
    If Len(strWhere) > 0 Then
        strWhere = Left(strWhere, Len(strWhere) - 5)
    End If
    If Len(strWhere) > 0 Then
        strSQL1 = "TRANSFORM Sum(查询1.金额) AS 金额之合计 SELECT 查询1.名称, Sum(查询1.金额) AS [总计 金额] FROM 查询1 "
        strSQL1 = strSQL1 & "WHERE(" & strWhere
        strSQL1 = strSQL1 & ") GROUP BY 查询1.名称 PIVOT Format([日期],'yyyy-mm')"

        strSQl2 = "TRANSFORM Sum(查询1.金额) AS 金额之合计 SELECT '总合计' AS 汇总, Sum(查询1.金额) AS [总计 金额] FROM 查询1"
        strSQl2 = strSQl2 & "WHERE(" & strWhere
        strSQl2 = strSQl2 & ") GROUP BY '总合计'PIVOT Format([日期],'yyyy-mm')"
        strSQl3 = "SELECT 查询1_交叉表.* FROM 查询1_交叉表 UNION SELECT 查询2.*  FROM 查询2"

    Else
         strSQL1 = "TRANSFORM Sum(查询1.金额) AS 金额之合计 SELECT 查询1.名称, Sum(查询1.金额) AS [总计 金额] FROM 查询1 GROUP BY 查询1.名称 PIVOT Format([日期],'yyyy-mm')"
        strSQl2 = "TRANSFORM Sum(查询1.金额) AS 金额之合计 SELECT '总合计' AS 汇总, Sum(查询1.金额) AS [总计 金额] FROM 查询1 GROUP BY '总合计'PIVOT Format([日期],'yyyy-mm')"
        strSQl3 = "SELECT 查询1_交叉表.* FROM 查询1_交叉表 UNION SELECT 查询2.*  FROM 查询2"
    End If

    Set qdf1 = CurrentDb.QueryDefs("查询1_交叉表")
    qdf1.SQL = strSQL1
    qdf1.Close

     Set qdf2 = CurrentDb.QueryDefs("查询2")
     qdf2.SQL = strSQl2
    qdf2.Close

      Set qdf3 = CurrentDb.QueryDefs("查询3")
     qdf3.SQL = strSQl3
     qdf3.Close
 
    Set qdf3 = Nothing

    Me.查询3子窗体.SourceObject = ""
    Me.查询3子窗体.SourceObject = "查询.查询3"
   
Exit_cmd查询_Click:
    Exit Sub
Err_cmd查询_Click:
    MsgBox Err.Description
    Resume Exit_cmd查询_Click
End Sub