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.
Function MakeData() Dim StrSQL As String Dim db As Database 'Current database. Dim lng As Long 'Loop controller. Dim rs As DAO.Recordset 'Table to append to. Dim lng1 As Long 'Loop controller. Dim rs1 As DAO.Recordset 'Table to append from. Dim ACCOUNT As String Dim YEAR As String Dim USER As String Dim REPEAT As Integer Dim TYPEREC As String 'StrSQL = "Delete * from tblPrint where user =" & fOSUserName() & ";" 'DoCmd.SetWarnings False 'DoCmd.RunSQL StrSQL 'DoCmd.SetWarnings True Set db = DBEngine(0)(0) Set rs1 = db.OpenRecordset("select * from ppPidList2 ;") Set rs = db.OpenRecordset("tblPrint", dbOpenDynaset, dbAppendOnly) Do While Not rs1.EOF ACCOUNT = rs1!ACCOUNT YEAR = rs1!YEAR USER = rs1!USER REPEAT = rs1!REPEAT TYPEREC = rs1!TYPE Set rs = db.OpenRecordset("tblPrint", dbOpenDynaset, dbAppendOnly) With rs For lng = 1 To REPEAT .AddNew !ACCOUNT = ACCOUNT !YEAR = YEAR !USER = USER !TYPE = TYPEREC .Update Next End With rs.Close Loop Set rs = Nothing Set db = Nothing Set rs1 = Nothing Set db = Nothing End Function
|Can I reduce the fonts available by excel or visio for one project, but enable the full set of fonts for all other purposes?||8||33|
|MS access report - how to make a heading be zero when no data exists||17||33|
|What is the syntax for requery a form that exists on a Tab control (Acccess 2010)||3||11|
|Export Query data to excel file||14||33|
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
16 Experts available now in Live!