فتح تقرير بتصفية خاصة "إسم الحساب"

تفضل اخي :)

طبعا انا لعبت في معلومات الجدول :)

مثالين على طريقة العمل (رجاء لصقه في برنامجك حتى تراه بالطريقة الصحيحة):

الاول هكذا:

"[Name COMPTE] = '" & Me.cmdDiscount_BDL.Caption & "'"

والثاني هكذا:

"[Name COMPTE] = 'BEA'"

Private Sub cmdDiscount_BDL_Click()
'On Error GoTo Err_cmdDiscount_BDL_Click
'  DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70

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_BDL_Click
    'DoCmd.OpenReport "rpt_Transfer", acPreview, , " ((TOTAL > 0) AND (Name COMPTE= 'BDL')) "
     'DoCmd.OpenReport "rpt_Transfer", acPreview, , , , OpenArgs:="Transfer"
     DoCmd.OpenReport "rpt_Transfer", acPreview, , "[Name COMPTE] = '" & Me.cmdDiscount_BDL.Caption & "'", , OpenArgs:="Transfer"
 
Exit_cmdDiscount_BDL_Click:
Exit Sub
 
Err_cmdDiscount_BDL_Click:
If Err.Number = 2501 Then
Resume Exit_cmdDiscount_BDL_Click
Else
    MsgBox Err.Description
    Resume Exit_cmdDiscount_BDL_Click
End If

End Sub

Private Sub cmdDiscount_BEA_Click()
'On Error GoTo Err_cmdDiscount_BEA_Click
'  DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70

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_BEA_Click
    'DoCmd.OpenReport "rpt_Transfer", acPreview, , " ((TOTAL > 0) AND (Name COMPTE= 'BEA')) "
     'DoCmd.OpenReport "rpt_Transfer", acPreview, , , , OpenArgs:="Transfer"
     DoCmd.OpenReport "rpt_Transfer", acPreview, , "[Name COMPTE] = 'BEA'", , OpenArgs:="Transfer"
 
Exit_cmdDiscount_BEA_Click:
Exit Sub
 
Err_cmdDiscount_BEA_Click:
If Err.Number = 2501 Then
Resume Exit_cmdDiscount_BEA_Click
Else
    MsgBox Err.Description
    Resume Exit_cmdDiscount_BEA_Click
End If

End Sub

وتعديل اخر على Record Source التقرير ، فاصبح:

SELECT Transfer.Total AS T, Transfer.*, * FROM Transfer WHERE (((Transfer.Total)>0));

جعفر

196.20140701.mdb.zip

مشكوووووووووووووووووور أخي جعفر

بورك فيك وفي الوالدين الكريمين

دمت ذخرا

حياك الله :)