这题,真系难........,红尘如烟又不在.....

ZZBZZBZZZB

Private Sub Command43_Click()
Dim rsm As ADODB.Recordset
Dim mysql As String, aq As String, AAA总计 As String
Dim tyu As String
Set rsm = New ADODB.Recordset

'AAA总计是新增的字段名
If IsNull(Me.Combo12) Then Exit Sub
tyu = Combo12.Value
mysql = " TRANSFORM Sum(末归类明细.AAA)
AS " & "AAA之总计" & _

" SELECT 末归类明细.日期, 末归类明细.凭证号, Sum(末归类明细.AAA) AS " & " AAA总计 " & _

" FROM
末归类明细" & _

" WHERE
总账科目 ='" & tyu & "'" & _

" GROUP BY 末归类明细.日期, 末归类明细.凭证号 " & _

" PIVOT 末归类明细.明细科目"

'" INTO aq " & _
rsm.Open mysql, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
mm = rsm.RecordCount
MsgBox "表 '" & mm, vbInformation

上述代码是创建一个有参数的交叉表查询，测试通过了，我的问题是把这个有参数的交叉表查询命名，再以此查询生成表，表名是组合框选定的值，有什么好法？？？请问红尘如烟，帮帮则个。这个任务在SQL中很好解决，用代码不知行不？？？？？

Dim rsmm As ADODB.Recordset
Dim mysqln As String, aqq As String
Set rsmm = New ADODB.Recordset
mysqln = " SELECT mysql.日期,mysql.凭证号,mysql.AAA总计 " & _

" INTO aqq " & _

" FROM mysql"


rsmm.Open mysqln, CurrentProject.Connection, adOpenKeyset, adLockOptimistic

DoCmd.Rename Me.Combo12 & "明细帐", acTable, "aqq"
End Sub

ZZBZZBZZZB

答案:   综合运用DAO与ADO
Dim dbs As DAO.Database
    Dim qdf As DAO.QueryDef
    Dim strSQL As String
Dim tyu As String
tyu = Combo12.Value
   Set dbs = CurrentDb
   strSQL = " TRANSFORM Sum(末归类明细.AAA)  AS " & "AAA之总计" & _
         " SELECT 末归类明细.日期, 末归类明细.凭证号, 末归类明细.摘要, Sum(末归类明细.AAA) AS [总计 AAA] " & _
         " FROM   末归类明细" & _
         " WHERE  总账科目 ='" & tyu & "'" & _
         " GROUP BY 末归类明细.日期, 末归类明细.凭证号, 末归类明细.摘要 " & _
         " PIVOT 末归类明细.明细科目"

Set qdf = dbs.CreateQueryDef("五项原则", strSQL)

           Dim rsm As ADODB.Recordset
          Dim mysql As String, aq As String
          Set rsm = New ADODB.Recordset

           tyu = Combo12.Value
           mysql = " SELECT *" & _
           " INTO aq " & _
           " FROM 五项原则 "
rsm.Open mysql, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
'更改表名"aq"为组合框的值"tyu产"
DoCmd.Rename tyu & "明细帐", acTable, "aq"

红尘如烟

不用那么麻烦，下面这几句代码就行了：
Private Sub Command0_Click()
    Dim strSQL As String

    strSQL = " TRANSFORM Sum(AAA) AS AAA之总计" & _
                  " SELECT        日期, 凭证号, 摘要, Sum(AAA) AS [总计 AAA] " & _
                  " FROM           末归类明细" & _
                  " WHERE        总账科目 ='" & 条件文本框 & "'" & _
                  " GROUP BY    日期, 凭证号, 摘要 " & _
                  " PIVOT          明细科目"
    CurrentDb.CreateQueryDef "交叉表查询", strSQL

    strSQL = "SELECT * INTO " & 表名组合框 & " FROM 交叉表查询"
    CurrentDb.Execute strSQL
End Sub

ZZBZZBZZZB

高手就是高!!!
但会有一问题,每次生新表时,如有相同名的表,不会复盖它,面是停止执行,因此每次执行前还要删除作为过程使用的查询和已存在的表,当然这不难了.
非常感谢红尘如烟!!!!!!!!

dfnt11

高手就是高!!!