باز کردن فرم با شرط

[parsa70]

سلام من با این روش ها میخوام یک فرم با شرط یک تاریخ باز کنه ولی فقط فرم خالی نشون میده روش دیگه ای بلد هستید؟
ممنون
https://docs.microsoft.com/en-us/off...docmd.openform

[parsa70]

سلام
من با این کد این مشکل رو رفع کردم و فرم با فیلتر باز میشه
DoCmd.OpenForm "frmaghsat", , , "tarikhaghsat=slash(shamsi())"

الان میخوام فرم بین تاریخ امروز و چند روز قبل فیلتر بشه، راهی به نظرتون نمیرسه؟؟
چون فرم الان فقط تاریخ امروز رو باز میکنه
این کد هم میزنم Between Slash(shamsi()) And Slash(SubDay(Slash(shamsi()),3))
ارور میده موقع باز شدن فرم.
سپاس

[mazoolagh]

روی docmd.openform یک breakpoint بگذارین و عبارت where رو چک کنین.
اون کد between هم که قطعا ایراد داره چون هیچ فیلدی مشخص نشده!

[parsa70]

این کد رو زدم جواب میده نویگیشن باتن هم گفتم on باشه که بشه بین روزها فرم ها رو جابجا کرد.

DoCmd.OpenForm "frmaghsat", , , "[tarikhaghest] <= slash(shamsi())And [tarikhaghest] >= Slash(SubDay(Slash(shamsi()),3))"

Forms("frmaghsat").NavigationButtons = True

[parsa70]

سلام
یک فرم رو بایک شرط باز میکنم که این هست:

DoCmd.OpenForm "frmdata", , , "[Deliverydate] >= slash(shamsi())And [Deliverydate] <= Slash(addDay(Slash(shamsi()),3))"

اگه بخوام یک شرط دیگه هم بزارم یعنی با دو شرط باز بشه چطوری این کارو بکنم؟

فرض کنید داخل فرم یک فیلد دارم از نوع تسکت باگس به نام STatus که ۲ حالت داره "انجام شد" و "دردست اقدام"

و میخوام فرم با دو شرط یکی delivery date که درست هست و دومی بر اساس status فیلتر کنه.
ممنون میشم راهنمایی فرمایید
سپاس

[padide55]

سلام
یک فرم رو بایک شرط باز میکنم که این هست:

DoCmd.OpenForm "frmdata", , , "[Deliverydate] >= slash(shamsi())And [Deliverydate] <= Slash(addDay(Slash(shamsi()),3))"

اگه بخوام یک شرط دیگه هم بزارم یعنی با دو شرط باز بشه چطوری این کارو بکنم؟

فرض کنید داخل فرم یک فیلد دارم از نوع تسکت باگس به نام STatus که ۲ حالت داره "انجام شد" و "دردست اقدام"

و میخوام فرم با دو شرط یکی delivery date که درست هست و دومی بر اساس status فیلتر کنه.
ممنون میشم راهنمایی فرمایید
سپاس

میتونید همچنان and اضافه کنید برای شرط بعدی .

DoCmd.OpenForm "frmdata", , , "[Deliverydate] >= slash(shamsi())And [Deliverydate] <= Slash(addDay(Slash(shamsi()),3))and (status="دردست اقدام" )"

[parsa70]

نمونه.zip

میتونید همچنان and اضافه کنید برای شرط بعدی .

DoCmd.OpenForm "frmdata", , , "[Deliverydate] >= slash(shamsi())And [Deliverydate] <= Slash(addDay(Slash(shamsi()),3))and (status="دردست اقدام" )"

سلام
من کد شما رو میزنم ارور میده بیزحمت ملاحضه می فرمایید.
سپاس

[parsa70]

میتونید همچنان and اضافه کنید برای شرط بعدی .

DoCmd.OpenForm "frmdata", , , "[Deliverydate] >= slash(shamsi())And [Deliverydate] <= Slash(addDay(Slash(shamsi()),3))and (status="دردست اقدام" )"

درست بود من یکجا رو اشتباه می‌زدم ممنون.

[parsa70]

میتونید همچنان and اضافه کنید برای شرط بعدی .

DoCmd.OpenForm "frmdata", , , "[Deliverydate] >= slash(shamsi())And [Deliverydate] <= Slash(addDay(Slash(shamsi()),3))and (status="دردست اقدام" )"

اون قسمت آخر کد نویسی "دردست اقدام" باید با تک پوتیشن وارد می‌شد.
سپاس