使用concatenate将两个不同表中的值插入另一个不同表中

Question

我有一个按钮，它使用两个单独的查询从两个表中提取数据并插入到另一个表中：

Dim lngID As Long
Dim lngIDCallout As Long
Dim strSQL1 As String

lngID = CalloutAttendance_MultiSelect.Value
lngIDCallout = Forms![Callouts].[CalloutID].Value

strSQL1 = "INSERT INTO Members_Callouts(MemberID) SELECT MemberID FROM Members WHERE MemberID=" & lngID    
strSQL2 = "INSERT INTO Members_Callouts(CalloutID) SELECT CalloutID FROM Callouts WHERE CalloutID=" & lngIDCallout

CurrentDb.Execute strSQL1
CurrentDb.Execute strSQL2
CalloutAttendance_MultiSelect.Requery

虽然它几乎做了我希望它做的事情，但它将这两个值作为两个单独的新记录插入，而我希望它将其插入到一个新记录中。我已经尝试过了，但是我得到了语法错误，或者在下面的例子中，我得到了一个3067运行时错误"Query input必须包含至少一个表或查询“

strSQL1 = "INSERT INTO Members_Callouts(MemberID, CalloutID) SELECT
          (SELECT MemberID FROM Members WHERE MemberID=" & lngID & "),
          (SELECT CalloutID FROM Callouts WHERE CalloutID=" & lngIDCallout & ")"

有人知道我可能会错在哪里吗？

谢谢:-)

Answer 1

在本例中，您只需插入键值，因此您所需要做的就是

strSQL1 = _
        "INSERT INTO Members_Callouts (MemberID, CalloutID) " & _
            "VALUES (" & lngID & ", " & lngIDCallout & ")"

换句话说，你不需要为像这样的事情烦恼。

"(SELECT MemberID FROM Members WHERE MemberID=" & lngID & ")"

它返回的值仅为lngId (假设该值存在于Members表中)。

Answer 2

INSERT INTO
  MyTable (Col1,Col2,Col3,Col4,Col5,Col6,Col7)
SELECT
  f1.col1, f2.col2, f3.col3, f3.col4, f3.col5, f4.col6, f5.col7
FROM
  (SELECT Col1 FROM Func1())           AS f1
CROSS JOIN
  (SELECT Col2 FROM Func2())           AS f2
CROSS JOIN
  (SELECT Col3,Col4,Col5 FROM Func3()) AS f3
CROSS JOIN
  (SELECT Col6 FROM Func4())           AS f4
CROSS JOIN

(从Func5()中选择Col7 )作为f5