VBAアクセスでこのSQL文の構文に何が問題になっていますか？

Question

以下のコードは、Access VBAで構文エラーを返します。この同じコードを正常に機能したクエリ設計で使用していました。私は、SQLコードがクエリデザインモードとVBAクエリとで異なる場合があることを理解していますが、このコードをAccess VBAでエラーなく実行する方法を特定できません。

SELECT TOP 1 
    MAX(CurrentWeek.WeekEnding) AS MaxOfWeekEnding, 
    CurrentWeek.NWA, CurrentWeek.[NWA Description], CurrentWeek.Plan 
FROM 
    CurrentWeek 
INNER JOIN 
    (tblNWABasic 
INNER JOIN 
    tblProjects ON tblNWABasic.ProjectID = tblProjects.ProjectID) ON CurrentWeek.NWA = tblNWABasic.NWA 
GROUP BY 
    CurrentWeek.NWA, CurrentWeek.[NWA Description], CurrentWeek.Plan 
HAVING 
    (((CurrentWeek.[NWA Description]) Like "*direct cite*")) 
ORDER BY 
    MAX(CurrentWeek.WeekEnding) DESC; 

Answer 1

ダイレクトサイト部分には角括弧がありませんでした。修正されたコードの一部を以下に示します：

Like " * [direct cite] * ")) 

上記のコードでは、働いてきたはずですが、実際に終わった何だったのワーキング：

Like ' *[direct cite]* ')) 

Answer 2

あなたのコードは、二重引用符"ないblockquotes “ “で囲む必要があります。あなたはまた、例えば""*direct cite*""に"*direct cite*"を変更する（クエリでそれらを倍にすることによって、すべての二重引用符をエスケープする必要があります。

SELECT TOP 1 Max(CurrentWeek.WeekEnding) AS MaxOfWeekEnding, CurrentWeek.NWA, CurrentWeek.[NWA Description], CurrentWeek.Plan FROM CurrentWeek INNER JOIN (tblNWABasic INNER JOIN tblProjects ON tblNWABasic.ProjectID = tblProjects.ProjectID) ON CurrentWeek.NWA = tblNWABasic.NWA GROUP BY CurrentWeek.NWA, CurrentWeek.[NWA Description], CurrentWeek.Plan HAVING (((CurrentWeek.[NWA Description]) Like ""*direct cite*"")) ORDER BY Max(CurrentWeek.WeekEnding) DESC; 

---

このサブルーチンは、引用符をエスケープするプロセスを簡素化します。単純に文字列をコピーしますWindowsのクリップボードには、EscapeDoubleQuotesInClipboardを実行し、あなたのコードに新しい文字列を貼り付けます。

Sub EscapeDoubleQuotesInClipboard() 
    With CreateObject("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}") 
     .GetFromClipboard 
     .SetText Replace(.GetText, Chr(34), Chr(34) & Chr(34)) 
     .PutInClipboard 
    End With 
End Sub