求助！ 报错： "." "!" "()" 的非法使用 ？？

紫风

今天新做了个主-子窗体，出现了个怪问题：

主窗体：未绑定窗体，子窗体源：tbl配件清单temp
主窗体里有字段 维修id 和 Cmd查询。
意图：
输入 维修id，点击查询，子窗体刷新后只显示该维修id的配件清单记录。
我的代码（红色字体就是系统提示报错的部分）：
Private Sub Cmd查询_Click()
    Dim Stemp As String
    Dim rs As New ADODB.Recordset
   
    Stemp = "SELECT [tbl维修].* FROM [tbl维修] WHERE 维修ID LIKE '" & Me.维修ID & "'"
    rs.Open Stemp, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
        With rs
            Me.维修ID = ![维修ID]
            Me.日期 = ![日期]
            Me.维修类型 = ![维修类型]            
        End With
    rs.Close
    Set rs = Nothing
   
    DoCmd.SetWarnings False
    DoCmd.RunSQL " Insert Into tbl配件清单temp Select tbl配件清单.* Where 维修id Like ' " & 维修ID & " ' "
    DoCmd.SetWarnings True
    Me.frm配件清单child.Form.Refresh
   
End Sub

我之前做的也是这样，怎么就没这个报错呢？我把另外一个不报错的窗体代码看了过百次了，还是没发现区别……
各位兄弟姐妹帮看一下问题出在哪里了呀？？？？拜谢！！！！

tz-chf

select不用from啊？

yehf

Function InsertSQL(TargetTbl As String, SourceTbl As String, WhereCondition As String)
    Dim tbl    As DAO.TableDef
    Dim str    As String
    Dim i      As Byte
    Set tbl = CurrentDb.TableDefs(TargetTbl)
    For i = 0 To tbl.Fields.Count - 1
        str = str & tbl.Fields(i).Name & ","
    Next
    str = Left(str, Len(str) - 1)
    str = "INSERT INTO " & TargetTbl & "(" & str & " ) SELECT " & str & " FROM " & SourceTbl & WhereCondition
    DoCmd.RunSQL str
End Function

Call InsertSQL("tbl配件清单temp", "tbl配件清单", "WHERE 维修ID=" & Me.维修id)

循环目标表字段,可以保证不会出现字段不匹配情况,而且以后增减字段,也不用从写代码

紫风

谢谢楼上！！！{:soso_e113:}

紫风

回楼上，我有试过用FROM，但是由于以下原因，所以就不用FROM了：
数据库里有2个表：
1. tbl配件清单
2. tbl配件清单temp
从表名上就能看出来tbl配件清单temp是做给tbl配件清单的临时表，但是temp表比原表少一个字段"ID"，所以当我用from时系统报错提示：insert into 包含以下未知字段语句："id"。
这样，我把库上传上来，麻烦帮我看一下如何解决好么？谢谢！
问题就在frm维修的Cmd查询里。

yehf

"INSERT INTO tbl配件清单temp ( 维修ID, 配件ID, 配件名称, 单位, 规格, 供应商, 生产厂家, 生产日期, 产地, 单价, 数量, 金额 )
SELECT 维修ID, 配件ID, 配件名称, 单位, 规格, 供应商, 生产厂家, 生产日期, 产地, 单价, 数量, 金额
FROM tbl配件清单
WHERE 维修ID=" & me.维修id

tz-chf

你那样的我没写过，我都写全的。
insert into 那个表 (字段1, 字段2,....) select 字段1, 字段2,.... from 这个表 where......

紫风

感谢楼上两位的帮助！问题解决了！就是因为temp表里少了个ID字段的问题，所以要一个个字段来！