実行時エラー '3346'：クエリ値の数と宛先フィールドが同じではありません

Question

Private Sub Command1_Click() 
    Dim strSQL As String 

    strSQL = "INSERT INTO PurchaseOrderDetails ([Supplier], [Item], [Quantity], [Cost/EA], [Total]) SELECT(" & "Me.OrderSelection_subform![Supplier]" & "." & "Me.OrderSelection_subform![Item]" & "." & "Me.OrderSelection_subform![Quantity]" & "." & "Me.OrderSelection_subform![Cost/EA]" & "." & "Me.OrderSelection_subform![Total]" & ");" 

    DoCmd.RunSQL (strSQL) 

End Sub 

Answer 1

SELECTステートメントは、列を区切るためにピリオドを使用しています。コンマを使用してみてください。

から：

& "." & "Me.OrderSelection_subform![Item]" & "." 

へ：

& "," & "Me.OrderSelection_subform![Item]" & "," 

コンプリート：

strSQL = "INSERT INTO PurchaseOrderDetails ([Supplier], [Item], [Quantity], [Cost/EA], [Total]) SELECT(" & "Me.OrderSelection_subform![Supplier]" & "," & "Me.OrderSelection_subform![Item]" & ", " & "Me.OrderSelection_subform![Quantity]" & "," & "Me.OrderSelection_subform![Cost/EA]" & "," & "Me.OrderSelection_subform![Total]" & ");"  
DoCmd.RunSQL (strSQL)