以下のコードを実行すると、このエラーが発生します。
Dim sqlSCIQty As String
Dim sqlSCQty As String
sqlSCIQty = "UPDATE [products/stock] INNER JOIN [Stock Conversion Items] " & _
"ON [products/stock].[Product Code] = [Stock Conversion Items].[Result PC] " & _
"SET [Stock Level] = ([Stock Level] + [Quantity]) " & _
"WHERE [Stock Conversion Items].[CutID] = " & Me.txtPCutID.Value & ";"
sqlSCQty = "UPDATE [products/stock] INNER JOIN [Stock Conversion] " & _
"ON [products/stock].[Product Code] = [Stock Conversion].[Source PC] " & _
"INNER JOIN [Stock Conversion Items] " & _
"ON [Stock Conversion].[SCID] = [Stock Conversion Items].[SCID] " & _
"SET [Stock Level] = ([Stock Level] - [Stock Conversion].[Quantity]) " & _
"WHERE [Stock Conversion Items].[CutID] = " & Me.txtPCutID.Value & ";"
Set db = CurrentDb
db.Execute sqlSCIQty, dbFailOnError
db.Execute sqlSCQty, dbFailOnError
Set db = Nothing
最初のステートメントは正常に機能して実行されることは知っていますが、2番目のステートメントはそのエラーをスローします。私はそのような複雑な更新ステートメントに精通していないので、SQLの知識がある人なら誰でも何かを見つけることができますか?
よろしくお願いします、
ボブP