Ransomware – malware that gets on your customers’ computers, encrypts their data, and extorts a hefty ransom for the decryption keys – is a surging new threat. The purpose of this eBook is to educate the reader about ransomware attacks.
Private Sub Report_Open(Cancel As Integer) If Len(strRptFilter) <> 0 Then Me.Filter = strRptFilter Me.FilterOn = True End If End Sub Private Sub Report_Close() strRptFilter = vbNullString End Sub Private Sub Command2_Click() Dim rst As DAO.Recordset Set rst = CurrentDb.OpenRecordset("SELECT DISTINCT [Account] FROM [InvoiceDetail Query1] ORDER BY [Account];", dbOpenSnapshot) Set rst2 = CurrentDb.OpenRecordset("SELECT DISTINCT [InvoiceNum] FROM [InvoiceDetail Query1] ORDER BY [InvoiceNum];", dbOpenSnapshot) Do While Not rst.EOF strRptFilter = "[Account] = " & Chr(34) & rst![Account] & Chr(34) DoCmd.OutputTo acOutputReport, "InvTotal", acFormatPDF, "C:\Scripts" & "\" & rst![Account] & " - " & rst2![InvoiceNum] & ".pdf" DoEvents rst.MoveNext Loop rst.Close Set rst = Nothing End Sub Private Sub Command4_Click() DoCmd.SetWarnings False DoCmd.RunSQL "DELETE * FROM Customers" DoCmd.SetWarnings True End Sub Private Sub Command6_Click() DoCmd.RunSavedImportExport "Import-Customers" End Sub
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.