访问运行时错误2465。找不到表达式中引用的字段“ 1”

Question

I need help with this code.

Option Compare Database
Option Explicit


Private Sub BTNSEARCHOnetoOne_Click()
    Dim SQL As String

    SQL = "SELECT [00_SheetList-Revit-UNION].PACKAGE, [00_SheetList-Revit-UNION].DRAWING, [00_SheetList-Revit-UNION].DISCIPLINE, Hillsboro_OR_xlsx.FileName_Hillsboro_OR, Hillsboro_OR_xlsx.FilePath_Hillsboro_OR FROM Hillsboro_OR_xlsx, WHERE(([00_SheetList-Revit-UNION].PACKAGE) Like '" & Me.TXTKeywordsPackage & "') AND ((Hillsboro_OR_xlsx.FileName_Hillsboro_OR) Like ('*" & ([00_SheetList-Revit-UNION].DRAWING) & "*')"

    Me.SubONEtoONEInsideJoin.Form.RecordSource = SQL
    Me.SubONEtoONEInsideJoin.Form.Requery
    Me.SubONEtoONENullJoin.Form.Requery

End Sub

Private Sub Detail_Click()

End Sub

I narrowed it down to this part of the code.

"...((Hillsboro_OR_xlsx.FileName_Hillsboro_OR) Like ('*" & ([00_SheetList-Revit-UNION].DRAWING) & "*')"

As I can take this part out and it works. Is this just syntax?

Answer 1

It looks like that you had something wrong here

you have written

Like '" & Me.TXTKeywordsPackage & "'

but it has to be like this

Like '*" & Me.TXTKeywordsPackage & "*'

you had this part wrong

check this below part

Like ('*" & ([00_SheetList-Revit-UNION].DRAWING) & "*')

Make sure that you are getting the value from textbox. It looks like you are calling table column.

Answer 2

Carefully count your parenthesis.

There should be an additional ) at the very end.

Answer 3

Currently, your SQL has a number of syntax issues:

1. Comma before WHERE clause;
2. Unclosed parentheses in last WHERE condition;
3. Unknown alias ( [00_SheetList-Revit-UNION] ) not referenced in FROM or JOIN clauses. Possibly you meant to cross join this source with Hillsboro_OR_xlsx .

See issues with current code with line breaks for illustration:

SQL = "SELECT [00_SheetList-Revit-UNION].PACKAGE," _
       & "    [00_SheetList-Revit-UNION].DRAWING," _
       & "    [00_SheetList-Revit-UNION].DISCIPLINE," _
       & "    Hillsboro_OR_xlsx.FileName_Hillsboro_OR, " _
       & "    Hillsboro_OR_xlsx.FilePath_Hillsboro_OR " _
       & " FROM Hillsboro_OR_xlsx, " _
       & " WHERE(([00_SheetList-Revit-UNION].PACKAGE) " _
       & "        Like '" & Me.TXTKeywordsPackage & "') " _
       & "   AND " _
       & "      ((Hillsboro_OR_xlsx.FileName_Hillsboro_OR) " _
       & "        Like ('*" & ([00_SheetList-Revit-UNION].DRAWING) & "*')"

These issues can be mitigated with parameterized queries (an industry best practice when writing SQL in application code) which is supported in MS Access using QueryDef Parameters . Below are a few advantages and further below adjustment to your setup.

• Saving a stored query instead of a VBA string query allows it is to be optimized by engine and the Access GUI will not allow query to be saved with syntax issues;
• Abstract data from code, specifically VBA variables from SQL statement;
• Readability and maintainability is enhanced.

---

SQL (with no VBA)

Save below as a stored Access query, using parameters and table aliases. Also, [00_SheetList-Revit-UNION] is cross joined (comma-separated in FROM clause) as assumed above.

PARAMETERS [PackageParam] Text;
SELECT o.PACKAGE, o.DRAWING, o.DISCIPLINE, 
       h.FileName_Hillsboro_OR, h.FilePath_Hillsboro_OR 
FROM Hillsboro_OR_xlsx h, [00_SheetList-Revit-UNION] o    
WHERE ((o.PACKAGE) Like [PackageParam]) 
  AND ((h.FileName_Hillsboro_OR) Like '*' & o.DRAWING & '*');

VBA

Private Sub BTNSEARCHOnetoOne_Click()
    Dim qDef As QueryDef
    Dim rst As Recordset

    ' OPEN SAVED QUERY
    Set qDef = CurrentDb.QueryDefs("mySavedQuery")
    ' BIND PARAMETERS
    qDef![PackageParam] = "*" & Me.TXTKeywordsPackage & "*"

    ' BUILD RECORDSET FROM QUERYDEF AND SET TO SUBFORM
    Set rst = qDef.OpenRecordset()        
    Me.SubONEtoONEInsideJoin.Form.Recordset = rst
    Me.SubONEtoONENullJoin.Form.Requery

    Set qDef = Nothing
End Sub