2017-02-22 3 views
-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"

誰もがこの問題を解決する上で私を助けることができますか?

+0

SET –

+1

で行を削除するVBAとSQLが混在しています。これはどんなコードですか? VBAは、コンパイルされた構文の問題で赤いハイライトを表示するので、SQLのみを期待するクエリウィンドウに配置したと思っています。リテラルの回りに改行や引用符が表示されないためです。 – Parfait

+0

私の質問を見ていただきありがとうございます!はい、私はSQLのウィンドウに入れて、私は実際にはVBAでの経験を持っていないので、SQLの結果を得ることを期待... – Ying

答えて

0

行をSELECT * FROM(に置き換えて、最後に)を追加すると、このトリックを行うことができます。

しかし、これはクエリが正確にはうまく形成されていないように見えるので、迅速かつ汚れた解決策を目指しています。

関連する問題