مشاركة مع الاساتذة الكرام تفضل أستاذ @TAMER AGOOR محاولتي حسب مافهمت . ووافني بالرد .
Private Sub Ch_Click()
'On Error Resume Next
If Me.Ch = False Then
Me.CmdPrint.Caption = "Print rpt_Emp"
Me.CmdPrint.BackColor = vbRed
Else
Me.CmdPrint.Caption = "Print rpt_Items"
Me.CmdPrint.BackColor = vbBlue
End If
End Sub
Private Sub CmdPrint_Click()
On Error Resume Next
If Me.Ch = False Then
Me.CmdPrint.Caption = "Print rpt_Emp"
Me.CmdPrint.BackColor = vbRed
DoCmd.OpenReport "rpt_Emp", acViewNormal
Else
Me.CmdPrint.Caption = "Print rpt_Items"
Me.CmdPrint.BackColor = vbBlue
DoCmd.OpenReport "rpt_Items", acViewNormal
End If
End Sub