وضع معيار (أكبر من أصغر يكون في تقرير

[عبداللهM]

إخواني أعضاء أوفيسنا

السلام عليكم ورحمة الله وبركاته

لدية مثال وضع معيار اكبر من او اصغر من

يظهر الاستعلام ارغب  تعديل علية بحيث تقرير

 

وضع معيار (أكبر من أصغر من يساوي) عن طريق النموذج.rar

[ابوخليل]

مثالك هذا من كنوز  ابي هادي ، فكيف عثرت عليه ؟

Private Sub CmdRunQuery_Click()
' هذه الطريقة من صنع المبدع الكبير أبو هادي
 Dim QueryName As String
  On Error Resume Next
  QueryName = "Q_fahad"
  DoCmd.DeleteObject acQuery, QueryName
 With CurrentDb.CreateQueryDef(QueryName, "SELECT *, Sumمنduration FROM contss WHERE Sumمنduration " & [Forms]![Fahad]![ch3])
   .Close
 End With
 DoCmd.OpenQuery QueryName
End Sub

مطلوبك يتحقق بتبديل السطر الاخير بهذا

DoCmd.OpenReport "Q_fahad", acViewPreview

 

وضع معيار 2.rar

[عبداللهM]

اخي ابو خليل بارك الله فيك وجزأك الله خير الجزاء

وجعل الله ما قمت به في ميزان حسناتك 

وشكرا على تعديل المطلوب

[رمهان]

يمكنك وضع مصدر التقرير الاستعلام contss  مباشرة ثم هذا الكود لفتح التقرير

Private Sub CmdRunQuery_Click()
 DoCmd.OpenReport "Q_fahad", acViewPreview, , "Sumãäduration " & [Forms]![Fahad]![ch3]
End Sub

لان انشاء الاستعلام ثم حذفه قد يضخم القاعده وخصوصا لو تم عدة مرات في الجلسة الواحده

بالتوفيق

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

[ابوخليل]

ياسلام  استاذ رمهان  ، شكرا لك وتعقيباتك الذهبية

في ردي كنت ابسط  الحل للسائل  فبدلا من فتح الاستعلام يفتح التقرير

وما دامنا في التحسين   يمكننا من خلال  ما تفضلت به توظيف المعيار داخل التقرير  ويعتبر  الاستعلام  contss زائد

معيار3.rar

[رمهان]

2 ساعات مضت, ابوخليل said:

وما دامنا في التحسين   يمكننا من خلال  ما تفضلت به توظيف المعيار داخل التقرير  ويعتبر  الاستعلام  contss زائد

كلام سليم 100 %

ويمكن الاستغناء عن الاستعلام نهائيا والعمل على مصدر التقرير

تحياتي