Получить текущую цену продукта

Question

Добрый день всем, мне нужна помощь с выражением лица.Я пытаюсь поместить его в текстовое поле в моей форме.Когда выбран Продукт (sUPC), самая последняя цена автоматически заполняется на основе текущей даты.У меня есть таблица цен (цены), в которой хранится текущая цена продукта.EFFDATE - дата применения цены.UPC - это ProductID в таблице цен, а sUPC - это поле со списком в моей форме.

    DLookUp("Price","Prices","sUPC=UPC" And
    Format(Now(),"dd/mm/yyyy")=DMax("[EFFDATE]","Prices",
   "[EFFDATE]<=#" & Format(Now(),"dd/mm/yyyy") & "#"))

После выбора товара текстовое поле остается пустым.

Answer 1

DLookUp("[Price]","[Prices]","sUPC =UPC And [EFFDATE] = DMax('[EFFDATE]', '[Prices]', 'sUPC=UPC And [EFFDATE] <= #' & Format(Date(), 'dd\/mm\/yyyy') & '#')") sUPC = UPC отсутствовал в критериях EFFDATE -

Answer 2

Вы делаете это слишком сложным:

DLookUp("[Price]", "[Prices]", "sUPC = 'UPC' And [EFFDATE] = DMax('[EFFDATE]', '[Prices]', '[EFFDATE] <= Date()')")

Для конкретной даты:

DLookUp("[Price]", "[Prices]", "sUPC = 'UPC' And [EFFDATE] = #" & Format(SomeOtherDateValue, "yyyy\/mm\/dd") & "#")

или их комбинация:

DLookUp("[Price]", "[Prices]", "sUPC = 'UPC' And [EFFDATE] = DMax('[EFFDATE]', '[Prices]', '[EFFDATE] <= #' & Format(SomeOtherDateValue, 'yyyy\/mm\/dd') & '#')")