strSQL = "select * from " & strSQL语句出错

wen123456

Private Sub Command6_Click()
    Dim Qdf As DAO.QueryDef
    Dim varI As Variant
    Dim strGrp As String, strSum As String
    Dim strSQL As String, strGrpFldName As String
Dim bb
    For Each varI In Me.List0.ItemsSelected
        strGrp = strGrp & Me.List0.ItemData(varI) & ","
    Next
    For Each varI In Me.List2.ItemsSelected
        strSum = strSum & "Sum(" & Me.List2.ItemData(varI) & ") As 总" & _
                 Me.List2.ItemData(varI) & ","
    Next
    bb = "a"
    If strGrp = "" Then
        MsgBox "请选择分组项目"
        Exit Sub
    ElseIf strSum = "" Then
        MsgBox "请选择统计项目"
        Exit Sub
    End If
    Set Qdf = CurrentDb.QueryDefs("c")
    strSum = Left(strSum, Len(strSum) - 1)
    strGrpFldName = Left(strGrp, Len(strGrp) - 1)
    strSQL = "select " & strGrp & strSum & " from " & bb & " group by " & strGrpFldName
    strSQL = "select * from " & strSQL 不加此句运行没有任何问题，但增加此句就错了，请错在那里，如何改？
   
    Qdf.SQL = strSQL
    Me.Child4.SourceObject = "查询.c"
    Qdf.Close
    Set Qdf = Nothing
End Sub

Grant

在立即窗体打印出来后
select * from select 国家,客户,产品,Sum(重量) As 总重量,Sum(箱数) As 总箱数 from a group by 国家,客户,产品

你说能不出错吗?而且也不太明白你想要什么

wen123456

我主要的目的是想对联合查询的结果排序，我在excel里可以实现按科目（km)排序，
sq1 = sq1 & "union all " & sq21 & " union all " & sq31
    sq1 = "select *" _
                & "from (" & sq1 & ") order by km"
在aceess如何实现？
请看窗体“明细账1”中
'stsql = "select * from [" & stsql & "].AS [%$##@_Alias] order by YY"