下面的却通不过？为何？请高手帮下！！！！！！

ZZBZZBZZZB

Private Sub Command41_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"

'rsmx.Close
End Sub
上面的是好的，

Private Sub Command42_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
本想上传工程,太大,无法上传.奈何!!!!!!!

红尘如烟

Private Sub Command42_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

你的SQL语句都没写对,当然通不过,由于知道的情况不详细,没办法帮你改,建议你先在查询中将SQL语句设计好,然后再复制到代码中再做修改

红尘如烟

Private Sub Command42_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

你的SQL语句都没写对,当然通不过,由于知道的情况不详细,没办法帮你改,建议你先在查询中将SQL语句设计好,然后再复制到代码中再做修改

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 末归类明细.明细科目;