Zugriff auf VBA: Variable und Zeichenfolge in SQL-Abfrage kann nicht kombiniert werden

Question

Ich habe eine Liste von Benutzern (als String-Variable) und möchte sie als Kriterium verwenden (ein Benutzer nach dem anderen), damit mein SQL den Code des ersten Elements auswählt. Daher habe ich eine SQL-Abfrage als Zeichenfolge eingefügt, um sie später im Code auszuführen.

Ich habe dies versucht:

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

Wenn die strUserName = "A-Benutzer" zum Beispiel, ich dieses SQL-Zeichenfolge nur erhalten, nach "Schnell Uhr ...":

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

Der Teil mit "' ORDER BY ID DESC" ist überhaupt nicht im SQL-String enthalten!

Und durch die Verwendung "Set rst = CurrentDb.OpenRecordset(strSQL)" die SQL-Abfrage ausgeführt wird, bekomme ich diesen Fehler:

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

Wie kann ich das Problem lösen?

Answer 1

Ich sehe nicht, wie Sie den Code auslöst, dass 3075 Fehler Allerdings würde ich stattdessen eine Parameter-Abfrage verwenden, die so können Sie Probleme mit angegebenen Werten in der SQL-Anweisung vermeiden.

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

Access beschwert sich manchmal über die Verwendung von einfachen Anführungszeichen. Und fügen Sie am Ende der Anweisung ein Semikolon hinzu. Versuchen Sie, den Code zu diesem (wo doppelte Anführungszeichen sind mit einem zusätzlichen doppelten Anführungszeichen entronnen..

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