Masquer la fenêtre d'accès lors de l'ouverture d'un formulaire

C'est ce que j'utilise qui fonctionne à l'horizon 2016:

Option Compare Database
Option Explicit

'''HIDE WINDOW MODULE
'''USE THIS TO ACTIVATE HIDE WINDOW MODULE
''' SixHatHideWindow(SW_SHOWMINIMIZED)

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 SixHatHideWindow(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
    SixHatHideWindow = (loX <> 0)
End Function

Pour Masquer la Fenêtre tout Simplement: Call SixHatHideWindow(SW_SHOWMINIMIZED)

AUSSI REMARQUE: Selon la Version c'est à dire 32 bits ou 64 bits, vous devrez peut-être ajouter le PtrSafe attribut donc, Si vous rencontrez des problèmes avec ce Déclarer l'API de la Fonction comme ceci: Private Declare PtrSafe Function apiShowWindow...

OriginalL'auteur Anthony Griggs

Je cherche à atteindre cacher l'Accès à la fenêtre de l'application et de l'utilisation popup formes que je puisse l'exécuter à partir d'Outlook. Voilà comment j'ai couru à travers ce post. Mais j'ai trouvé qu'avec Outlook 2013 64 bits sur Windows 7 64 bits, on n'a même pas besoin de la SixHatHideWindow fonction. En utilisant le code suivant dans Outlook 2013 accomplit la même chose. (N'oubliez pas d'ajouter une référence à la bibliothèque d'objets en VBA.) Cette procédure enregistre la légende de la fenêtre Outlook, démarre une nouvelle instance masquée de l'Accès (la fenêtre de l'application n'est pas visible), ouvre l'Accès de base de données, exécute le formulaire prévu à cet effet (visible), sort de l'Accès de l'instance lorsque le formulaire est fermé, et ré-active l'origine Outlook fenêtre active. Je n'ai pas testé dans tout autre environnement, ni avec le runtime Access.

La grande chose au sujet de cette approche est qu'il ne nécessite pas que tout code spécial inséré dans la forme ouverte de l'événement dans la base de données Access. Tout le code nécessaire est contenue dans Outlook VBA. Ni la base de données du formulaire popup et propriétés modales besoin d'être réglé sur "Oui" dans la base de données.

La forme dans ce cas est une forme complexe, avec un onglet de contrôle et de plusieurs sous-formulaires. Tout semble fonctionner si le formulaire est ouvert à partir de l'Accès lui-même ou par l'intermédiaire de l'automatisation à partir d'Outlook.

Remarque: Le SetWindowPos api permet de définir l'emplacement et la taille de l'Accès de la fenêtre principale, même si l'Accès n'est pas visible. Lorsque l'Accès est fermé, la prochaine fois que l'utilisateur ouvre l'Accès, il sera ré-ouvert à la taille et à la position définie par l'api SetWindowPos. Cela pourrait être gênant pour les utilisateurs, de sorte que le SetWindowPos api définit l'Accès à la fenêtre de l'application en plein écran de la taille. La prochaine fois que l'utilisateur ouvre l'Accès, il sera agrandie sur leur écran. Il peut y avoir davantage de moyens sophistiqués pour gérer cela, mais cette approche est rapide et facile, et la plupart des utilisateurs de travailler avec Accès agrandie dans la plupart des cas, de toute façon.

Espère que cela aide quelqu'un à sortir.

Private Declare PtrSafe Function SetWindowPos Lib "user32.dll" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, _
ByVal X As Long, ByVal Y As Long, ByVal cX As Long, ByVal cY As Long, ByVal wFlags As Long) As Long
Private Declare PtrSafe Function GetClientRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT) As Long
Private Declare PtrSafe Function GetDesktopWindow Lib "user32" () As Long
Private Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type
Sub OpenAccessFrmProjDetails()
Dim accapp As Access.Application
Dim HoldCaption As String
Dim ScreenRect As RECT
Dim ret As Long
Dim width As Variant
Dim height As Variant
'Get the width and height of the screen in pixels
10    ret = GetClientRect(CLng(GetDesktopWindow()), ScreenRect)
20    width = ScreenRect.Right - ScreenRect.Left
30    height = ScreenRect.Bottom - ScreenRect.Top
'Get Outlook activewindow caption
40    HoldCaption = ActiveWindow.Caption
'Display the Access database form
50    Set accapp = New Access.Application
60    With accapp
70        .opencurrentdatabase ("C:\Users\pmf\Documents\Programming Development\Access Visibility Testing\Hidden.accdb")
80        SetWindowPos .hWndAccessApp, 0, 0, 0, width, height, 0
90        .DoCmd.OpenForm FormName:="frmProjDetails", WindowMode:=acDialog
100   End With
110   Set accapp = Nothing
'Reactivate Outlook
120   AppActivate HoldCaption
110   End Sub

OriginalL'auteur phillfri