تصحيح الحدث التالي

[كريمو2]

السلام عليكم

ممكن مساعدة بخصوص تصحيح الحدث التالي

Private Sub detaché_Afterupdate()
On Error GoTo Err_detaché_Click

If IsNull(txtMonth) Then
MsgBox "اختر الشهر"
 DoCmd.CancelEvent
  Exit Sub
End If
 
On Error GoTo Err_detaché_Click
    'DoCmd.OpenReport "rptDiscount", acPreview, , "((TheSum > 0)AND (detach = 'موظف'))", , OpenArgs:="موظفين"
       Me.Report_Title = "للموظفين"
       Me.Report_Title = "للعمال المنتدبين"
       Me.Report_Title = "للعمال المتعاقدين بالتوقيت الكامل"
       Me.Report_Title = "للعمال المتعاقدين بالتوقيت الجزئي"
       Me.Report_Title = "للعمال اعوان النظافة والتطهير"
    DoCmd.OpenReport "rptDiscount", acPreview, , , , OpenArgs:="qry_rptD_2"

Exit_detaché_Click:
    Exit Sub

Err_detaché_Click:
    MsgBox Err.Description
    Resume Exit_detaché_Click
End Sub

 

[كريمو2]

عفوا تصحيح الكود في الحدث عند

Afterupdate()

عفوا تصحيح الكود في الحدث عند

Afterupdate()

krimo2015.rar