Warning: file_get_contents(/data/phpspider/zhask/data//catemap/1/ms-access/4.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
Ms access 窗体中的VBA SQL求和操作_Ms Access_Vba_Ms Access 2013 - Fatal编程技术网
Fatal编程技术网
  • ms-access/
  • Ms access 窗体中的VBA SQL求和操作

Ms access 窗体中的VBA SQL求和操作

ms-access vba

Ms access 窗体中的VBA SQL求和操作,ms-access,vba,ms-access-2013,Ms Access,Vba,Ms Access 2013,在我的表单中我想在表单的查询中使用的行SWS上使用和。在按钮单击事件中，只要满足我的中的条件，我想对该行中的值进行求和。问题是每当我运行它时，我都会得到一个无效参数错误。我就是找不到我的错误。也许有人能帮忙 以下是我在按钮单击事件后调用的函数： Public Function chkSWS() As Integer Dim db As Database Dim rst As DAO.Recordset Dim strSQL As String Set db =

在我的
表单中
我想在
表单的
查询中使用的
行
SWS
上使用
和
。在按钮单击事件中，只要满足我的
中的条件，我想对该行中的值进行
求和。问题是每当我运行它时，我都会得到一个
无效参数
错误。我就是找不到我的错误。也许有人能帮忙

以下是我在按钮单击事件后调用的函数：


Public Function chkSWS() As Integer

    Dim db As Database
    Dim rst As DAO.Recordset
    Dim strSQL As String

    Set db = CurrentDb

    strSQL = "SELECT SUM(tblKurse.SWS) As Stunden " _
    & "FROM tblKurse " _
    & "WHERE tblKurse.Dozent_ID = " & Me.cmbKursDOzent

    Debug.Print strSQL
    Debug.Print Me.Dozent_ID
    Set rst = db.OpenRecordset(strSQL, dbForwardOnly)

    chkSWS = rst![Stunden]

    Set rst = Nothing
    Set db = Nothing

End Function


“Set rst”行上有错误点，因此可能是错误的
Select
语句

打印的SQL语句：


SELECT SUM(tblKurse.SWS) As Stunden FROM tblKurse WHERE tblKurse.Dozent_ID = 1


换行


Set rst = db.OpenRecordset(strSQL, dbForwardOnly)


对此


Set rst = db.OpenRecordset(strSQL, dbOpenSnapshot)