Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!
Private Sub btnDistList_Click() Dim rst As DAO.Recordset Dim strDistList As String Set rst = CurrentDb.OpenRecordset("Seniors Club") Do While Not rst.EOF strDistList = strDistList & rst!Email & ";" rst.MoveNext Loop strDistList = Left(strDistList, Len(strDistList) - 1) Me.txtDistList = strDistList rst.Close Set rst = Nothing End Sub
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
|Turning off query prompts on runtime version of Access 2016||5||18|
|VBA code to edit a column based on if statements||25||19|
|How to retrieve returned values from and MS Access Passthru Query , executing a SQL stored procedure||19||52|
|Count How Many Times Each Number Repeats||14||25|