MS Access 2013 pour afficher uniquement le formulaire de démarrage et rien d'autre

Lors du démarrage de mon MS Access 2013 de la base de données, j'ai seulement besoin de montrer le formulaire de démarrage et rien d'autre. Résultat souhaité serait quelque chose comme ci-dessous. Le fond est mon bureau.

Souhaitée:

Cependant quand j'ouvre le DB, le formulaire s'ouvre en prenant la totalité de l'écran.

Le code VBA ci-dessous s'exécute lorsque le formulaire de démarrage de charges et d'abord, il fonctionne, mais si je réduis la fenêtre, je peux voir à nouveau le fond.

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

J'ai caché les rubans, le volet de navigation et tous les accès de l'utilisateur interfaces, mais j'ai besoin de retirer le fond aussi.

Actuel:

MS Access 2013 pour afficher uniquement le formulaire de démarrage et rien d'autre

Toute aide /conseil serait apprécié. Grâce à advace !!!

InformationsquelleAutor Subhojit Bhowmick | 2016-08-21

5

Vous n'avez pas besoin de code de l'API.

Les paramètres suivants devraient faire l'affaire:

Fichier->Options->Base de données en cours

Décocher la case “Afficher le document onglets”
Choisissez Les Onglets Des Documents.

Au-dessus des nations unies-cochez la case Afficher le Volet de navigation.

Pour masquer le ruban, exécutez cette ligne de VBA dans votre démarrage:

DoCmd.ShowToolbar "Ruban", acToolbarNo

L'écran qui sera présent:

Assurez-vous que le formulaire(s) ne sont pas de dialogue, et assurez-vous qu'ils ne sont pas de popup formes.

Pour revenir dans le “développement” de la mode, vous quittez la base de données et puis re-lancement, maintenez la touche majuscule – qui de by-pass, tous les ci-dessus et vous permettre de développer.
- Que faire si vous voulez avoir différentes formes, de différentes tailles? est-il possible d'obtenir la totalité de la fenêtre de re-taille, avec les différentes formes?
- Lancement de Word, d'Excel, d'un navigateur web ne JAMAIS re-tailles de la fenêtre de l'application. Même un système de comptabilité avec plus de 200 formes de ne PAS re-taille de la fenêtre principale de l'application. Jamais vu AUCUN logiciel dans les 20 dernières années, qui fonctionne comme vous le décrivez. La taille de l'application va prendre sur la taille de la première forme de lancement. Pour 99% des applications que j'ai JAMAIS utilisé alors la principale fenêtre d'INTERFACE offre des menus, onglets ou des barres de navigation sur le haut ou sur le côté. On pourrait peut-être ré-taille de la fenêtre de l'application à chaque forme lancé, mais c'est plutôt saccadé et plutôt pourri type de l'INTERFACE utilisateur, je n'ai JAMAIS vu avant
InformationsquelleAutor Albert D. Kallal
1

Voir ce lien sur la façon d'ouvrir juste un formulaire (sans affichage de l'Accès de l'environnement):

https://accessexperts.com/blog/2015/02/04/how-to-open-your-ms-access-application-like-a-custom-software-application-ms-access-tutorial/

InformationsquelleAutor Tieme Woldman

Je utiliser la synchronisation du formulaire principal et de l'Accès tailles de fenêtres, de sorte que l'Accès de la fenêtre sera toujours derrière la fenêtre principale. Voici le code behind:

Private Sub Form_Resize()
'main form
'Let us know when Form is Maximized...

If CBool(IsZoomed(Me.hwnd)) = True Then
    funSetAccessWindow (SW_SHOWMAXIMIZED)
    DoCmd.Maximize
    Me.TimerInterval = 0
ElseIf CBool(IsIconic(Me.hwnd)) = True Then
    funSetAccessWindow (SW_SHOWMINIMIZED)
    Me.TimerInterval = 0
Else
    'enable constant size sync
    Me.TimerInterval = 100
    SyncMainWindowSize Me, True
End If
End Sub

Private Sub Form_Timer()
SyncMainWindowSize Me
End Sub

Public Function SyncMainWindowSize(frm As Form, Optional blnForce As Boolean = False)
Dim rctForm As RECT
Dim iRtn As Integer
Dim blnMoved As Boolean

Static x As Integer
Static y As Integer
Static cx As Integer
Static cy As Integer

#If VBA7 And Win64 Then
    Dim hWndAccess As LongPtr
#Else
    Dim hWndAccess As Long
#End If

If GetWindowRect(frm.hwnd, rctForm) Then
    If x <> rctForm.Left Then
        x = rctForm.Left
        blnMoved = True
    End If

    If y <> rctForm.Top Then
        y = rctForm.Top
        blnMoved = True
    End If
    If cx <> rctForm.Right - rctForm.Left Then
        cx = rctForm.Right - rctForm.Left
        blnMoved = True
    End If
    If cy <> rctForm.Bottom - rctForm.Top Then
        cy = rctForm.Bottom - rctForm.Top
        blnMoved = True
    End If

    If blnMoved Or blnForce Then
        'move/resize main window
        hWndAccess = Application.hWndAccessApp
        iRtn = apiShowWindow(hWndAccess, WM_SW_RESTORE)
        Call SetWindowPos(hWndAccess, 0, x, y, cx, cy, WM_SWP_NOZORDER Or WM_SWP_SHOWWINDOW)
    End If
End If
End Function

Function funSetAccessWindow(nCmdShow As Long)
'Usage Examples
'Maximize window:
'       ?funSetAccessWindow(SW_SHOWMAXIMIZED)
'Minimize window:
'       ?funSetAccessWindow(SW_SHOWMINIMIZED)
'Hide window:
'       ?funSetAccessWindow(SW_HIDE)
'Normal window:
'       ?funfSetAccessWindow(SW_SHOWNORMAL)
    Dim loX  As Long
    On Error GoTo ErrorHandler

    loX = apiShowWindow(hWndAccessApp, nCmdShow)
    funSetAccessWindow = (loX <> 0)
End Function

InformationsquelleAutor Sergey S.

Vous devez vous connecter pour publier un commentaire.