Office中国论坛/Access中国论坛

标题: [已解决]参速不足,期待是1 ...出错 [打印本页]

作者: g7235723 时间: 2009-4-7 15:08
标题: [已解决]参速不足,期待是1 ...出错
本帖最后由 g7235723 于 2009-4-8 09:22 编辑

Sub Command9_Click()
On Error GoTo Err_Command9_Click

Dim tablename As String
Dim lable As String
tablename = Me.Combo0 & "工艺"
lable = Me.Combo0

SQL = " Create Table " & tablename & "(ID Counter,Name string,Des string,[Date] DateTime)"
CurrentDb.Execute SQL

SQL = "INSERT INTO " & tablename & " ( Name, Des ) SELECT 项目.工令, 工艺表.品名 FROM 工艺表, 项目 WHERE 工令 = lable ;"
CurrentDb.Execute SQL

Exit_Command9_Click:
Exit Sub
Err_Command9_Click:
MsgBox Err.Description
Resume Exit_Command9_Click
End Sub

第二句SQL执行老是出错"参数不足,期待是1"
请帮忙看看是哪里的问题.

作者: andymark 时间: 2009-4-7 15:21
Name 为ACCESS关键字,尽量少用
把NAME改成别的,或加[]来识别

作者: g7235723 时间: 2009-4-7 15:24
改了,但好象没有用....

作者: andymark 时间: 2009-4-7 18:12
lable 这里不对 lable 是一个变量
WHERE 工令 = '" & lable & "'

作者: g7235723 时间: 2009-4-7 18:35
谢谢andymark..

,
改正了.

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)