Access 2010-das Verstecken des Access-Fensters

Möchte ich dauerhaft ausblenden des access-Fensters. Ich habe eine auto exe-makro, das versteckt das Fenster zunächst aber, ob der Nutzer überhaupt klickt auf meine Datenbank-Symbol auf der task-Leiste erscheint, wenn hinter meine Formen und ist einfach nur nervend. Ich Frage mich, ob es war ein Weg, um es zu halten ist, ohne zu kopieren Vergangenheit ausblenden Fenster makro, wo jeder

InformationsquelleAutor HelloWorld | 2012-08-17
  1. 1

    Werden die folgenden arbeiten, auf älteren Versionen von access (Quelle: http://www.vbaexpress.com/kb/getarticle.php?kb_id=74):

    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

    Einfach anrufen fSetAccessWindow(0) zu verstecken und zu fSetAccessWindow(1) zu zeigen. Alternativ können Sie fSetAccessWindow(2) und fSetAccessWindow(3) zu zeigen, minimiert/maximiert. Die Anwendung wird versteckt aus der Taskleiste zu, verhindern, dass Benutzer darauf klicken.

    Wenn es nicht funktioniert mit Access 2010, Sie könnten auch versuchen, diese: http://www.tek-tips.com/faqs.cfm?fid=2562

    InformationsquelleAutor dnLL
Schreibe einen Kommentar