[已解决]参速不足,期待是1 ...出错

g7235723

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

Name 为ACCESS关键字,尽量少用
把NAME改成别的,或加[]来识别

g7235723

改了,但好象没有用....

andymark

lable 这里不对 lable 是一个变量
WHERE 工令 = '" & lable  & "'

g7235723

谢谢andymark..,
改正了.