Fazaeli
پنج شنبه 06 مهر 1385, 08:42 صبح
باسلام
در بخش دیتا بیس ها و برنامه های کاربردی در قسمت فرم ویژه فایلی رو گذاشتم ، فکر کردم یه پست براش بسازم چون بدرد تحویل پروژه دوستان قطعاً میخوره چون user فقط فرم ها رو میبینه و برنامه اکسس به همراه Objectها مخفی میشن (مثل پیوستی که در زیر گذاشتم)حالا به نحوه انجام آن با اجازه تمام استادان ودوستان میپردازیم.
اول: تمام فرمهای خود را بصورت زیر ست کنید
pop up = Yes, Modal = Yes
بعدکد زیر را در ماژول کپی کنید
Option Compare Database
Option Explicit
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
سپس درonLoad eventفرم کد زیر را وارد نمائید
Call fSetAccessWindow(2)
در تابع ftSetAccessWindow(باتوجه به کد بالا)اگرداخل پرانتز 0باشدبرنامه اکسس مخفی میشود اگر 1باشد نرمال اگر 3باشد مگزیمایز واگر 2باشد مینی مایز میشود
امتحان کنید
باتشکر
م.فضائلی
در بخش دیتا بیس ها و برنامه های کاربردی در قسمت فرم ویژه فایلی رو گذاشتم ، فکر کردم یه پست براش بسازم چون بدرد تحویل پروژه دوستان قطعاً میخوره چون user فقط فرم ها رو میبینه و برنامه اکسس به همراه Objectها مخفی میشن (مثل پیوستی که در زیر گذاشتم)حالا به نحوه انجام آن با اجازه تمام استادان ودوستان میپردازیم.
اول: تمام فرمهای خود را بصورت زیر ست کنید
pop up = Yes, Modal = Yes
بعدکد زیر را در ماژول کپی کنید
Option Compare Database
Option Explicit
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
سپس درonLoad eventفرم کد زیر را وارد نمائید
Call fSetAccessWindow(2)
در تابع ftSetAccessWindow(باتوجه به کد بالا)اگرداخل پرانتز 0باشدبرنامه اکسس مخفی میشود اگر 1باشد نرمال اگر 3باشد مگزیمایز واگر 2باشد مینی مایز میشود
امتحان کنید
باتشکر
م.فضائلی