Runtime 3075 Ошибка синтаксиса

Question

Я пытаюсь создать систему заказов в стиле Northwind в доступе 2010 года, но немного менее сложной! Мне нужно, чтобы снизить цену продукта из инвентаря на детали заказа подчиненной, когда продукт выбран из выпадающего списка, так что будучи послушником мой код не работает должным образом ...

Private Sub Product_AfterUpdate() 
Dim PriceX As Currency, UnitX As Currency 
PriceX = DLookup("Unit Price", "ProductInventory", "[ProductInventory].[Product]=" & [Product].Value) 
UnitX = DLookup("Unit", "ProductInventory", "[Product] =" & [Product].Value) 
Unit_Price.Value = PriceX 
Unit.Value = UnitX 
End Sub 

Answer 1

Я подозреваю, полный текст сообщения об ошибке был «Ошибка синтаксиса (отсутствующий оператор) в выражении запроса« Цена единицы »."

Вы ищете значение в поле с именем Цена за штуку. Поскольку имя поля содержит пробел, заключите его в квадратные скобки, чтобы устранить ошибку.

PriceX = DLookup("[Unit Price]", "ProductInventory", "[Product]=" & [Product].Value) 

Если вы получите другую ошибку после того, что один, пожалуйста, дайте нам полный текст сообщения об ошибке и указать, какие строки в коде вызвало ошибку.

Из текущей ошибки, о которой вы сообщили, кажется, что [Product] - это текст вместо числового типа данных. Поэтому добавьте одинарные кавычки вокруг значения в последней части выражения DLookup.

PriceX = DLookup("[Unit Price]", "ProductInventory", "[Product]='" & [Product].Value & "'")