问题难解,是否与表的属性有关?????

ZZBZZBZZZB

Private Sub Command21_Click()
Dim cnnmx As ADODB.Connection
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 Command21_Click()
Dim cnnmx As ADODB.Connection
Dim asas As String
Dim rsmx As ADODB.Recordset
Dim mxkm(500) As String, i As Integer, mysql As String, aq As String
Dim tyu产 As String
tyu产 = Combo22.Value
    Set rsmx = New ADODB.Recordset
     Set cnnmx = New ADODB.Connection
   
    mysql = "select 日期 ,凭证编号,摘要,总帐科目,明细科目,借方金额,贷方金额 into  aq   from 清单的  where  总帐科目 ='" & Combo22.Value & "'"
  

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

koutx

Dim cnnmx As ADODB.Connection
Set cnnmx = New ADODB.Connection
以上两行不知起什么作用？

Dim asas As String
Dim mxkm(500) As String, i As Integer          ‘声明此三个变量干什么？

声明了aq字符串变量却不赋值，此变量aq与表aq是什么关系？

mysql = "select 日期 ,                     ，号前不应有空格

from 清单的                                      难道这是你的表名？

再有：rsmx用完后应关闭掉。

ZZBZZBZZZB

清单的  是表名,测试用的

ZZBZZBZZZB

Dim asas As String
Dim mxkm(500) As String, i As Integer   

这是为后面的程序服务的

ZZBZZBZZZB

aq是表名,过渡用的

ly

1# ZZBZZBZZZB

请问：表"清单的"中的[总帐科目]字段与表"总帐科目表"中的[总帐科目]字段是否都为文本属性？

koutx

mysql = "select 日期 ,凭证编号,摘要,总帐科目,明细科目,借方金额,贷方金额 into  aq   from 清单的  where  总帐科目 ='" & Combo22.Value & "'"
我在2楼所列三条红色问题中,你未回答的上面这句,就是错误所在。

nxjswt

表的命名一定要正规。测试也是一样如 tblBiao