设置文本框默认值查询结果答案

【问题标题】：Set Default Value of Text Box to Query Result设置文本框默认值查询结果
【发布时间】：2019-07-09 18:21:30
【问题描述】：

相当简单的问题。我有一个表单中的文本字段，我希望将默认值设置为查询结果。此特定查询返回我在 Access 中设置的小型发票系统的默认税率。

查询 (qrySettingsDefaultTaxRate) 如下所示，并返回一行，其中包含我想以这种形式设置为默认税率的十进制等效税率：

SELECT CDbl([value]) AS default_tax_rate
FROM settings
WHERE (((settings.key_name)="default_tax_rate"));

我尝试将我的文本字段的默认值设置为：

=[qrySettingsDefaultTaxRate]![default_tax_rate]

然而这并没有奏效。当我返回表单视图时，该框会显示“#Name?”作为默认值，而不是返回查询结果。

【问题讨论】：

标签： ms-access-2010

【解决方案1】：

您可以将文本框的控制源设置为DLookup，也可以在代码中将值设置为DLookup。

DlookUp("default_tax_rate","qrySettingsDefaultTaxRate")

或者

DlookUp("default_tax_rate","settings","settings.key_name='default_tax_rate'")

您甚至可以将 DLookUp 放在默认值下的属性表上。

【讨论】：

【解决方案2】：

我遇到了类似的问题。这对我有用 - 我编写了一个函数，它返回我想设置为默认值的值，并在表单的默认值中指定了函数。

我的代码：

Public Function MaxTDate()
    MaxTDate = CurrentDb.OpenRecordset("MaxTDateQry").Fields(0)
End Function

...在字段属性中：

默认值 =MaxTDate()

【讨论】：

【解决方案3】：

即使现在答案被勾选为正确答案，在某些情况下就足够了。

在某些情况下，默认值可能来自表达式、外部文件、用户输入或其他任何计算。

Microsoft Access 抛出#Name 的原因是什么？错误是因为它希望字符串数据用撇号“引用”。同时还说，如果字符串本身包含撇号，它也需要转义。想想php中的addlashes。

所以给一个特定的变量 DefValue，

Dim DefValue
DefValue = "This is a static string or result from database query or other computation"
TextBox.DefaultValue = """" & Replace(DefValue, """", """""") & """"

所以，在你的情况下，它将是"""" & Replace([qrySettingsDefaultTaxRate]![default_tax_rate], """", """""") & """"

【讨论】：

【解决方案4】：

Fionnuala 的回答在第二部分中包含错误。不幸的是，我的编辑被拒绝了两次，所以现在我将其作为单独的回复发布。它需要是：

DLookUp("value","settings","settings.key_name='default_tax_rate'")

原因是在原始表settings 中，该列称为value，而default_tax_rate 仅在基于settings 的查询qrySettingsDefaultTaxRate 中创建。

【讨论】：