Discussion :

[amerex]

Bonjour!
Y a-t-il un moyen de cacher la fenêtre Access et n'afficher que les formulaires qui s'exécutent au démarrage ?

Merci!!

[mout1234]

Bonsoir,


Humm, as-tu pris le temps de chercher (, , forum...) avant de poster ?

Il me semble facile de repérer cette option dans le menu Option/Démarrage

[amerex]

Oui, dans Options/Démarrage, c'est pour masquer la Fenêtre Base de Données... mais ce que je cherche à masquer, c'est le fond gris et la barre bleue (genre de Header).

En fait, je voudrais l'équivalent Access de la fonction VBA Excel ThisApplication.Visible=False

[mout1234]

Ok, c'est autre chose en effet.

J'avais fait cela une fois en mettant l'appli en minimisé et en utilisant des formulaires en mode Indépendant.

ça marche mais il y certaines limites... par exemple il ne me semble que tu puisses afficher un aperçu avant impression en mode Indépendant...

[amerex]

Tous mes formulaires sont indépendants (Fen Modale et Fen Indépendante)... Mais je ne peux pas réduire l'application lorsque les formulaires sont ouverts, c'est comme si le focus était bloqué sur le formulaire... alors je ne suis pas plus avancé, j'ai le merveilleux fond gris de Access...

[Invité]

Bonjour

Si c'est juste le fond gris qui te gène:

http://access.developpez.com/faq/?pa...ce#CouleurFond

Attention cela ne marche plus sur Office 2007. Dommage

[ft035580]

Salut,

Sinon tu peux utiliser l'API ShowWindow.

Dans un module:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
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 '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
    fSetAccessWindow = (loX <> 0)
End Function

Puis sur l'évènement Load de ton formuliare tu places:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
Option Compare Database
Option Explicit
    Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Private Sub Form_Load()
ShowWindow Application.hWndAccessApp, 0
ShowWindow Me.hwnd, 1
End Sub

[mout1234]

Bonsoir,

Intéressant ft035580 ton api mais... je ne vois pas le rapport entre ton module et ton appel dans le form

Sinon, je viens de tester sous Access 2007... visiblement il n'aime pas

Tu l'as essayé dans quelle version?

[amerex]

Je vais essayer toutes vos solutions et vous en redonne des nouvelles!

[amerex]

Wow, ft035580, le module fonctionne à merveilles!

Mais il y a un petit truc qui ne fonctionne pas : il faut toujours un petit truc...!!!

Mon formulaire a un bouton qui m'ouvre un état. Comme Access est masqué, l'état s'ouvre dans Access, qui est masqué, donc on ne peut pas accéder à l'état... et le formulaire se ferme donc: plus rien!

Est-ce que tu penses qu'il y a une fonction qui permet de rafficher Access le temps que l'état s'affiche?

[ft035580]

Salut Amerex,

Essaie de mettre sous un bouton par exemple:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
ShowWindow Application.hWndAccessApp, 1
ShowWindow Me.hwnd, 1

[amerex]

C'est parfait, le tout fonctionne!
Merci beaucoup!!