Printable View
سلا دوستان
مدتها بود میخواستم پنجره اکسس رو در زمان اجرای برنامه مخفی کنم
نتونستم انجامش بدم و بالاخره با این کد minimizeش کردم :
DoCmd.RunCommand acCmdAppMinimize
حالا به مشکل در نمایش Reportها برخوردم که قطعاً علتش همین کد هست
در زمان اجرای Report و Minimize شدن خودکار پنجره اکسس این اتفاق میفته :
ضمیمه 151816
و در زمانی که فایل رو بدون این کد و یا با کلید شیفت اجرا میکنم به صورت صحیح Report نمایش داده میشه:
ضمیمه 151817
لطفاً راهنمایی کنید-مرسی
دوستان کسی به این مشکل بر نخورده؟
سلامنقل قول:
نوشته شده توسط Milad_ATM
از کد دستوری DoCmd.RunCommand acCmdAppMinimize برای مینیمایز کردن پنجره اکسس استفاده میشود نه مخفی کردن آن
برای مخفی کردن پنجره اکسس از کدهای دیگر استفاده میشود که با قدری جستجو در تالار اکسس میتوانید به آن دست پیدا کنی
موفق باشی
دوست عزیز در مطلب اول به این مساله اشاره کردمنقل قول:
نوشته شده توسط eb_1345
کاملا این مساله رو میدونم
و بدلیل غیر استاندارد بودن مخفی کردن پنجره اکسس تصمیم گرفتم جهت عدم نمایش اون Minimizeش کنم
طبق متن و تصاویر سوال این بود که علت عدم نمایش صحیح Report در این حالت Minimize چی هست؟
سلام . برین در قسمت پروپرتی و گزینه های پاپ آپ و مدول را یس کنید و در قسمت اوپن ریپورت دستور ماکسیماز را بنویسید
ممنون از پاسختوننقل قول:
نوشته شده توسط mosaArabi
ریپورتها همگی Modal و popup هستند.
برای باز شدن ریپورتم از این ماکرو استفاده کردم:
چطوری باید ماکیمایز کنم ؟
ضمیمه 151836
سلام . در قسمت اوپن ریپورت هم دستور ماکسیماز را زدین؟
ضمنا در دستور بالا در قسمت ویو که ریپورت انتخاب شده . ریپورت پریویو را انتخاب کنید
بله ولی تاثیر نداشت
میتونید نمونه فایل بفرستین تا بررسی بشه مشکل
سلام . این کار رو انجام بدین . فرم رو هنگام بازشدن ماکزیمایز کنید . مشکلی بود اعلام کنید
ضمیمه 151909
متاسفانه کاملاً بهم ریخته و ناقص اجرا شد!
میخوام با اندازه اصلی که تنظیم کردم که همون سایز واقعی پرینت هم هست اجرا بشه که نمیشه:اشتباه:
ضمیمه 151972
این مارو رو برای مخفی کردن امتحان کنید .
نمونه فایل مخفی نمودن پنجره اکسس . بدون مشکل ریپورت
این مورد فکر میکنم برای آفیس 32بیت قابل انجام هستنقل قول:
نوشته شده توسط padide55
ضمیمه 151975
برای رفع مشکل در آفیس 64 بیتی باید درکدهای مربوط به Win-API باید درجلو کلمه Declare کلمه کلیدی PtrSafe اضافه شود.نقل قول:
نوشته شده توسط Milad_ATM
کد مربوطه درقسمت ماژول رو بصورت زیر تغییر بده !
#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
موفق باشی
نقل قول:
نوشته شده توسط Milad_ATM
کد بازکردن ریپورت رو تغییر بدین
ببینید تغییری در نمایش ایجاد میشه ؟
ضمیمه 151976
این روش رو امتحان کردم اول خوشحال شدم و فکر کردم بالاخره موفق شدم انجامش بدمنقل قول:
نوشته شده توسط eb_1345
ولی مشکل اینه که فرم های بعد از Form Default اصلا باز نمیشن!
این روش جواب دادنقل قول:
نوشته شده توسط padide55
ممنونم دوست عزیز