مشکل در نمایش Report

[Milad_ATM]

سلا دوستان
مدتها بود میخواستم پنجره اکسس رو در زمان اجرای برنامه مخفی کنم
نتونستم انجامش بدم و بالاخره با این کد minimizeش کردم :

DoCmd.RunCommand acCmdAppMinimize

حالا به مشکل در نمایش Reportها برخوردم که قطعاً علتش همین کد هست

در زمان اجرای Report و Minimize شدن خودکار پنجره اکسس این اتفاق میفته :
151816

و در زمانی که فایل رو بدون این کد و یا با کلید شیفت اجرا میکنم به صورت صحیح Report نمایش داده میشه:
151817

لطفاً راهنمایی کنید-مرسی

[Milad_ATM]

دوستان کسی به این مشکل بر نخورده؟

[eb_1345]

دوستان کسی به این مشکل بر نخورده؟
سلام
از کد دستوری DoCmd.RunCommand acCmdAppMinimize برای مینیمایز کردن پنجره اکسس استفاده میشود نه مخفی کردن آن
برای مخفی کردن پنجره اکسس از کدهای دیگر استفاده میشود که با قدری جستجو در تالار اکسس میتوانید به آن دست پیدا کنی
موفق باشی

[Milad_ATM]

سلام
از کد دستوری DoCmd.RunCommand acCmdAppMinimize برای مینیمایز کردن پنجره اکسس استفاده میشود نه مخفی کردن آن
برای مخفی کردن پنجره اکسس از کدهای دیگر استفاده میشود که با قدری جستجو در تالار اکسس میتوانید به آن دست پیدا کنی
موفق باشی

دوست عزیز در مطلب اول به این مساله اشاره کردم
کاملا این مساله رو میدونم
و بدلیل غیر استاندارد بودن مخفی کردن پنجره اکسس تصمیم گرفتم جهت عدم نمایش اون Minimizeش کنم
طبق متن و تصاویر سوال این بود که علت عدم نمایش صحیح Report در این حالت Minimize چی هست؟

[mosaArabi]

سلام . برین در قسمت پروپرتی و گزینه های پاپ آپ و مدول را یس کنید و در قسمت اوپن ریپورت دستور ماکسیماز را بنویسید

[Milad_ATM]

سلام . برین در قسمت پروپرتی و گزینه های پاپ آپ و مدول را یس کنید و در قسمت اوپن ریپورت دستور ماکسیماز را بنویسید
ممنون از پاسختون
ریپورتها همگی Modal و popup هستند.

برای باز شدن ریپورتم از این ماکرو استفاده کردم:
چطوری باید ماکیمایز کنم ؟
151836

[mosaArabi]

سلام . در قسمت اوپن ریپورت هم دستور ماکسیماز را زدین؟
ضمنا در دستور بالا در قسمت ویو که ریپورت انتخاب شده . ریپورت پریویو را انتخاب کنید

[Milad_ATM]

بله ولی تاثیر نداشت

[mosaArabi]

میتونید نمونه فایل بفرستین تا بررسی بشه مشکل

[padide55]

سلام . این کار رو انجام بدین . فرم رو هنگام بازشدن ماکزیمایز کنید . مشکلی بود اعلام کنید
151909

[Milad_ATM]

متاسفانه کاملاً بهم ریخته و ناقص اجرا شد!
میخوام با اندازه اصلی که تنظیم کردم که همون سایز واقعی پرینت هم هست اجرا بشه که نمیشه:اشتباه:

151972

[padide55]

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

[Milad_ATM]

این مارو رو برای مخفی کردن امتحان کنید .
نمونه فایل مخفی نمودن پنجره اکسس . بدون مشکل ریپورت
این مورد فکر میکنم برای آفیس 32بیت قابل انجام هست

151975

[eb_1345]

این مورد فکر میکنم برای آفیس 32بیت قابل انجام هست


برای رفع مشکل در آفیس 64 بیتی باید درکدهای مربوط به Win-API باید درجلو کلمه Declare کلمه کلیدی PtrSafe اضافه شود.
کد مربوطه درقسمت ماژول رو بصورت زیر تغییر بده !


#If Win64 Then
Private Declare PtrSafe Function apiShowWindow Lib "user32" Alias "ShowWindow" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
#Else
Private Declare Function apiShowWindow Lib "user32" Alias "ShowWindow" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
#End If



موفق باشی

[padide55]

ممنون از پاسختون
ریپورتها همگی Modal و popup هستند.

برای باز شدن ریپورتم از این ماکرو استفاده کردم:
چطوری باید ماکیمایز کنم ؟
151836


کد بازکردن ریپورت رو تغییر بدین
ببینید تغییری در نمایش ایجاد میشه ؟

151976

[Milad_ATM]

برای رفع مشکل در آفیس 64 بیتی باید درکدهای مربوط به Win-API باید درجلو کلمه Declare کلمه کلیدی PtrSafe اضافه شود.
کد مربوطه درقسمت ماژول رو بصورت زیر تغییر بده !


#If Win64 Then
Private Declare PtrSafe Function apiShowWindow Lib "user32" Alias "ShowWindow" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
#Else
Private Declare Function apiShowWindow Lib "user32" Alias "ShowWindow" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
#End If



موفق باشی

این روش رو امتحان کردم اول خوشحال شدم و فکر کردم بالاخره موفق شدم انجامش بدم
ولی مشکل اینه که فرم های بعد از Form Default اصلا باز نمیشن!

[Milad_ATM]

کد بازکردن ریپورت رو تغییر بدین
ببینید تغییری در نمایش ایجاد میشه ؟

151976

این روش جواب داد
ممنونم دوست عزیز