Integrating threat intelligence can be challenging, and not all companies are ready. These resources can help you build awareness and prepare for defense.
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
|Display multiple images in report||12||81|
|MS Access IsNull Then Compile Error Expected Then or goto WHY?????||6||15|
|Converting from Access2K to A2016- can't figure out how to get forms displayed to look like floating popup froms without changing it to a popup.||15||34|
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
8 Experts available now in Live!