Access 2010 VBA SQL INSERT with multiple SELECT

Question

根据google的说法，下面的代码提示了一种随机/默认错误，这确实导致了问题。(查询输入必须至少包含一个表或查询)

Private Sub ButtonInsertUntergruppe_Click()
Dim sql As String

sql = "INSERT INTO tblArbeitsschritte (Auftrag_FK, Prozesspunkt_FK, Prozesspunkt) " & _
      "VALUES (" & _
                  Forms!frm_GUI!ID_Auftraege & _
                  ", " & _
                  "(SELECT ID_Prozesspunkt " & _
                  "FROM tblProzesspunkt " & _
                  "WHERE Untergruppe_FK = " & _
                  Me.cbUntergruppe.Column(0) & _
                  ") , " & _
                  "(SELECT Prozesspunkt " & _
                  "FROM tblProzesspunkt " & _
                  "WHERE Untergruppe_FK = " & _
                  Me.cbUntergruppe.Column(0) & _
                  "));"

Debug.Print sql
CurrentDb.Execute sql, dbFailOnError

End Sub

这是调试器提供给我的：

 INSERT INTO tblArbeitsschritt
    (
      Auftrag_FK, Prozesspunkt_FK, Prozesspunkt
    ) 
    VALUES 
    (
      1, 

      (SELECT ID_Prozesspunkt 
       FROM tblProzesspunkt 
       WHERE Untergruppe_FK = 1) 
      , 

      (SELECT Prozesspunkt 
       FROM tblProzesspunkt 
       WHERE Untergruppe_FK = 1)
    );

Answer 1

不确定是否支持该语法。就个人而言，我会这样做：

 INSERT INTO tblArbeitsschritt
    (
      Auftrag_FK, Prozesspunkt_FK, Prozesspunkt
    ) 
    SELECT 1, ID_Prozesspunkt, Prozesspunkt 
    FROM tblProzesspunkt 
    WHERE Untergruppe_FK = 1