کمک در اجرای یک کوئری

[Vahid Alikhani]

با سلام خدمت اکسس کارهای حرفه ای
در بانک اطلاعاتی ضميمه من یک کوئری دارم که می خواهم آن کوئری (Query1) را از طریق یک فرم(form1) که در آن یک پارامتر عددی برای فیلتر کردن اطلاعات کوئری مربوطه هست ، اجرا کنم .
سئوال اول : چرا هنگامی که این کوئری را در حالتی که هيچگونه فيلتر خاصی ندارد اجرا می کنم و براساس آخرين ستون یعنی Expr5 سورت می کنيم سورت نمی گردد ؟
سئوال دوم : چرا هنگامی که این کوئری را من از طریق form1 اجرا می کنم کلیه رکوردهای بانک را نشان می دهد ؟ ( من می خوام فقط رکوردهایی را نشان بده که ستون Expr5 بزرگتر از عدد 3 است )
خواهشمندم مرا راهنمایی کنید زیرا اجرای این کوئری در بانک من خیلی مهم هست:گریه:
با تشکر

[Vahid Alikhani]

با سلام
فکر نمی کنم برای دوستان حرفه ای خیلی سخت باشه که جواب سئوال من را ندادند ؟
اگر کسی لطف کنه و یک کم برای حل این مساله وقت بگذاره ممنون می شم .
خیلی نیازمند جواب این سئوال هستم .
با تشکر:متفکر:

[dadsara]

سلام
ببین نمونه پیوست کمکت می کنه
باتوجه به سرعت پائین اینترنت لطفا یک کوئری درست کن و این Select را داخل آن کپی کن سپس آنرا از داخل فرم اجرا کن

SELECT tblDONE.PlanningNo, tblDONE.EntryDate, tblDONE.DeclarationOfNeedNo, tblDONE.LetterNo, tblDONE.ItemQuantity, tblCostCenter.CostCenterCode, Last(tblDE.DraftNo) AS LastOfDraftNo, Last(tblROB.ROB_No) AS LastOfROB_No, Last(tblR.ExpDateR) AS LastOfExpDateR, Last(tblR.ImpDateR) AS LastOfImpDateR, Last(tblCod.ExpDateCod) AS LastOfExpDateCod, Last(tblCod.ImpDateCod) AS LastOfImpDateCod, IIf(IsNull(Last(tblDE!DraftNo)) And IsNull(Last(tblROB!ROB_No)) And Not IsNull(Last(tblR!ExpDateR)) And Not IsNull(Last(tblR!ImpDateR)) And IsNull(Last(tblCod!ExpDateCod)) And IsNull(Last(tblCod!ImpDateCod)),J_DIFF(Last(tblR!I mpDateR),J_TODAY(1)),"") AS Expr1, IIf(IsNull(Last(tblDE!DraftNo)) And IsNull(Last(tblROB!ROB_No)) And IsNull(Last(tblR!ExpDateR)) And IsNull(Last(tblR!ImpDateR)) And Not IsNull(Last(tblCod!ExpDateCod)) And Not IsNull(Last(tblCod!ImpDateCod)),J_DIFF(Last(tblCod !ImpDateCod),J_TODAY(1)),"") AS Expr2, IIf(IsNull(Last(tblDE!DraftNo)) And IsNull(Last(tblROB!ROB_No)) And Not IsNull(Last(tblR!ExpDateR)) And Not IsNull(Last(tblR!ImpDateR)) And Not IsNull(Last(tblCod!ExpDateCod)) And Not IsNull(Last(tblCod!ImpDateCod)),IIf(Last(tblR!ImpD ateR)>Last(tblCod!ImpDateCod),J_DIFF(Last(tblR!ImpDateR) ,J_TODAY(1)),J_DIFF(Last(tblCod!ImpDateCod),J_TODA Y(1))),"") AS Expr3, IIf(IsNull(Last(tblDE!DraftNo)) And IsNull(Last(tblROB!ROB_No)) And IsNull(Last(tblR!ExpDateR)) And IsNull(Last(tblR!ImpDateR)) And IsNull(Last(tblCod!ExpDateCod)) And IsNull(Last(tblCod!ImpDateCod)),J_DIFF(Last(tblDON E!EntryDate),J_TODAY(1)),"") AS Expr4
FROM ((((tblCostCenter INNER JOIN tblDONE ON tblCostCenter.CostCenterID=tblDONE.CostCenterID) LEFT JOIN tblCod ON tblDONE.PlanningNo=tblCod.PlanningNo) LEFT JOIN tblDE ON tblDONE.PlanningNo=tblDE.PlanningNo) LEFT JOIN tblR ON tblDONE.PlanningNo=tblR.PlanningNo) LEFT JOIN tblROB ON tblDONE.PlanningNo=tblROB.PlanningNo
GROUP BY tblDONE.PlanningNo, tblDONE.EntryDate, tblDONE.DeclarationOfNeedNo, tblDONE.LetterNo, tblDONE.ItemQuantity, tblCostCenter.CostCenterCode
HAVING (((IIf(IsNull(Last(tblDE!DraftNo)) And IsNull(Last(tblROB!ROB_No)) And Not IsNull(Last(tblR!ExpDateR)) And Not IsNull(Last(tblR!ImpDateR)) And IsNull(Last(tblCod!ExpDateCod)) And IsNull(Last(tblCod!ImpDateCod)),J_DIFF(Last(tblR!I mpDateR),J_TODAY(1)),""))>Forms!form1!Text08)) Or (((IIf(IsNull(Last(tblDE!DraftNo)) And IsNull(Last(tblROB!ROB_No)) And IsNull(Last(tblR!ExpDateR)) And IsNull(Last(tblR!ImpDateR)) And Not IsNull(Last(tblCod!ExpDateCod)) And Not IsNull(Last(tblCod!ImpDateCod)),J_DIFF(Last(tblCod !ImpDateCod),J_TODAY(1)),""))>Forms!form1!Text08)) Or (((IIf(IsNull(Last(tblDE!DraftNo)) And IsNull(Last(tblROB!ROB_No)) And Not IsNull(Last(tblR!ExpDateR)) And Not IsNull(Last(tblR!ImpDateR)) And Not IsNull(Last(tblCod!ExpDateCod)) And Not IsNull(Last(tblCod!ImpDateCod)),IIf(Last(tblR!ImpD ateR)>Last(tblCod!ImpDateCod),J_DIFF(Last(tblR!ImpDateR) ,J_TODAY(1)),J_DIFF(Last(tblCod!ImpDateCod),J_TODA Y(1))),""))>Forms!form1!Text08)) Or (((IIf(IsNull(Last(tblDE!DraftNo)) And IsNull(Last(tblROB!ROB_No)) And IsNull(Last(tblR!ExpDateR)) And IsNull(Last(tblR!ImpDateR)) And IsNull(Last(tblCod!ExpDateCod)) And IsNull(Last(tblCod!ImpDateCod)),J_DIFF(Last(tblDON E!EntryDate),J_TODAY(1)),""))>Forms!form1!Text08));