access vba 求医, 这段有何问题

ZZBZZBZZZB

Private Sub Command3_Click()
Dim rsmx As ADODB.Recordset
Dim mysql As String, aq As String
Dim tyu产 As String
tyu产 = Combo12.Value

Set rsmx = New ADODB.Recordset
mysql = "select 明细科目 into aq from 明细科目表 where 总帐科目 ='" & Combo12.Value & "'"

rsmx.Open mysql, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
'更改表名"aq"为组合框的值"tyu产"
DoCmd.Rename tyu产, acTable, "aq"
End Sub

上面的测试通过,下面的怎么也通不过,不知是什么原因.数据库传上来了,望好心人指正!!!!



Private Sub Command4_Click()
Dim rsm As ADODB.Recordset
Dim mysql As String, aq As String
Dim tyu As String
tyu = Combo12.Value
Set rsm = New ADODB.Recordset
mysql = "select 日期,凭证编号,摘要,总帐科目,明细科目,借方金额,贷方金额 into aq from 清单 where 总帐科目 ='" & Combo12.Value & "'"
rsm.Open mysql, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
'更改表名"aq"为组合框的值"tyu产"
DoCmd.Rename tyu, acTable, "aq"
rsmx.Close
End Sub

ZZBZZBZZZB

是不是交叉表根本就不能一下子生成表,还是其它问题????

ZZBZZBZZZB

Private Sub Command4_Click()
Dim mysql As String
If IsNull(Me.Combo12) Then Exit Sub
tyu = Combo12.Value
mysql = " TRANSFORM Sum(末归类明细.AAA)  AS  AAA 之总计" & _
        " SELECT 末归类明细.日期, 末归类明细.凭证号, 末归类明细.摘要, Sum(末归类明细.AAA) AS [总计 AAA]  " & _
        " INTO   " & Me.Combo12.Value & _
        " FROM   末归类明细" & _
        " WHERE  总账科目 ='" & Me.Combo12.Value & _
        " GROUP BY 末归类明细.日期, 末归类明细.凭证号 " & _
        " PIVOT 末归类明细.明细科目"CurrentDb.Execute mysql
MsgBox "表 '" & Me.Combo12 & "' 已生成。", vbInformation
End Sub

这样怎不行?????

ZZBZZBZZZB

非常感谢红尘如烟!!!!不是你问题解决不了
先在查询中将SQL语句设计好,然后再复制到代码中,这种做法还真没试过.用SQL视;做查询这个没问题,转化为代码怕有点难吧????下面是一个交叉的参数查询,能转化为代码吗??
PARAMETERS [Forms]![总账查询]![Combo12] Text ( 255 );
TRANSFORM Sum(末归类明细.AAA) AS AAA之总计
SELECT 末归类明细.日期, 末归类明细.凭证号, 末归类明细.摘要, Sum(末归类明细.AAA) AS [总计 AAA]
FROM 末归类明细
WHERE (((末归类明细.清单.总账科目)=[Forms]![总账查询]![Combo12]))
GROUP BY 末归类明细.日期, 末归类明细.凭证号, 末归类明细.摘要
PIVOT 末归类明细.明细科目;

红尘如烟

只是生成表，用不着ADO

红尘如烟

Private Sub Command4_Click()
Dim mysql As String

If IsNull(Me.Combo12) Then Exit Sub
tyu = Combo12.Value
mysql = " SELECT 清单.日期, 清单.凭证号, 清单.摘要, 清单.总账科目, 清单.明细科目, 清单.借方金额, 清单.贷方金额" & _
        " INTO   " & Me.Combo12.Value & _
        " FROM   清单" & _
        " WHERE  总账科目 ='" & Combo12.Value & "'"
CurrentDb.Execute mysql
MsgBox "表 '" & Me.Combo12 & "' 已生成。", vbInformation

End Sub