ms-access - ラベル キャプションの変更によって送信されたメールを数える

Question

フォームにラベルがあります。メールの送信時にこのラベルを動的に変更したい。ラベルのキャプションは 1/140 などです。

私の中にこのコードがあります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 と保存されたクエリを使用して簡素化できます。