مخفی کردن پنجره اصلی اکسس

[salambeshoma]

سلام دوستان من خیلی وقته دنبال موضوع مخفی کردن محیط اکسس هستم ولی کدها رو میذارم تو فایلم بهمراه ماژول مربوطه ولی کلا مخفی میشه و مینی مایز میمونه تا ریستارت کنم لطفا منم راهنمایی بفرمایین

[hamid-nice]

با سلام
از کدام ماژول استفاده می کنید؟
مراحل زیر را انجام بدید و تست کنید :
1-pop up فرم و report ها را باید yes کنید
2- برای خروج از برنامتون نباید از دگمه close فرم استفاده کنید بلکه باید یک دگمه درست کنید و دستور خروج از اکسس را براش بنویسید یعنی : DoCmd.Quit
3- دستور docmd.Maximize یا ... را در onload یا onopen فرمهاتون قرار بدید
4-برای report ها هم دستور docmd.restore را باید بکار ببرید
موفق باشید

[saeed1234n]

با سلام

دوستان عزیز

برای جامع شدن تاپیک خیلی بهتر میبود در ابتدا روشی را که استفاده می کنید بهمراه ماژولهای مربوطه قرار دهید تا جنبه آموزشی هم داشته باشد .

[salambeshoma]

اینم یه نمونه ساده برای درک خودم لطفا اصلاح بفرمایین

[saeed1234n]

با سلام

دوست عزیز نمونه شما اصلاح شد .

109572

[salambeshoma]

ممنون سعید جان فقط این دستور که تو قسمت on open فرم هستش اگه چند تا فرم بود همین کار رو بکنم ؟

[com12151337]

سلام جناب saeed1234n
اگر ممکنه بیشتر توضیح بدهید در چه قسمتهایی چه دستوری نوشته خواهد شد
ممنون

[saeed1234n]

با سلام
دوست عزیز


اگر ممکنه بیشتر توضیح بدهید در چه قسمتهایی چه دستوری نوشته خواهد شد

ابتدا باید ماژول مربوطه را وارد برنامه اتان نمایید و در رویداد on open فرمتان آن را فراخوانی کنید .

[salambeshoma]

آقا سعید منظورم اینکه اگه چند تا فرم داشته باشیم همین کار رو بکنیم و برای گرارشات چطور و جداول و کوئری چطور ممنون از صبر و حوصله شما

[com12151337]

سلام
میشه خواهش کنم ماژول را بزارید .

[saeed1234n]

با سلام
دوست عزیز میتوانستید ماژول را از داخل برنامه ارائه شده نیز استخراج کنید

با اینحال بفرمایید :


Global Const SW_HIDE = 0
Global Const SW_SHOWNORMAL = 1
Global Const SW_SHOWMINIMIZED = 2
Global Const SW_SHOWMAXIMIZED = 3

Private Declare Function apiShowWindow Lib "user32" _
Alias "ShowWindow" (ByVal hwnd As Long, _
ByVal nCmdShow As Long) As Long

Function fSetAccessWindow(nCmdShow As Long)

Dim loX As Long
Dim loForm As Form
On Error Resume Next
Set loForm = Screen.ActiveForm

If Err <> 0 Then
loX = apiShowWindow(hWndAccessApp, nCmdShow)
Err.Clear
End If

If nCmdShow = SW_SHOWMINIMIZED And loForm.Modal = True Then
MsgBox "Cannot minimize Access with " _
& (loForm.Caption + " ") _
& "form on screen"
ElseIf nCmdShow = SW_HIDE And loForm.PopUp <> True Then
MsgBox "Cannot hide Access with " _
& (loForm.Caption + " ") _
& "form on screen"
Else
loX = apiShowWindow(hWndAccessApp, nCmdShow)
End If
fSetAccessWindow = (loX <> 0)
End Function

[salambeshoma]

سعید جان یکمم منو راهنمایی کن
1- برا کل فرمها شامل میشه
2- گراشات چطور تنظیم بشه
3 - جداول و کوئری ها چطور
ممنون دوست عزیزم:خجالت:

[salambeshoma]

دوستان !!!!!

[saeed1234n]

با سلام

دوست عزیز فکر کنم اگر یکبار ماژول را فراخوانی کند دیگر مشکلی نخواهید داشت .

[hashemi.hanieh]

سلام
من برای مخفی کردن پنجره اکسس از همین قاعده استفاده کردم و برای باز کردن گزارشات هم از دستور Docmd.Restore در قسمت on open گزارش استفاده کردم اما در زمان اجرا شدن گزارش به صورت خالی نمایش داده میشه... و باید روی صفحه گزارش با موس کلیک کنم تا یکی یکی فیلد ها نمایش داده بشه.. به نظر شما مشکل چیه؟؟!!

[meli66]

اقا سعید اگه لطف بکنید و راهنمائی کنید که چه طور این نمونه شمارو با فرمت mbdمیشه مشاهده کرد خیلی خوب میشه چون نمونه هائی که شما میزارین خیلی آموزنده هستند.

[saeed1234n]

اگه لطف بکنید و راهنمائی کنید که چه طور این نمونه شمارو با فرمت mbdمیشه مشاهده کرد خیلی خوب میشه چون نمونه هائی که شما میزارین خیلی آموزنده هستند.

با سلام

دوست عزیز نمونه شما پیوست شد .

110174