باز کردن فرم با شرط [بایگانی]

parsa70

یک شنبه 01 تیر 1399, 22:34 عصر

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

parsa70

سه شنبه 03 تیر 1399, 11:02 صبح

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

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

mazoolagh

شنبه 07 تیر 1399, 08:16 صبح

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

parsa70

شنبه 07 تیر 1399, 09:11 صبح

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

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

parsa70

چهارشنبه 05 آذر 1399, 12:36 عصر

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

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

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

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

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

padide55

چهارشنبه 05 آذر 1399, 13:02 عصر

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

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

چهارشنبه 05 آذر 1399, 13:58 عصر

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

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

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

parsa70

چهارشنبه 05 آذر 1399, 20:25 عصر

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

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

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

parsa70

پنج شنبه 06 آذر 1399, 07:13 صبح

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

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

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