如何在Microsoft Access 2007中使用SELECT查询的结果更新表格字段？
以下是SELECT查询的代码：
SELECT Min(TAX.Tax_Code) AS MinOfTax_Code
FROM TAX, FUNCTIONS
WHERE (((FUNCTIONS.Func_Pure)<=[Tax_ToPrice]) AND ((FUNCTIONS.Func_Year)=[Tax_Year]))
GROUP BY FUNCTIONS.Func_ID;
以下是更新查询语句：
UPDATE FUNCTIONS
SET FUNCTIONS.Func_TaxRef = [Result of Select query]
看起来Access无法在更新查询中执行聚合操作。但是它可以在SELECT查询中执行聚合操作。因此，创建一个定义为以下内容的查询：
SELECT func_id, min(tax_code) as MinOfTax_Code
FROM Functions
INNER JOIN Tax
ON (Functions.Func_Year = Tax.Tax_Year)
AND (Functions.Func_Pure <= Tax.Tax_ToPrice)
GROUP BY Func_Id
将其保存为“YourQuery”。现在我们必须解决另一个访问限制。更新查询不能操作查询，但它们可以操作多个表。因此，让我们使用“制作表”查询将查询转换为表：
SELECT YourQuery.*
INTO MinOfTax_Code
FROM YourQuery
这将把视图的内容存储在名为MinOfTax_Code的表中。现在，您可以执行UPDATE查询：
UPDATE MinOfTax_Code
INNER JOIN Functions ON MinOfTax_Code.func_id = Functions.Func_ID
SET Functions.Func_TaxRef = [MinOfTax_Code].[MinOfTax_Code]
在Access中执行SQL有点勉强，我建议你考虑使用Sql Server Express Edition来完成你的项目！
我之前写过一篇关于Access/JET SQL相关的相关子查询限制的文章，并记录了SQL UPDATE连接多个表的语法。根据那些信息和一些快速测试，我认为在Access/JET中没有任何方法可以使用单个SQL UPDATE语句实现你想要的操作。如果可以的话，该语句将类似于：
UPDATE FUNCTIONS A
INNER JOIN (
SELECT AA.Func_ID, Min(BB.Tax_Code) AS MinOfTax_Code
FROM TAX BB, FUNCTIONS AA
WHERE AA.Func_Pure<=BB.Tax_ToPrice AND AA.Func_Year= BB.Tax_Year
GROUP BY AA.Func_ID
) B
ON B.Func_ID = A.Func_ID
SET A.Func_TaxRef = B.MinOfTax_Code
或者，Access/JET有时会允许您将子查询保存为单独的查询，然后以更传统的方式在UPDATE语句中进行连接。因此，例如，如果我们将上面的SELECT子查询保存为名为FUNCTIONS_TAX的单独查询，则UPDATE语句将如下所示：
UPDATE FUNCTIONS
INNER JOIN FUNCTIONS_TAX
ON FUNCTIONS.Func_ID = FUNCTIONS_TAX.Func_ID
SET FUNCTIONS.Func_TaxRef = FUNCTIONS_TAX.MinOfTax_Code
UPDATE FUNCTIONS
SET Func_TaxRef = DLookup(
"MinOfTax_Code",
"FUNCTIONS_TAX",
"Func_ID = '" & Func_ID & "'"
)
我曾经遇到过类似的问题。我想在一个列中查找字符串，并将该值放入同一表格中的另一列中。下面的选择语句可以找到括号内的文本。
当我在Access中创建查询时，我选择了所有字段。在该查询的SQL视图中，我用括号内的字段替换了mytable.myfield，以便从中获取值。
SELECT Left(Right(OtherField,Len(OtherField)-InStr((OtherField),"(")),
Len(Right(OtherField,Len(OtherField)-InStr((OtherField),"(")))-1)
我运行了一个制表查询。该制表查询具有所有字段，其中包含上述替换，并以INTO NameofNewTable FROM mytable结尾。
我想再添加一个使用VBA函数的答案，但它确实可以在一个SQL语句中完成任务。不过，它可能会比较慢。
UPDATE FUNCTIONS
SET FUNCTIONS.Func_TaxRef = DLookUp("MinOfTax_Code", "SELECT
FUNCTIONS.Func_ID,Min(TAX.Tax_Code) AS MinOfTax_Code
FROM TAX, FUNCTIONS
WHERE (((FUNCTIONS.Func_Pure)<=[Tax_ToPrice]) AND ((FUNCTIONS.Func_Year)=[Tax_Year]))
GROUP BY FUNCTIONS.Func_ID;", "FUNCTIONS.Func_ID=" & Func_ID)
这个管用吗？未经测试但应该能解决问题。
UPDATE FUNCTIONS
SET Func_TaxRef =
(
SELECT Min(TAX.Tax_Code) AS MinOfTax_Code
FROM TAX, FUNCTIONS F1
WHERE F1.Func_Pure <= [Tax_ToPrice]
AND F1.Func_Year=[Tax_Year]
AND F1.Func_ID = FUNCTIONS.Func_ID
GROUP BY F1.Func_ID;
)
基本上，对于FUNCTIONS中的每一行，子查询确定最小当前税收代码并将FUNCTIONS.Func_TaxRef设置为该值。这是假设FUNCTIONS.Func_ID是主键或唯一键。
我知道这个话题很老了，但我觉得我可以为它添加一些内容。
使用SQL在MS Access 2010中无法使用选择查询更新。我使用了Tomalak的建议来使它工作。我有一张截图，但显然我在这个网站上太新手了，无法发布它。
我能够使用查询设计工具完成此操作，但即使我正在查看确认成功的更新查询，Access也不能向我显示使其发生的SQL。因此，我无法仅使用SQL代码使其工作。
我创建并保存了一个单独的选择查询。在查询设计工具中，我添加了要更新的表和我保存的选择查询（我将唯一键放入选择查询中，以便它们之间有联系）。正如Tomalak所建议的那样，我将查询类型更改为“更新”。然后，我只需选择要更新的字段（并指定表），在“更新到”字段中输入我导入的选择查询中的字段名称即可。
这种格式成功地更新了原始表。