Private Sub CmdUpdate_Click()                              Transition a Project Code

On Error GoTo Err_CmdUpdate

DoCmd.OpenForm "frmWaitPleaseUpdates"

Dim dbs As DAO.Database, rst As DAO.Recordset, qdf As QueryDef, iSeriesID As Integer, sql As String

DoCmd.SetWarnings False

DoCmd.OpenQuery "qrySetSeriesID_tmp_clear"

DoCmd.OpenQuery "qryProject_Transition_AppendCriteria_clear"

Set dbs = CurrentDb

Set rst = dbs.OpenRecordset("tblSeriesID")

For Each qdf In dbs.QueryDefs

   If qdf.Name = "qryProject_Transition_Insert" Then dbs.QueryDefs.Delete qdf.Name

Next qdf

Do Until rst.EOF

   DoCmd.OpenQuery "qrySetSeriesID_tmp_clear"

   iSeriesID = rst![SeriesID]

   sql = "INSERT INTO tblSeriesID_tmp (SeriesID) VALUES " & "(" & iSeriesID & ");"

   Set qdf = dbs.CreateQueryDef("qryProject_Transition_Insert", sql)

   qdf.Execute

   DoCmd.OpenQuery "qryProject_Transition_AppendCriteria"

If rst.EOF = True Then

   rst.Close

   Set dbs = Nothing

   DoCmd.SetWarnings True

   Exit Sub

End If

DoCmd.DeleteObject acQuery, "qryProject_Transition_Insert"

rst.MoveNext

Loop

rst.Close

Set dbs = Nothing

DoCmd.OpenQuery "sp_ProjectTransition_Build"

DoCmd.SetWarnings True

If chkOverWrite = -1 Then   ' Overwrite FtrToSer-Comments with matching records from FtrToProject-Comments

   DoCmd.OpenQuery "sp_ProjectTransition_Overwrite"     ' Append Value Story Comments to Existing Records

   DoCmd.OpenQuery "sp_ProjectTransition_Append_New"    ' Append New Records to FtrToSer

Else

   DoCmd.OpenQuery "sp_ProjectTransition_Append_New"    ' Append New Records to FtrToSer

   DoCmd.OpenQuery "sp_ProjectTransition_Append_VS"     ' Append Value Story Comments to Existing Records

End If

DoCmd.SetWarnings False

If IsNull(chkHide) Or chkHide = 0 Then

   DoCmd.OpenQuery "sp_ProjectTransition_Hide"

End If

DoCmd.OpenQuery "sp_ProjectTransitionToFtrToMod"

DoCmd.SetWarnings True

DoCmd.Close acForm, "frmWaitPleaseUpdates", acSaveNo

Exit_CmdUpdate:

   Exit Sub

Err_CmdUpdate:

   DoCmd.SetWarnings True

   MsgBox Err.Description

   Resume Exit_CmdUpdate

End Sub