如何创建查询来对值求和并在数据库中获取总计?

How can I create a query to sum values and obtain a total in my database?

提问人:teri bridges 提问时间:11/10/2023 最后编辑:Abderrahmene Rayene Mihoubteri bridges 更新时间:11/11/2023 访问量:72

问:

我有一个查询,将我的课程持续时间合计,以便为我提供课程时间。我在编写代码以提取记录集时遇到问题。

我得到的结果,使用我试图学习编写的代码,似乎对查询中的行数进行计数,但没有获得 LessonDuration 总和的值。

Function Cduration() As Integer

    Dim SQL As String
    Dim dbs As Database, rst As Recordset

        SQL = "SELECT Course_tbl.CatalogID, Sum(Lessons_tbl.LessonDuration) AS [Course Duration] " & _
                "FROM (ListModule_tbl INNER JOIN Course_tbl ON ListModule_tbl.[ModuleID] = Course_tbl.[ModuleID]) " & _
                "INNER JOIN Lessons_tbl ON Course_tbl.[CourseID] = Lessons_tbl.[CourseID] " & _
                "GROUP BY Course_tbl.CatalogID;"

    Set dbs = CurrentDb
    Set rst = dbs.OpenRecordset(SQL)
        Cduration = rst.Fields(1)
    rst.Close
End Function

enter image description here

VBA MS 访问 总和

评论

0赞 Ken White 11/10/2023
请不要上传代码/数据/错误的图像。
1赞 June7 11/10/2023
如果您有一个保存的查询对象,并且只想从该查询中获得一个值,则可以使用 DLookup() 拉入 VBA: 。建议不要在命名约定中使用空格。DLookup("[Course Duration]", "qryCourseDuration")
1赞 June7 11/10/2023
域聚合函数可用于查询和文本框表达式以及 VBA。它们可能会降低具有大型数据集的查询或表单的性能。您说要填充字段或 UNBOUND 文本框?将聚合数据保存到字段通常是不必要的,并且可能存在风险。如果可以计算 UPDATE,则可以在需要时进行计算。
1赞 June7 11/10/2023
谷歌“访问论坛”,可能性:accessforums.net、access-programmers.co.uk、utteraccess.com、vbaexpress.com。
1赞 June7 11/10/2023
是的,这就是我列出它们的原因。

答: 暂无答案