ms-access - 计算通过更改标签标题发送的电子邮件

Question

我的表格中有一个标签。我希望这个标签随着电子邮件的发送而动态变化。标签上的标题必须为 140 中的 1，依此类推。

我在我的里面有这个代码Do .... Loop：

emailTotal = "SELECT COUNT(EMail) FROM ( SELECT DISTINCT EMail FROM Names)"

我在这里遇到类型不匹配，不明白为什么。

有用的信息：Dim emailTotal as integer

Answer 1

你需要的是：

Dim rs As DAO.Recordset
sSQL = "SELECT COUNT(EMail) As ECount FROM ( SELECT DISTINCT EMail FROM Names)"
Set rs = CurrentDB.OpenRecordset (sSQL)

EmailTotal = rs!ECount

但是您可以使用 DCount 或 DlookUp 和保存的查询进行简化。