ms access - Runtime 3075 Error de sintaxis

ms-access access-vba

Question

Estoy tratando de construir un sistema de pedidos en el estilo de Northwind en el acceso 2010, pero un poco menos complicado. Necesito llevar el precio del producto desde el inventario al subformulario de detalles de la orden cuando el producto se selecciona del cuadro combinado, por lo que al ser un novato, mi código no funciona correctamente ...

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

Sospecho que el texto completo del mensaje de error fue "Error de sintaxis (operador faltante) en la expresión de consulta ''Precio unitario''."

Está buscando un valor en un campo llamado Precio unitario . Como el nombre del campo incluye un espacio, enciérrelo entre corchetes para eliminar el error.

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

Si obtiene un error diferente después de ese, por favor, nos da el texto completo del mensaje de error e indique qué línea en su código desencadenó el error.

A partir del error actual que informó, parece que [Product] es texto en lugar de tipo de datos numéricos. Así que agregue comillas simples alrededor del valor en la última parte de la expresión DLookup .

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