شكرا لك استاذي
يعني التعديل تم وفقا
تم تعيين مربع نص مخفي iTransfer
Private Sub cmdDiscount_CO4_Click()
If Len(txtMonth) = 0 Or IsNull(txtMonth) Or Not IsDate(txtMonth) Then
MsgBox "Error !! SELECT A VALID Date."
txtMonth.SetFocus
Exit Sub
End If
On Error GoTo Err_cmdDiscount_CO4_Click
'DoCmd.OpenReport "rptDiscount", acPreview, , "((TheSum > 0)AND (transfer = 'مكتب4'))"
'DoCmd.OpenReport "rptDiscount", acPreview, , "((TheSum > 0) AND (transfer = 'مكتب4'))"
'DoCmd.OpenReport "rptDiscount", acPreview, , "[transfer] = 'مكتب4'"
Me.iTransfer = "مكتب4"
DoCmd.OpenReport "rptDiscount", acPreview
'DoCmd.OpenReport "rptDiscount", acPreview
'Reports!rptDiscount.Filter = "[Transfer]='مكتب4'"
'Reports!rptDiscount.FilterOn = True
Exit_cmdDiscount_CO4_Click:
Exit Sub
Err_cmdDiscount_CO4_Click:
If Err.Number = 2501 Then
Resume Exit_cmdDiscount_CO4_Click
Else
MsgBox Err.Description
Resume Exit_cmdDiscount_CO4_Click
End If
End Sub
شكرا لك اخ الجموعي
Me.Transfer = Me.Transfer.ItemData(3)
طريقتك ايضا ادت الى نفس الحل ولكن تم التعديل على الإستعلام لعدم ظهور المبالغ التي تحمل مبلغ 0.00
Private Sub cmdDiscount_CO4_Click()
If Len(txtMonth) = 0 Or IsNull(txtMonth) Or Not IsDate(txtMonth) Then
MsgBox "Error !! SELECT A VALID Date."
txtMonth.SetFocus
Exit Sub
End If
On Error GoTo Err_cmdDiscount_CO4_Click
Me.Transfer = Me.Transfer.ItemData(3)
'DoCmd.OpenReport "rptDiscount", acPreview, , "((TheSum > 0)AND (transfer = 'مكتب4'))"
DoCmd.OpenReport "rptDiscount", acPreview, , , , OpenArgs:="qry_rptD_0"
Exit_cmdDiscount_CO4_Click:
Exit Sub
Err_cmdDiscount_CO4_Click:
If Err.Number = 2501 Then
Resume Exit_cmdDiscount_CO4_Click
Else
MsgBox Err.Description
Resume Exit_cmdDiscount_CO4_Click
End If
End Sub