Private Sub detach_AfterUpdate()
On Error GoTo Err_detach_Click
Dim stLinkCriteria As String

If IsNull(TxtMonth) Then
MsgBox " "
 DoCmd.CancelEvent
  Exit Sub
End If
If Me.detach = Me.detach.ItemData(0) Then
    Me.Reporte_Title.Visible = False
    Me.Reporte_Title.Value = " "
    Me.Report_Title = " "
 '   DoCmd.OpenReport "rptDiscount", acViewNormal, , , , "3", OpenArgs:="qry_rptD"
    DoCmd.OpenReport "rptDiscount", acPreview, , , , OpenArgs:="qry_rptD"

 ElseIf Me.detach = Me.detach.ItemData(1) Then
    Me.Reporte_Title.Visible = False
    Me.Reporte_Title.Value = " 8 "
    Me.Report_Title = "   "
   '   DoCmd.OpenReport "rptDiscount", acViewNormal, , , , "3", OpenArgs:="qry_rptD"
  DoCmd.OpenReport "rptDiscount", acPreview, , , , OpenArgs:="qry_rptD"
     
ElseIf Me.detach = Me.detach.ItemData(2) Then
    Me.Reporte_Title.Visible = False
    Me.Reporte_Title.Value = "  5 "
    Me.Report_Title = "   "
 '   DoCmd.OpenReport "rptDiscount", acViewNormal, , , , "3", OpenArgs:="qry_rptD"
    DoCmd.OpenReport "rptDiscount", acPreview, , , , OpenArgs:="qry_rptD"
 
ElseIf Me.detach = Me.detach.ItemData(3) Then
    Me.Reporte_Title.Visible = False
    Me.Reporte_Title.Value = "  5 "
    Me.Report_Title = "   "
 '   DoCmd.OpenReport "rptDiscount", acViewNormal, , , , "3", OpenArgs:="qry_rptD"
    DoCmd.OpenReport "rptDiscount", acPreview, , , , OpenArgs:="qry_rptD"
     
ElseIf Me.detach = Me.detach.ItemData(4) Then
    Me.Reporte_Title.Visible = False
    Me.Reporte_Title.Value = "  "
    Me.Report_Title = "   "
 '   DoCmd.OpenReport "rptDiscount", acViewNormal, , , , "3", OpenArgs:="qry_rptD"
    DoCmd.OpenReport "rptDiscount", acPreview, , , , OpenArgs:="qry_rptD"
 
End If
   
Exit_detach_Click:
    Exit Sub

Err_detach_Click:
If Err.Number = 2501 Then
    Resume Exit_detach_Click
    End If
    End Sub
