We value your feedback.
Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!
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:
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.