訪問vba錯誤3075語法

Question

我試圖找到類似帖子中的答案，但我找不到需要放置額外語法或刪除的地方。

，如果我把它放在一個列表框記錄在屬性窗口，在其自己的作品查詢：

SELECT Overzicht_codes.code_compleet AS Code, Overzicht_codes.omschrijving1, Overzicht_codes.omschrijving2, Overzicht_codes.omschrijving3, Overzicht_codes.omschrijving4, Overzicht_codes.omschrijving5, Overzicht_codes.omschrijving6 
FROM Overzicht_codes 
WHERE (((Nz([opleidingniveau]=[Forms]![OverzichtOpleidingen].[cbOpleiding],[opleidingniveau]))<>False) 
AND ((Nz([subniveau]=[Forms]![OverzichtOpleidingen].[cbopleidingniveau],[subniveau]<>False))<>False) 
AND ((Nz([studiegroep]=[Forms]![OverzichtOpleidingen].[cbstudiegroep],[studiegroep]<>False))<>False) 
AND ((Nz([studierichting]=[Forms]![OverzichtOpleidingen].[cbstudierichting],[studierichting]<>False))<>False)) 
ORDER BY Overzicht_codes.code_compleet; 

現在我想在VBA相同的代碼作爲一種「復位」。對於VBA它需要一些改變：

SQL = "SELECT Overzicht_codes.code_compleet AS Code, Overzicht_codes.omschrijving1, Overzicht_codes.omschrijving2, Overzicht_codes.omschrijving3, Overzicht_codes.omschrijving4, Overzicht_codes.omschrijving5, Overzicht_codes.omschrijving6 " _ 
    & "FROM Overzicht_codes " _ 
    & "WHERE (((Nz([opleidingniveau]= " & Me.cbOpleiding & ",Overzicht_codes.[opleidingniveau]))<>False) " _ 
    & "AND ((Nz([subniveau]= " & Me.cbOpleidingNiveau & ",Overzicht_codes.[subniveau]<>False))<>False) " _ 
    & "AND ((Nz([studiegroep]= " & Me.cbStudiegroep & ",Overzicht_codes.[studiegroep]<>False))<>False) " _ 
    & "AND ((Nz([studierichting]= " & Me.cbStudierichting & ",Overzicht_codes.[studierichting]<>False))<>False)) " _ 
    & "ORDER BY Overzicht_codes.[code_compleet]" 

我讀過一些有關加上額外的'的代碼串部分。但經過多次嘗試後仍然出現錯誤。

對於一個額外的見解錯誤消息是以下：

誰能幫我給Insight在我做錯了什麼還是什麼我忘了嗎？

Answer 1

考慮一個參數化的查詢，它避免了任何需要報價附件。隨着DAO，你跟Parameters收集指定的佔位符名稱和數據類型，並先於通常的SQL命令這樣做（即SELECT，UPDATE，INSERT，DELETE，ALTER）：

' PREPARED STATEMENT WITH PLACEHOLDERS 
strSQL = "PARAMETERS [cbOpleiding_param] TEXT, [cbopleidingniveau_param] TEXT," _ 
     & "   [cbstudiegroep_param] TEXT, [cbstudierichting_param] TEXT;" _ 
     & "SELECT Overzicht_codes.code_compleet AS Code, Overzicht_codes.omschrijving1," _ 
     & "  Overzicht_codes.omschrijving2, Overzicht_codes.omschrijving3," _ 
     & "  Overzicht_codes.omschrijving4, Overzicht_codes.omschrijving5," _ 
     & "  Overzicht_codes.omschrijving6 " _ 
     & "FROM Overzicht_codes " _ 
     & "WHERE (((Nz([opleidingniveau]= [cbOpleiding_param], Overzicht_codes.[opleidingniveau]))<>False) " _ 
     & "AND ((Nz([subniveau]= [cbopleidingniveau_param], Overzicht_codes.[subniveau]<>False))<>False) " _ 
     & "AND ((Nz([studiegroep]= [cbstudiegroep_param], Overzicht_codes.[studiegroep]<>False))<>False) " _ 
     & "AND ((Nz([studierichting]= [cbstudierichting_param], Overzicht_codes.[studierichting]<>False))<>False)) " _ 
     & "ORDER BY Overzicht_codes.[code_compleet];" 

Set db = CurrentDb 
Set qdf = db.CreateQueryDef("", strSQL) 

' BIND VALUES TO PARAMETERS 
qdf.Parameters("cbOpleiding_param") = Me.cbOpleiding 
qdf.Parameters("cbopleidingniveau_param") = Me.cbOpleidingNiveau 
qdf.Parameters("cbstudiegroep_param") = Me.cbStudiegroep 
qdf.Parameters("cbstudierichting_param") = Me.cbStudierichting 

Set rst = qdf.OpenRecordset() 
... 

事實上，上述準備的語句可以綁定參數值作爲PARAMETERS條款被保存爲一個存儲查詢，然後就被稱爲按名稱訪問SQL完全符合：

Set db = CurrentDb 
Set qdf = db.QueryDefs("SavedQueryName") 

' BIND VALUES TO PARAMETERS 
qdf.Parameters("cbOpleiding_param") = Me.cbOpleiding 
qdf.Parameters("cbopleidingniveau_param") = Me.cbOpleidingNiveau 
qdf.Parameters("cbstudiegroep_param") = Me.cbStudiegroep 
qdf.Parameters("cbstudierichting_param") = Me.cbStudierichting 

Set rst = qdf.OpenRecordset() 

Answer 2

我已經解決它以另一種方式：

Dim db As dao.Database 
Dim rst As dao.Recordset 
Dim qdf As dao.QueryDef 
Dim SQL As String 

SQL = "SELECT code_compleet as Code, omschrijving1, omschrijving2, omschrijving3, omschrijving4, omschrijving5, omschrijving6 " _ 
    & "FROM Overzicht_codes " _ 
    & "WHERE omschrijving1 LIKE '*" & Me.tbOmschrijving & "*' " _ 
    & " OR omschrijving2 LIKE '*" & Me.tbOmschrijving & "*' " _ 
    & " OR omschrijving3 LIKE '*" & Me.tbOmschrijving & "*' " _ 
    & " OR omschrijving4 LIKE '*" & Me.tbOmschrijving & "*' " _ 
    & " OR omschrijving5 LIKE '*" & Me.tbOmschrijving & "*' " _ 
    & " OR omschrijving6 LIKE '*" & Me.tbOmschrijving & "*' " _ 
    & " OR code_compleet LIKE '*" & Me.tbOmschrijving & "*' " _ 
    & "ORDER BY [code_compleet] " 

Set db = CurrentDb 
Set qdf = CurrentDb.CreateQueryDef("", SQL) 

Set rst = qdf.OpenRecordset() 

Set Me.lbOpleidingOverzicht.Recordset = rst 
Me.lbOpleidingOverzicht.Requery 

Set qdf = Nothing 
Call EmptyRecords 

正如你可以看到我擺脫了不同的過濾器，並只提供一個過濾器，看起來整個查詢/表。

感謝大家與我思考，並給我洞察如何解決不同過濾器的問題。