Данные не были выбраны для экспорта после того, как я использовал предложение «WHERE» для фильтрации данных в нескольких таблицах и запроса в MS-доступе, используя SQL в VBA - PullRequest
Новая
       19

Данные не были выбраны для экспорта после того, как я использовал предложение «WHERE» для фильтрации данных в нескольких таблицах и запроса в MS-доступе, используя SQL в VBA

0 голосов
/ 27 марта 2020

Я могу получить данные, как правило, из SELECT без предложения WHERE, но после добавления предложения "WHERE" данные для экспорта не выбраны. Я просто хочу сделать одну цитату за раз входной цитатой №.

Вот код: 

SQL = "SELECT Customers.Company, Customers.Person, Customers.Telefone, Customers.[E-Mail], " & _
"Customers.Address, Customers.City, Customers.Postcode, Customers.Province, Customers.[USCI Num], " & _
"Customers.[Short Name], [Quotation Query1].Buyer, [Quotation Query1].[Quotation No], " & _
"[Quotation Query1].[Quotation Date], [Quotation Query1].Revision, " & _
"[Quotation Query1].Article_No, [Quotation Query1].Quantity, [Quotation Query1].Matchcode, " & _
"[Quotation Query1].RMB_price,[Quotation Query1].[Our Reference], Spare_Parts.Description, Spare_Parts.[Weight (kg)] " & _
"FROM Spare_Parts INNER JOIN (Customers INNER JOIN [Quotation Query1] ON Customers.[Short Name] = [Quotation Query1].[Buyer]) ON Spare_Parts.[Article_No] = [Quotation Query1].[Article_No] " & _
"WHERE Str([Quotation Query1].[Quotation No]) = 'MyValue' "
'To select only one quotation with the quotation no. to make the quotation
'It's bug free now but rsl.RecordCount goes to 0
...