Access 2007 Показать в полный экран

Question

Может ли кто-нибудь сказать мне, как я могу показать полный экран в форме в Access 2007, чтобы не открывались панели инструментов и т. Д., Поэтому никто не может вмешиваться в что-либо?

Приветствия, Ник C

Answer 1

Есть несколько способов сделать это. Ниже приведен список одного из самых маленьких. К сожалению, я не помню, откуда у меня этот код, поэтому я не могу отдать должное там, где это необходимо.

Вставьте код ниже в новый модуль в вашей базе данных.

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 DoAccessWindow(nCmdShow As Long) 
' This function can minimize Access behind the scenes. 

'Usage Examples 
'Maximize window: 
'  ?DoAccessWindow(SW_SHOWMAXIMIZED) 
'Minimize window: 
'  ?DoAccessWindow(SW_SHOWMINIMIZED) 
'Hide window: 
'  ?DoAccessWindow(SW_HIDE) 
'Normal window: 
'  ?DoAccessWindow(SW_SHOWNORMAL) 
' 
Dim loX As Long 
Dim loform As Form 
    On Error Resume Next 
    Set loform = Screen.ActiveForm 
    If Err <> 0 Then 'no Activeform 
     If nCmdShow = SW_HIDE Then 
     MsgBox "Cannot hide Access unless a form is on screen" 
     Else 
     loX = apiShowWindow(hWndAccessApp, nCmdShow) 
     Err.Clear 
     End If 
    Else 
     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 
    End If 
    DoAccessWindow = (loX <> 0) 
End Function 

Теперь вы можете использовать функцию DoAccessWindow(), чтобы запутаться в окне Access. Возможно, вам захочется поиграть с опцией hide, так как полностью скрывает интерфейс Access. Слово предупреждения, любая форма, которую вы хотите отобразить, должна быть всплывающей и модальной, чтобы быть видимой.

Так, например, в событии Form_Open вы можете использовать код DoAccessWindow (0), чтобы скрыть интерфейс Access, а затем в событии Form_Close вы бы использовали DoAccessWindow (1), чтобы снова показать интерфейс.