vba - 将 Access 表单中的 DefaultValue 设置为表的最后一条记录

Question

我有一个带有名为 Box1 的文本框的 Access 表单。

在此文本框中，我希望将表Products中最后一个产品的名称作为默认值。

我的表产品具有以下字段：P_ID和P_Name。

我在 VBA 中以如下形式编码：

Me!Box1.DefaultValue = DLookup("P_Name", "Products", "P_ID = DMax("P_ID", "Products")")

但是，我的代码中有一个错误，因为文本框显示#Name。

Answer 1

DefaultValue属性是一个字符串，因此需要引号：

Me!Box1.DefaultValue = "'" & DLookup("P_Name", "Products", "P_ID = " & DMax("P_ID", "Products") & "") & "'"