نقل قول: تغییر سایز پنجره اکسس
دوستان امکان همچین کاری وجود داره؟
نقل قول: تغییر سایز پنجره اکسس
یک روشی قبلا اینجا معرفی شده بود - و البته خیلی هم بد بود و خیلی هم طرفدار داشت!
نمیدونم اون رو جستجو کردین یا نه ، ولی میتونین از روش زیر هم استفاده کنین:
1- سه property هست که باید اونها رو false کنین
show document tabs
startup show DB window
startup show statusbar
اینکار رو هم میتونین از داخل برنامه و هم از بیرون انجام بدین،
اگر از داخل برنامه اینکار رو میکنین باید در form open فرم startup باشه
و یک شرط هم در برنامه باشه که بتونین اون رو چک کنین.
چون برنامه ای که دست کاربر میرسه فرمتش accde هست ، بهترین شرط چک کردن همین مورد هست.
2- ribbon رو خاموش کنین
اینکار فقط از داخل خود برنامه باید انجام بشه و داستان شرط اینجا هم صادق هست.
1 ضمیمه
نقل قول: تغییر سایز پنجره اکسس
سلام مجدد
و ممنون از راهنماییتون
من کد show document tabs
رو تونستم بنویسم ولی دو مورد دیگه رو نیاز به راهنمایی دارم.
ضمیمه 151602
مرسی
نقل قول: تغییر سایز پنجره اکسس
سلام
نمونه میگذارم - ولی value نیاز نیست
نقل قول: تغییر سایز پنجره اکسس
در نمونه پیوست فرض بر این گذاشته شده که قرار هست فایل accde دست مشتری برسه.
بنابراین در startup form وضعیت رو چک میکنیم.
اول یک تابع مینویسیم که چک میکنه آیا برنامه به فرمت accde ذخیره شده یا نه:
نقل قول: تغییر سایز پنجره اکسس
Public Function IsAccde() As Boolean
IsAccde = False
On Error Resume Next
IsAccde = (CurrentDb.Properties("mde") = "t")
End Function
نقل قول: تغییر سایز پنجره اکسس
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
1 ضمیمه
نقل قول: تغییر سایز پنجره اکسس
نقل قول: تغییر سایز پنجره اکسس
فقط دقت کنین که وقتی برنامه به فرمت accde ذخیره شد،
در اجرای اول property ها set میشن
و از اجرای دوم هست که اثرش دیده میشه