Question

I have a label in my form. I want this label to dynamically change as email are sent.
The caption on the label has to 1 of 140 and so on.

I have this code within my Do .... Loop:

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

I get a type mismatch here and dont understand why.

useful info: Dim emailTotal as integer

Answer 1

What you need is:

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

But you could simplify with DCount or DlookUp and a saved query.