فتح تقرير حسب تصفية كل مكتب

[كريمو2]

السلام عليكم أساتذتي الكرام

" حسبrptDiscount"   في المرفق وجدت مشكلة في فتح تقرير

" في جدول Employee" حسب كل مكتب " Transfer"  التصفية بواسطة مربع نص

تصفية.rar

[jjafferr]

وعليكم السلام اخي كريمو

 

ان شاء الله تكون في صحة وعافية ، صار لي زمان ما شفت لك مشاركة

 

رجاء تخبرني الطريقة اللي اوصل للمكان المطلوب (لأن الظاهر ان المسميات العربية والانجليزية في سؤالك تداخلت ، وجعلت السؤال غير مفهوم) ،

 

جعفر

[كريمو2]

اهلا بك استاذي العزيز جعفر

اتمنى ان تكون في صحة جيدة يارب

المطوب فتح التقرير على تصفية حسب كل مكتب

مثلا

حسب الصورة

مع العلم اني انشئت 10 استعلامات وكان المطلوب

ولكن اردت ان يكون الإستعلام واحد ويؤدي نفس الوظيفة اي بالتصفية

تم تعديل نوفمبر 28, 2017 بواسطه كريمو2

[كريمو2]

للرفع

[jjafferr]

السلام عليكم

 

سيدي الفاضل ، انت اذكى من ان تطرح مثل هذا السؤال السهل

ولكن صادفتك رسالة الخطأ "Query is too complex" ، والتي لم تستطع التغلب عليها ، والتي اخذت مني كل هذا الوقت تقريبا !!

المشكلة كانت في حقل المجموع الاخير txtTotal !!

 

انا عملت عملت الزر C04 ، فرجاء النظر في الكود الذي فيه ، واعمل الكود لبقية الازرار

 

التغييرات التي عملتها في البرنامج:

نقوم بتصفية بيانات الاستعلام qryDiscountReport عن طريق الحقل Transfer ، والذي يأخذ معلومته من الحقل المخفي iTransfer في النموذج FrmTransfer_Comptabilité .

ولأننا قمنا بتصفية البيانات ، لذا فالاستعلام qry_rptD_0 يأتينا جاهزا بالبيانات المطلوبة فقط ، فعليه قمت بجمع قيمة الحقل TheSum منه الى الحقل txtTotal في التقرير.

 

جعفر

766.تصفية.mdb.zip

[الجموعي]

شاهد المرفق لعله المطلوب

تصفية1.rar

تم تعديل نوفمبر 28, 2017 بواسطه الجموعي

[كريمو2]

شكرا لك استاذي

يعني التعديل تم وفقا

تم تعيين مربع نص مخفي 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

 

[jjafferr]

نعم ، بالاضافة الى التغييرات الاخرى اللي ذكرتها لك في مشاركتي السابقة

 

جعفر