طباعه تقرير محدد وفقا للCheck BOX المحدد

[UserUser2]

محتاج عند تحديد شيك بوكس يطبع المحدد فقط 

Test (1).accdb

[kanory]

24 دقائق مضت, UserUser2 said:

محتاج عند تحديد شيك بوكس يطبع المحدد فقط 

تفضل ....

Private Sub Command6_Click()
    If CheckA.Value = True Then
        DoCmd.OpenReport "Report1", acViewPreview
    End If

    If CheckE.Value = True Then
        DoCmd.OpenReport "Report4", acViewPreview
    End If

    If CheckC.Value = True Then
        DoCmd.OpenReport "Report2", acViewPreview
    End If

    If CheckD.Value = True Then
        DoCmd.OpenReport "Report3", acViewPreview
    End If

End Sub

 

[UserUser2]

4 دقائق مضت, kanory said:

تفضل ....

Private Sub Command6_Click()
    If CheckA.Value = True Then
        DoCmd.OpenReport "Report1", acViewPreview
    End If

    If CheckE.Value = True Then
        DoCmd.OpenReport "Report4", acViewPreview
    End If

    If CheckC.Value = True Then
        DoCmd.OpenReport "Report2", acViewPreview
    End If

    If CheckD.Value = True Then
        DoCmd.OpenReport "Report3", acViewPreview
    End If

End Sub

 

اشكرك 
طب سؤال  لو شيك بوكس محدد واخر لا 

[kanory]

1 دقيقه مضت, UserUser2 said:

طب سؤال  لو شيك بوكس محدد واخر لا 

فقط المحدد ..... جرب