A
Antonio
Good morning, all.....
Here is the problem: the main form's Dos...Loops have all
been terminated with an Exit Do command (as was advised on
this type of problem). But I have another form that
retrieves all the customers e-mails or certain e-mails
based on the product that these customers subscribe to.
In this form, I use Do...Loop to loop through all the
records to obtain all these e-mails. If I put a Exit Do
as shown below, it will only return one e-mail address,
but if I put the Exit Do, Access won't remain in the Task
Manager (most of the times, but sometimes it does). Does
anyone has an idea? Thanks
Private Sub cmdAllEmails_Click()
'Displays customers e-mails and enable the Send button
cboTitles.Value = "All Customers' e-Mails"
cmdDisplayEMails_SB.Enabled = False
Dim mySub, mySubcode, sql, addresses, Address As String
Dim rst, rstTemp As Recordset
Dim dbs As DAO.Database
Set dbs = CurrentDb
sql = "SELECT CustomerDB.[E-mail Address], CustomerDB.
[Alternate E-mail Address] FROM CustomerDB"
Set rst = dbs.OpenRecordset(sql)
Do While Not rst.EOF
If rst![E-mail Address] <> "" Then
Address = rst![E-mail Address]
addresses = Address & ";" & addresses
Exit Do
End If
rst.MoveNext
Loop
rst.Close
dbs.Close
txtEmailAddress.SetFocus
txtEmailAddress.Value = addresses
cmdSend.Enabled = True
End Sub
Here is the problem: the main form's Dos...Loops have all
been terminated with an Exit Do command (as was advised on
this type of problem). But I have another form that
retrieves all the customers e-mails or certain e-mails
based on the product that these customers subscribe to.
In this form, I use Do...Loop to loop through all the
records to obtain all these e-mails. If I put a Exit Do
as shown below, it will only return one e-mail address,
but if I put the Exit Do, Access won't remain in the Task
Manager (most of the times, but sometimes it does). Does
anyone has an idea? Thanks
Private Sub cmdAllEmails_Click()
'Displays customers e-mails and enable the Send button
cboTitles.Value = "All Customers' e-Mails"
cmdDisplayEMails_SB.Enabled = False
Dim mySub, mySubcode, sql, addresses, Address As String
Dim rst, rstTemp As Recordset
Dim dbs As DAO.Database
Set dbs = CurrentDb
sql = "SELECT CustomerDB.[E-mail Address], CustomerDB.
[Alternate E-mail Address] FROM CustomerDB"
Set rst = dbs.OpenRecordset(sql)
Do While Not rst.EOF
If rst![E-mail Address] <> "" Then
Address = rst![E-mail Address]
addresses = Address & ";" & addresses
Exit Do
End If
rst.MoveNext
Loop
rst.Close
dbs.Close
txtEmailAddress.SetFocus
txtEmailAddress.Value = addresses
cmdSend.Enabled = True
End Sub