请教各位高手(zz)

ZZBZZBZZZB

请教各位高手:想用SQL视图做这样一个生成表查询:生成的表的名称是从窗体组合框取到的参数,如选中组合框中的"现金",则生成表"现金", 如选中组合框中的"银行存款"财生成表"银行存款" 应怎做?

todaynew

在sql视图中好像不行吧？似乎用vb可以解决。可考虑生成“临时表”，然后在vb中执行：
CurrentDb.Execute "ALTER TABLE '临时表' RENAME '" & me.账户名称.value & "'"

ZZBZZBZZZB

多谢了!

ZZBZZBZZZB

Dim cnnmx As ADODB.Connection
Dim rsmx As ADODB.Recordset
Dim mxkm(500) As String, i As Integer, mysql As String, aq As String
    Set rsmx = New ADODB.Recordset
    mysql = "select  科目编码,总帐科目, 明细科目 into  aq   from 明细科目表  where  总帐科目 ='" & Combo12.Value & "'"
    rsmx.Open mysql, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
    CurrentDb.Execute "ALTER TABLE 'aq' RENAME '" & Combo12.Value & "'"

End Sub

提示这个有语法错误:CurrentDb.Execute "ALTER TABLE 'aq' RENAME '" & Combo12.Value & "'"
大哥,应如何做??请大哥帮助???多谢!!!

ZZBZZBZZZB

问题解决!!代码如下:
Dim cnnmx As ADODB.Connection
Dim rsmx As ADODB.Recordset
Dim mxkm(500) As String, i As Integer, 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"
     '以下略