Я пытаюсь закодировать систему поиска в текстовом поле, но получаю ошибку времени выполнения 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
Если кто-то может указать мне правильное направление относительно того, что я делаю неправильно, будет принята с благодарностью.