Question

只是想知道在文本框中的表单上使用表达式时，从表中返回一个值，表达式中是否有多个表可以返回值？

这些表是链接的，我可以在查询中返回值，所以我认为Access也能用这个方法做到这一点????

=DSum("[tblMain]![Revenue]","tblMain","[tblMain]![Quarter]=3 AND [tblMain]![Region]='NorthEast'" AND [tblOffice]![Location]='NewYork'")

这是我在文本框中输入的表达式，没有对第二个表的引用它工作正常，但是一旦我拥有它，我在文本框中得到闪烁的错误消息（就像报告一样）。 .....

我知道这种方法可能在报告中比在表单中使用得更多，但我是新手，并试图提出一个仪表板解决方案，可以快速返回每个部门的大量事实。我在属性窗口的数据选项卡的“控制源”字段中使用它，而不是VB。主要是因为我不知道如何使用VB。

感谢您一如既往的帮助！

Answer 1

据我所知，您不能在域聚合函数中引用多个表或查询。正如格拉齐尔所说，这些表格如何相关？让我们说它是在tblMain ID上，您可以构建一个名为qryMainOffice的查询，SQL（SQL视图，查询设计窗口）看起来像：

SELECT [tblMain].[Revenue],[tblMain]![Quarter],[tblMain]![Region],
       [tblOffice]![Location]
FROM tblMain 
INNER JOIN tblOffice 
ON tblMain.ID = tblOffice.MainID

然后DSum（删除换行符）：

=NZ(DSum("[Revenue]","qryMainOffice",
 "[Quarter]=3 AND [Region]='NorthEast' AND [Location]='NewYork'"),"Not found")

您还可以在VBA中使用记录集或查询来返回值。

编辑重新评论

要在VBA中使用上述内容，您需要添加参数或使用字符串：

''Reference: Microsoft DAO 3.x Object Library
Dim rs As DAO.Recordset
Dim db As Database
Dim strSQL as String

Set db= CurrentDB

strSQL = "SELECT Sum(t.[Revenue]) As TotalNY" _
       & "FROM tblMain t " _
       & "INNER JOIN tblOffice o " _
       & "ON t.ID = o.MainID " _
       & "WHERE t.[Quarter]=3 AND t.[Region]='NorthEast' " _
       & "AND o.[Location]='NewYork' " _

 '' I have use aliases for simplicity, t-tblMain, o-tblOffice
 '' If you wish to reference a control, use the value, like so: 
 '' & " AND [Location]='" & Me.txtCity & "'"
 '' Dates should be formated to year, month, day
 '' For joins, see http://www.devshed.com/c/a/MySQL/Understanding-SQL-Joins/

 Set rs = db.OpenRecordset strSQL

 If Not rs.EOF Then
    Me.txtAnswer = rs!TotNY
 Else
    Me.txtAnswer = "N/A"
 End If

您还可以使用不同的查询返回可以使用列表框或子表单显示的多个结果：

strSQL = "SELECT TOP 5 o.[Location]," _
       & "Sum(t.[Revenue]) AS TotRevenue" _
       & "FROM tblMain t " _
       & "INNER JOIN tblOffice o " _
       & "ON t.ID = o.MainID " _
       & "WHERE t.[Quarter]=3 AND t.[Region]='NorthEast' " _
       & "GROUP BY o.[Location]"

以上将为东北地区的所有地点带来第3季度的收入。如果你想要每个组的最高值，你会看到一个更复杂的查询，我将暂时留下。

MS-Access 2003 - 表单上的文本框中的表达式

1 个答案: