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

[UserUser2]

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

Test (1).accdbFetching info...

[kanory]

  في 24‏/2‏/2024 at 20:39, UserUser2 said:

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

Expand  

تفضل ....

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]

  في 24‏/2‏/2024 at 21:04, 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

 

Expand  

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

[kanory]

  في 24‏/2‏/2024 at 21:09, UserUser2 said:

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

Expand  

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