فتح تقرير بعدة شروط

[كريمو2]

السلام عليكم

ارجو مساعدة بخصوص فتح تقرير بواسطة مربع تحرير وسرد " detaché " بشرط :

01- يفتح بشرط detaché= موظف او منتدب من الإستعلام qry_rptD_3

02- يفتح بشرط detaché= متعاقد كامل او متعاقد جزئي أو عون نظافة  من الإستعلام qry_rptD_4

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

If IsNull(txtMonth) Then
MsgBox "اختر الشهر"
 DoCmd.CancelEvent
  Exit Sub
End If
If Me.[detaché].Value = "موظف" Then Me.Report_Title = "للموظفين"
    DoCmd.OpenReport "rptDiscount", acPreview, , , , OpenArgs:="qry_rptD_3"

If Me.[detaché].Value = "منتدب" Then Me.Report_Title = "للعمال المنتدبين"
    DoCmd.OpenReport "rptDiscount", acPreview, , , , OpenArgs:="qry_rptD_3"

If Me.[detaché].Value = "متعاقد كامل" Then Me.Report_Title = "للعمال المتعاقدين بالتوقيت الكامل"
    DoCmd.OpenReport "rptDiscount", acPreview, , , , OpenArgs:="qry_rptD_4"

If Me.[detaché].Value = "متعاقد جزئي" Then Me.Report_Title = "للعمال المتعاقدين بالتوقيت الجزئي"
    DoCmd.OpenReport "rptDiscount", acPreview, , , , OpenArgs:="qry_rptD_4"

If Me.[detaché].Value = "عون نظافة" Then Me.Report_Title = "للعمال اعوان النظافة والتطهير"
       DoCmd.OpenReport "rptDiscount", acPreview, , , , OpenArgs:="qry_rptD_4"

Exit_detaché_Click:
    Exit Sub

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

 

[كريمو2]

هل طلبي غير مفهوم

[jjafferr]

وعليكم السلام أخي كريمو 

 

هذا تصحيح لعمل الكود :

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

If IsNull(txtMonth) Then
MsgBox "اختر الشهر"
 DoCmd.CancelEvent
  Exit Sub
End If

If Me.[detaché].Value = "موظف" Then 
    DoCmd.OpenReport "rptDiscount", acPreview, , , , OpenArgs:="qry_rptD_3"
	Reports!rptDiscount!Report_Title = "للموظفين"

elseIf Me.[detaché].Value = "منتدب" Then
    DoCmd.OpenReport "rptDiscount", acPreview, , , , OpenArgs:="qry_rptD_3"
	Reports!rptDiscount!Report_Title = "للعمال المنتدبين"

elseIf Me.[detaché].Value = "متعاقد كامل" Then
    DoCmd.OpenReport "rptDiscount", acPreview, , , , OpenArgs:="qry_rptD_4"
	Reports!rptDiscount!Report_Title = "للعمال المتعاقدين بالتوقيت الكامل"

elseIf Me.[detaché].Value = "متعاقد جزئي" Then
    DoCmd.OpenReport "rptDiscount", acPreview, , , , OpenArgs:="qry_rptD_4"
	Reports!rptDiscount!Report_Title = "للعمال المتعاقدين بالتوقيت الجزئي"

elseIf Me.[detaché].Value = "عون نظافة" Then
    DoCmd.OpenReport "rptDiscount", acPreview, , , , OpenArgs:="qry_rptD_4"
	Reports!rptDiscount!Report_Title = "للعمال اعوان النظافة والتطهير"

endif
	
Exit_detaché_Click:
    Exit Sub

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

 

 

جعفر

[كريمو2]

بارك الله فيك استاذ حعفر

 

تم تعديل ديسمبر 22, 2015 بواسطه كريمو2

[jjafferr]

[كريمو2]