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

您使它变得太复杂了：

"HELL"

在特定日期：

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

或这些的组合：

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

Answer 2

DLookUp("[Price]","[Prices]","sUPC =UPC And [EFFDATE] = DMax('[EFFDATE]', '[Prices]', 'sUPC=UPC And [EFFDATE] <= #' & Format(Date(), 'dd\/mm\/yyyy') & '#')") sUPC = EFFDATE标准中缺少UPC –

获取产品的当前价格

2 个答案: