Ms access 计数通过更改标签标题发送的电子邮件

我的表格中有一个标签。我希望此标签在发送电子邮件时动态更改。 标签上的标题必须为140中的1，以此类推

我的

Do…中有此代码。。。。循环

：

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

我这里的类型不匹配，不明白为什么

有用信息：

Dim emailTotal作为整数

您需要的是：

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

True，如果声明为布尔类型，则两者都将为false，如果声明为数字类型，则两者都将为0。这是输入错误。我已经编辑了这个问题。emailTotal=DCount（“Email”，“Names”）=>DCount=>dim emailTotal asinteger@KimGysen“。和保存的查询”@Remou我在设置rs=CurrentDb.OpenRecordset（sSQL）时遇到类型不匹配错误。运行时错误13。请使用DAO记录集重试，如上图所示。@Remou使用了DAO.Recordeset。