如果字符串在VBA中匹配，则数据库将()值相加

您的代码对我来说是完美的(在MSAccess DB, vba模块中运行):

Sub foo()

Dim db As DAO.Database
Set db = CurrentDb

Dim eight As DAO.Recordset
Dim strSQLeight As String
strSQLeight = "SELECT SUM(TileQty) FROM PickQuery WHERE TileSize = '8mm'"
Set eight = db.OpenRecordset(strSQLeight)
sometextbox = eight.Fields(0).Value
End Sub

我们是不是漏掉了什么?你是如何运行这个代码的?它是在一个访问vba模块?别的地方吗?