ورود

View Full Version : سوال: تغییر سایز پنجره اکسس



Milad_ATM
دوشنبه 18 فروردین 1399, 23:45 عصر
سلام
با توجه به تصویر میخوام زمانی که برنامم رو اجرا میکنم پنجره اکسس به سایز دلخواه من تغییر کنه.
در واقع میخوام پنجره خود اکسس رو به سایزی تغییر بدم که پشت پنجره های برنامه خودم قرار بگیره و مشخص نباشه.
همچین چیزی ممکن هست و اگه هست چطوری میتونم اینکارو انجام بدم؟


151555

Milad_ATM
سه شنبه 26 فروردین 1399, 07:29 صبح
دوستان امکان همچین کاری وجود داره؟

mazoolagh
سه شنبه 26 فروردین 1399, 18:55 عصر
یک روشی قبلا اینجا معرفی شده بود - و البته خیلی هم بد بود و خیلی هم طرفدار داشت!

نمیدونم اون رو جستجو کردین یا نه ، ولی میتونین از روش زیر هم استفاده کنین:
1- سه property هست که باید اونها رو false کنین
show document tabs
startup show DB window
startup show statusbar
اینکار رو هم میتونین از داخل برنامه و هم از بیرون انجام بدین،
اگر از داخل برنامه اینکار رو میکنین باید در form open فرم startup باشه
و یک شرط هم در برنامه باشه که بتونین اون رو چک کنین.
چون برنامه ای که دست کاربر میرسه فرمتش accde هست ، بهترین شرط چک کردن همین مورد هست.

2- ribbon رو خاموش کنین
اینکار فقط از داخل خود برنامه باید انجام بشه و داستان شرط اینجا هم صادق هست.

Milad_ATM
پنج شنبه 28 فروردین 1399, 08:53 صبح
سلام مجدد
و ممنون از راهنماییتون
من کد
show document tabs
رو تونستم بنویسم ولی دو مورد دیگه رو نیاز به راهنمایی دارم.

151602
مرسی

mazoolagh
پنج شنبه 28 فروردین 1399, 09:40 صبح
سلام
نمونه میگذارم - ولی value نیاز نیست

mazoolagh
پنج شنبه 28 فروردین 1399, 12:24 عصر
در نمونه پیوست فرض بر این گذاشته شده که قرار هست فایل accde دست مشتری برسه.
بنابراین در startup form وضعیت رو چک میکنیم.

اول یک تابع مینویسیم که چک میکنه آیا برنامه به فرمت accde ذخیره شده یا نه:

mazoolagh
پنج شنبه 28 فروردین 1399, 12:36 عصر
Public Function IsAccde() As Boolean
IsAccde = False
On Error Resume Next
IsAccde = (CurrentDb.Properties("mde") = "t")
End Function

mazoolagh
پنج شنبه 28 فروردین 1399, 12:38 عصر
Private Sub Form_Open(Cancel As Integer)
Dim Hide As Boolean
Hide = IsAccde
CurrentDb.Properties("ShowDocumentTabs") = Not Hide
CurrentDb.Properties("StartUpShowDBWindow") = Not Hide
CurrentDb.Properties("StartUpShowStatusBar") = Not Hide
DoCmd.ShowToolbar "ribbon", IIf(Hide, acToolbarNo, acToolbarYes)
End Sub

mazoolagh
پنج شنبه 28 فروردین 1399, 12:40 عصر
برنامه پیوست:

mazoolagh
پنج شنبه 28 فروردین 1399, 12:42 عصر
فقط دقت کنین که وقتی برنامه به فرمت accde ذخیره شد،
در اجرای اول property ها set میشن
و از اجرای دوم هست که اثرش دیده میشه