尝试将值插入到Access数据库中的操作无效

Question

我在下面有这段代码，当我尝试运行它时，它在代码的最后一行上显示错误消息“Invalid Operation”，并崩溃。所有的语法看起来都正确。我究竟做错了什么？所以你不应该使用.OpenRecordset运行它

PCycle = PreviousCycle(CurrentCycle(Me.cobMainType.Value), mainType(Me.cobMainType.Value)) 

SQL = "INSERT INTO tblVehMainType (MainID, PartID, VehTypeID)" 
SQL = SQL & " Select " & Me.cobMainType & ", PartID, VehTypeID" 
SQL = SQL & " From tblVehMainType " 
SQL = SQL & " WHERE vehTypeID = " & Me.cobVehType & " AND MainID = " & PCycle & ";" 

Set rst = CurrentDb.OpenRecordset(SQL) 

Answer 1

的INSERT语句不返回记录集。您应该改用.Execute。