Getting Error - Object Variable or With Block Variable Not Set . . .

Care to give us a clue by indicating which line the error occurs on?

I mentioned in my post that it was after the MsgBox and the OK button is clicked:

Else
    MsgBox "There are no results for the selected criteria. Please revise your criteria, and try again.", vbOKOnly
End If

Thanks,
gdunn59

Unless your major If statement condition is true:
If DCount("*", "tblErrorDetails (for Report)") > 0 Then


Then you will not have initialized your recordset variable (rs).  You need to check for that condition before trying to close the recordset.
Example:

If rs Is Nothing Then
Else
   rs.Close
End If

Select allOpen in new window

That worked.  I also moved the template line of code because if there weren't any records, it was still opening the template and keeping it opened.

Here is the final code:

Private Sub cmdDetErrRpt_Click()
On Error GoTo Err_cmdDetErrRpt_Click
Dim stDocNameMgr As String
Dim stDocNameEmp As String
Dim stDocNameDept As String
Dim stDocNameAuditor As String
Dim strOutputToPath As String
Dim rtn As String
Dim xlObj As Object
Dim xlWb As Object
Dim rs As DAO.Recordset
Dim rs2 As DAO.Recordset
Dim qdf As QueryDef
Dim qdf2 As QueryDef
Dim BegDate As String
Dim EndDate As String
Dim Template As String
Dim Hrs As String
Dim sMinDte As Variant
Dim sMaxDte As Variant
Dim stDocName As String
Dim stDocName2 As String
Dim stDocNameErrorDetailsALL As String
Dim stDocNameErrors As String

DoCmd.Echo False
DoCmd.SetWarnings False

DoCmd.Hourglass True

strOutputToPath = "\\Wiw2pwpfle001\data\QA Database\Employee Audit Scorecard System\Reports\ErrorDetailReport_By" & "" & Me!cboReportCateg & "_" & Me!cboCategSelect & "_" & Format(Now(), "mm-dd-yyyy") & ".xlsx"

'Remove Report if process is run more than once daily
If Dir(strOutputToPath) <> "" Then Kill strOutputToPath

'Template on Network
Templatefile = "\\Wiw2pwpfle001\data\QA Database\Employee Audit Scorecard System\TEMPLATE\Audit_DB_ErrorDetail_TEMPLATE.xltx"

stDocNameMgr = "qryErrorDetailByMgr (for Report)"
stDocNameEmp = "qryErrorDetailByEmp (for Report)"
stDocNameDept = "qryErrorDetailByDept (for Report)"
stDocNameAuditor = "qryErrorDetailByAuditor (for Report)"
stDocNameErrorDetailsALL = "qryErrorDetailAssocReport"
stDocNameErrors = "qryErrorScores"

DoCmd.OpenQuery stDocNameErrorDetailsALL
DoCmd.OpenQuery stDocNameErrors

If IsNull(Me.cboReportCateg) Or IsNull(Me.cboCategSelect) Then
    MsgBox "Please make selections from the drop-downs for a Auditor, Department, Employee or Manager", vbOKOnly
    Me.cboReportCateg.SetFocus
    Me.cboReportCateg.Dropdown
ElseIf (Me.cboReportCateg) = "Manager" Then
    DoCmd.OpenQuery stDocNameMgr
ElseIf (Me.cboReportCateg) = "Employee" Then
    DoCmd.OpenQuery stDocNameEmp
ElseIf (Me.cboReportCateg) = "Department" Then
    DoCmd.OpenQuery stDocNameDept
ElseIf (Me.cboReportCateg) = "Auditor" Then
    DoCmd.OpenQuery stDocNameAuditor
End If

Set xlObj = CreateObject("excel.application")

If IsNull(Me.cboReportCateg) Or IsNull(Me.cboCategSelect) Then
    MsgBox "Please make selections from the drop-downs for a Auditor, Department, Employee or Manager", vbOKOnly
    Me.cboReportCateg.SetFocus
    Me.cboReportCateg.Dropdown
End If

If DCount("*", "tblErrorDetails (for Report)") > 0 Then
xlObj.Workbooks.Add Templatefile
    With xlObj
    .Worksheets(1).Select
    .Range("A5").Select
    Set qdf = CurrentDb.QueryDefs("qryErrorDetails")
    qdf.Parameters("[Forms]![frmReports]![txtBeginDT]") = [Forms]![frmReports]![txtBeginDT]
    qdf.Parameters("[Forms]![frmReports]![txtEndDT]") = [Forms]![frmReports]![txtEndDT]
   
    Set rs = qdf.OpenRecordset
    .Selection.CopyFromRecordset rs
   
rs.Close

If Me.txtBeginDT <> "" Or Me.txtEndDT <> "" Then
'Go back to top of Spreadsheet and Save to Report Name
    .Worksheets(1).Select
    .Range("A1").Select
    .Range("A1") = "For Dates:" & " " & txtBeginDT & " thru " & txtEndDT
    .Range("A2") = "Filtered By:" & " " & cboReportCateg
    .Range("A2").Font.Bold = True
    .Range("A5").Select
    .ActiveWorkbook.SaveAs strOutputToPath, CreateBackup:=False
Else
    .Worksheets(1).Select
    .Range("A1").Select
    .Range("A1") = "For Dates:  " & DMin("[Review Date]", "tblErrorDetails (for Report)") & " thru " & DMax("[Review Date]", "tblErrorDetails (for Report)")
    .Range("A2") = "Filtered By:" & " " & cboReportCateg
    .Range("A2").Font.Bold = True
    .Range("A5").Select
    .ActiveWorkbook.SaveAs strOutputToPath, CreateBackup:=False
End If

End With

Else
    MsgBox "There are no results for the selected criteria. Please revise your criteria, and try again.", vbOKOnly
End If

DoCmd.Hourglass False

DoCmd.Echo False
xlObj.Visible = True
DoCmd.Echo True

DoCmd.SetWarnings True
DoCmd.Echo True
DoCmd.Hourglass False

DoCmd.SetWarnings True
DoCmd.Echo True
DoCmd.Hourglass False

Exit_Err_cmdDetErrRpt_Click:
    Exit Sub

Err_cmdDetErrRpt_Click:
If Err.Number = 2501 Then
    'no action required - ignore the error - because opening of report was cancelled
Else
    MsgBox Err.Description
End If

GoTo Exit_Err_cmdDetErrRpt_Click

Me.cboCategSelect = Null
Me.cboReportCateg = Null
Me.txtBeginDT = Null
Me.txtEndDT = Null
Me.cboDept = Null

DoCmd.SetWarnings True

End Sub