A PHP and Perl based system to collect and display usage statistics from PostgreSQL databases.
One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.
Private Sub mailemailreport_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 If MsgBox("Print Email distribution list to file?", vbYesNo, "Print?") = vbYes Then Dim lFile As Long '/get the next available File handle lFile = FreeFileHandle '/delete the file if it exists If Dir(CurrentProject.Path & "\EmailList.txt") <> "" Then Kill CurrentProject.Path & "\EmailList.txt" '/Now open the file Open CurrentProject.Path & "\EmailList.txt" For Output As #lFile '/write to that file Print #lFile, strDistList '/now close the file Close #lFile Else strDistList = Left(strDistList, Len(strDistList) - 1) Me.Text46 = strDistList End If rst.Close Set rst = Nothing End Sub