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

问题描述

我有一个 Access 表单，其中有一个名为 Box1 的文本框。

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

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

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

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

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

解决方法

DefaultValue 属性是一个字符串，所以需要引号：

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