时间戳

首页 > 解决方案 > 为搜索表单运行 SQL 查询时出现运行时错误 3075

vba - 为搜索表单运行 SQL 查询时出现运行时错误 3075

问题描述

我正在尝试编写文本框搜索系统，但出现运行时错误 3075。

表单的记录源是我使用的查询中的 SQL 语句。相同的 SQL 语句在下面的代码中，我添加了WHERE和OR.

Private Sub btnSearch_Click()
Dim SQL As String

SQL = "SELECT Products.ProdID, categories.CatName, Makes.MakeName, Products.ProdModel, Products.ProdDesc, Suppliers.SuppName, ProdType.TypeName, Colours.ColName, Size.SizeName, Products.DateAdded, Products.ProdBarcode" _
     & "FROM Suppliers RIGHT JOIN (categories RIGHT JOIN (ProdType RIGHT JOIN (Makes RIGHT JOIN ((Colours RIGHT JOIN Products ON Colours.ColourID = Products.ColourID) LEFT JOIN [Size] ON Products.SizeID = Size.SizeID) ON Makes.MakeID = Products.ProdMake) ON ProdType.TypeID = Products.ProdTypeID) ON categories.CatID = Products.ProdCategory) ON Suppliers.SuppID = Products.SupplierID" _
     & "WHERE (((Products.ProdModel) Like '*" & Me.txtSearch & "*'))" _
     & "Or (((Products.ProdBarcode) Like '*" & Me.txtSearch & "*'))" _
     & "ORDER BY categories.CatName;"

 Me.Form.RecordSource = SQL
End Sub

如果有人能指出我做错了什么的正确方向，将不胜感激。

标签： vbams-access

解决方案

推荐阅读