アクセスVBA：SQLクエリで変数と文字列を組み合わせることはできません

Question

ユーザーのリスト（文字列変数として）を使用して、SQLで最初のアイテムのコードを選択する基準（一度に1人のユーザー）として使用します。だから私はコードで後で実行するための文字列としてSQLクエリを配置します。例えばstrUserName = "A-ユーザーは"、私は、このSQL文字列を取得する場合、 "...クイック・ウォッチ" によると、

strSQL = "SELECT TOP 1 Item.Code FROM Item WHERE Item.User = '" 
strSQL = strSQL & strUserName & "' ORDER BY ID DESC" 

：

私はこれを試してみた

SELECT TOP 1 Item.Code FROM Item WHERE Item.User = 'A-user 

"' ORDER BY ID DESC"の部分は、SQL文字列にまったく含まれていません！

そして"Set rst = CurrentDb.OpenRecordset(strSQL)"を使用して、SQLクエリを実行するために、私はこのエラーを取得する：

Run-time error '3075': Syntax error (missing operator) in query expression 'Item.User = "A-user"

は、私はそれをどのように修正することができますか？

Answer 1

私はあなたのコードは、その3075エラーをトリガーする方法を見ていないしかし、私は代わりにパラメータクエリを使用すること。方法あなたのSQL文で引用された値を使用して問題を回避することができます。

Dim qdf As DAO.QueryDef 
Dim rs As DAO.Recordset 
Dim strSelect As String 
Dim strUserName As String 

strUserName = "A-user" 
strSelect = "SELECT TOP 1 i.Code FROM [Item] AS i WHERE i.User = [which_user] ORDER BY i.ID DESC" 
Set qdf = CurrentDb.CreateQueryDef(vbNullString, strSelect) 
qdf.Parameters("which_user").Value = strUserName 
Set rs = qdf.OpenRecordset 

Answer 2

アクセスは、一重引用符の使用について不満を抱くことがあります。また、ステートメントの末尾にセミコロンを追加します。二重引用符は、余分な二重引用符でエスケープされている場合（これにコードを変更してみてください：

strSQL = "SELECT TOP 1 Item.Code FROM Item WHERE Item.User = " 
strSQL = strSQL & """" & strUserName & """" & " ORDER BY ID DESC;"