隐藏访问窗口 [英] Hide Access Window
问题描述
!!!! FIRST !!!暂停代码放入一个必须被称为SetAccessWindow的模块中
选项比较数据库
选项明确
Global Const SW_HIDE = 0
Global Const SW_SHOWNORMAL = 1
Global Const SW_SHOWMINIMIZED = 2
Global Const SW_SHOWMAXIMIZED = 3
私有声明函数apiShowWindow Lib" user32" _
Alias" ShowWindow" （ByVal hWnd As Long，_
ByVal nCmdShow As Long）As long
函数fSetAccessWindow（nCmdShow As Long）
Dim loX As Long
Dim loform As Form
On Error Resume Next
设置loform = Screen.ActiveForm
如果Err<> 0然后
loX = apiShowWindow（hWndAccessApp，nCmdShow）
Err.Clear
结束如果
如果nCmdShow = SW_SHOWMINIMIZED并且loform.Modal = True则
MsgBox无法最小化访问权限 _
& （loform.Caption +""）_
& 屏幕上的表格
ElseIf nCmdShow = SW_HIDE和loform.PopUp<> True然后
MsgBox无法隐藏访问权限 _
& （loform.Caption +""）_
& 屏幕上的表格
否则
loX = apiShowWindow（hWndAccessApp，nCmdShow）
结束如果
fSetAccessWindow =（loX<> 0）
结束功能
!!! SECOND !!!你必须将这段代码粘贴到每个表格中
Private Sub Form_Load（）
调用fSetAccessWindow（0）
结束Sub
上面的代码在表单上很有用，但是我无法在Reports上运行它。帮助？
!!!!FIRST!!! The fallowing code gets placed into a module that has to be called "SetAccessWindow"
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
!!!SECOND!!! you have to paste this code into every form
Private Sub Form_Load()
Call fSetAccessWindow(0)
End Sub
The above code works great on forms, but i cant get it to function on Reports. Help?
推荐答案
!!!! FIRST !!!暂停代码放入一个必须被称为SetAccessWindow的模块中
选项比较数据库
选项明确
Global Const SW_HIDE = 0
Global Const SW_SHOWNORMAL = 1
Global Const SW_SHOWMINIMIZED = 2
Global Const SW_SHOWMAXIMIZED = 3
私有声明函数apiShowWindow Lib" user32" _
Alias" ShowWindow" （ByVal hWnd As Long，_
ByVal nCmdShow As Long）As long
函数fSetAccessWindow（nCmdShow As Long）
Dim loX As Long
Dim loform As Form
On Error Resume Next
设置loform = Screen.ActiveForm
如果Err<> 0然后
loX = apiShowWindow（hWndAccessApp，nCmdShow）
Err.Clear
结束如果
如果nCmdShow = SW_SHOWMINIMIZED并且loform.Modal = True则
MsgBox无法最小化访问权限 _
& （loform.Caption +""）_
& 屏幕上的表格
ElseIf nCmdShow = SW_HIDE和loform.PopUp<> True然后
MsgBox无法隐藏访问权限 _
& （loform.Caption +""）_
& 屏幕上的表格
否则
loX = apiShowWindow（hWndAccessApp，nCmdShow）
结束如果
fSetAccessWindow =（loX<> 0）
结束功能
!!! SECOND !!!你必须将这段代码粘贴到每个表格中
Private Sub Form_Load（）
调用fSetAccessWindow（0）
结束Sub
上面的代码在表单上很有用，但是我无法在Reports上运行它。救命？
!!!!FIRST!!! The fallowing code gets placed into a module that has to be called "SetAccessWindow"
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
!!!SECOND!!! you have to paste this code into every form
Private Sub Form_Load()
Call fSetAccessWindow(0)
End Sub
The above code works great on forms, but i cant get it to function on Reports. Help?
报告窗口的''句柄''由其 hWnd 属性定义。您是否正确地将此值传递给API函数，类似于：
The ''Handle'' to a Report Window is defined by its hWnd Property. Are you properly passing this value to the API Function, something similar to:
loX = apiShowWindow（Reports！rptYourReport。 hWnd，nCmdShow）
我尝试在代码中粘贴上面的内容我看到它以lox =开头但没有成功。我是否需要为每个报告编写此代码我将报告名称放在rptYourReport中？
我使用此代码就像您在此处看到的那样页面，它适用于我的所有表格就好了，它可能与形式有关吗？通过代码使用的verbage？我尝试将其更改为报告并且仍然没有运气。
loX = apiShowWindow(Reports!rptYourReport.hWnd, nCmdShow)
I tried pasting the above in the code were i saw it begin with "lox=" but no success. do i need to write this code for every report i have a place the report name in "rptYourReport"?
I use this code just the way you see it at the top of this page and it works on all my forms just fine, could it have something to do with the "form" verbage used through out the code? i tried changing this to "report" and still had no luck.
loX = apiShowWindow（Reports！rptYourReport.hWnd，nCmdShow）
我尝试在代码中粘贴上面的内容，我看到它以lox =开头但没有成功。我是否需要为每个报告编写此代码我将报告名称放在rptYourReport中？
我使用此代码就像您在此处看到的那样页面，它适用于我的所有表格就好了，它可能与形式有关吗？通过代码使用的verbage？我尝试将其更改为报告并且仍然没有运气。
loX = apiShowWindow(Reports!rptYourReport.hWnd, nCmdShow)
I tried pasting the above in the code were i saw it begin with "lox=" but no success. do i need to write this code for every report i have a place the report name in "rptYourReport"?
I use this code just the way you see it at the top of this page and it works on all my forms just fine, could it have something to do with the "form" verbage used through out the code? i tried changing this to "report" and still had no luck.
__ 1。报告必须打开才能使代码生效。
__ 2。您只需传递''处理' '对API函数的打开报告：
__1. The Reports must be Open for the code to work.
__2. You need only pass the ''Handle'' of the open Report to the API Function:
这篇关于隐藏访问窗口的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！
