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 strsql As String Dim nCt As Integer Dim nQtr As String Dim rs As DAO.Recordset Set rs = curDB.OpenRecordset("Select * from tblcurrent") for each (i) If rs.Fields("FreezeQ" & (i)) Then End If Do Until X = nQtr For X = i To nQtr For Each X In nQtr curDB.Execute ("DELETE *" & _ " FROM tblSummary" & _ " WHERE Quarter = " & nQtr & ")") curDB.Execute ("INSERT INTO tblSummary" & _ "Select *" & _ " FROM tblSummaryQuartersFrozen" & _ " WHERE Quarter = " & nQtr & ")") Next MoveNext Loop
Join the community of 500,000 technology professionals and ask your questions.