Integrating threat intelligence can be challenging, and not all companies are ready. These resources can help you build awareness and prepare for defense.
Dim ExtractDate As Date Dim curDB As DAO.Database Dim strSQL As String, strSQL1 As String Dim nCt As Variant Dim rs As DAO.Recordset, rs1 As DAO.Recordset Dim i As Integer strSQL = "Select Year, FreezeQ1, FreezeQ2, FreezeQ3, FreezeQ4 from tblcurrent" Set rs = curDB.OpenRecordset(strSQL) For i = 1 To 4 ">>>>>> nCt = Nz(DCount("Quarter", "tblSummaryQuartersFrozen", "Quarter = " & i And "Year =" & Year(Date))) If rs.Fields("CountOfQuarter") > 0 Then ' If nCt = 0 Then GoTo cont: ElseIf rs.Fields("FreezeQ" & (i)) = -1 Then curDB.Execute ("DELETE *" & _ " FROM tblSummary" & _ " WHERE Quarter = " & i And "Year =" & Year(Date)) curDB.Execute ("INSERT INTO tblSummary" & _ "Select *" & _ " FROM tblSummaryQuartersFrozen" & _ " WHERE Quarter = " & i And "Year =" & Year(Date)) rs.MoveNext End If Next i cont:
|Reset subform in page control based on selection in other page control from a tab control on a form||5||18|
|scrolling in subform on tab page and make other tabs not visible based on field value||2||15|
|How can I change the values of a field in Access tables with DLookup||12||19|
|MS Access CSV Text File Export UTF-8 Separator Delimiter Not Exporting Correctly||18||16|
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
19 Experts available now in Live!