VBA从MS Access获取值的总和，返回错误：没有为一个或多个参数提供值

Question

我有以下代码来检索访问字段中的总和。 不断收到错误“没有为一个或多个参数赋值”。 我假设它很简单。 我尝试查找语法，谷歌似乎给了我我已经拥有的东西。 感谢您的帮助。

编辑

Public Sub sum()
Dim cn As Object
Dim rs As Object
Dim strSql As String
Dim strConnection As String
Dim countfrmdb As String
Dim currentmth As String
currentmth = Sheets("Data").Range("f3")  'this has been formatted to get the month name. e.g: Jan. Thats how its in my database.

Set cn = CreateObject("ADODB.Connection")
strConnection = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=data.mdb"
strSql = "SELECT SUM(field_name) As Total FROM Table_name WHERE field_month_name = " & currentmth

cn.Open strConnection
Set rs = cn.Execute(strSql)
countfrmdb = rs.Fields(0)
MsgBox (countfrmdb)

Answer 1

您指示currentmth是包含当前月份的文本值。 因此，当将currentmth添加到WHERE子句而不用引号引起来时，数据库引擎会认为Jan是参数的名称而不是文本值。

改变这个...

WHERE field_month_name = " & currentmth

为此...

WHERE field_month_name = '" & currentmth & "'"

解决这类问题的一种好方法是检查您要求Access执行的SQL语句的实际文本。 Debug.Print对于此目的很有用。

strSql = "SELECT SUM(field_name) As Total FROM Table_name WHERE field_month_name = " & currentmth
Debug.Print strSql 

然后，您可以在“即时”窗口中查看Debug.Print的输出。 您可以从此处复制语句文本，然后将其粘贴到新的Access查询的SQL视图中进行测试。 或者，您可以向我们显示产生您报告的错误的实际语句文本。

Answer 2

根据在此找到的信息： 没有为必需的参数提供值我要说的是您的Field_Name或table_name的拼写不正确。 您可以通过有意地输入错误的字段名称来进行测试，并且会遇到相同的错误。