计算通过更改标题标题发送的电子邮件

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以及保存的查询进行简化。