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.
Dim strCompany As String Dim strYearStart As String strCompany = Me.Combo3 strYearStart = "'2011-1-1'" Dim dabs As DAO.Database Dim qdef As DAO.QueryDef Dim recs As DAO.Recordset Set dabs = CurrentDb Set qdef = dabs.CreateQueryDef("qry3Pass") qdef.Connect = "ODBC;DSN=SageLine50v17;UID=***;PWD=***;" qdef.SQL = "SELECT INVOICE.ACCOUNT_REF, INVOICE.INVOICE_NUMBER, INVOICE.INVOICE_DATE, INVOICE.ITEMS_NET " & vbCrLf & _ "FROM INVOICE " & vbCrLf & _ "WHERE INVOICE.ACCOUNT_REF=" & strCompany & "AND INVOICE.INVOICE_DATE > '2011-1-1'" qdef.ReturnsRecords = True 'qdef.Execute 'Set recs = qdef.OpenRecordset(dbOpenSnapshot) Me.frm2Pass.Form.RecordSource = "qry3Pass"
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
12 Experts available now in Live!