-1
を "DELETE" 予想:無効なSQL文です。私はMS Accessで、次のコードを持って
Set rs = con.Execute
(SELECT PO_Number, PR_Number, PO_Creator_Number, PO_Creator_Name, PR_Creator_Number, PR_Creator_Name,
(CASE WHEN PO_Creator_Region <> "'IL'"
THEN
((DATEDIFF(dd, PR_Creation_Date, PR_Approval_Date)+1)
-(DATEDIFF(wk, PR_Creation_Date, PR_Approval_Date)*2)
-(CASE WHEN DATENAME(dw, PR_Creation_Date) = "'Sunday'" THEN 1 ELSE 0 END)
-(CASE WHEN DATENAME(dw, PR_Approval_Date) = "'Saturday'" THEN 1 ELSE 0 END)),
ELSE
((DATEDIFF(dd, PR_Creation_Date, PR_Approval_Date)+1)
-(DATEDIFF(wk, PR_Creation_Date, PR_Approval_Date)*2)
-(CASE WHEN DATENAME(dw, PR_Creation_Date) = "'Friday'" THEN 1 ELSE 0 END)
-(CASE WHEN DATENAME(dw, PR_Approval_Date) = "'Saturday'" THEN 1 ELSE 0 END))
END) AS PR_Cycle_Time
FROM PO_PR_INFO_TBL
WHERE PR_Creation_Date ='" & txtnumb & "'",
PR_Approval_Date = '" & txtnumb & "'",
PO_Creation_Date ='" & txtnumb & "'"
GROUP BY PO_Number, PR_Number, PO_Creator_Number, PO_Creator_Name, PR_Creator_Number, PR_Creator_Name)
その後、MS Accessのは、私に
無効なSQL文を言って、エラーメッセージが表示されます。 、 "DELETE"、 "INSERT"、 "PROCEDURE" 予想 は、 "SELECT"、または "UPDATE"
誰もがこの問題を解決する上で私を助けることができますか?
SET –
で行を削除するVBAとSQLが混在しています。これはどんなコードですか? VBAは、コンパイルされた構文の問題で赤いハイライトを表示するので、SQLのみを期待するクエリウィンドウに配置したと思っています。リテラルの回りに改行や引用符が表示されないためです。 – Parfait
私の質問を見ていただきありがとうございます!はい、私はSQLのウィンドウに入れて、私は実際にはVBAでの経験を持っていないので、SQLの結果を得ることを期待... – Ying