Discussion :

[Montastruc]

Bonjour à tous,
Je suis en train de finaliser un petit outil ACCESS de navigation dans une base de données. Je souhaite peaufiner le rendu de l'ensemble. J'ai réussi à désactiver la plupart des menus pour que l'usager ait une expérience purement "usager". En clair, qu'il ne sache même pas qu'il utilise une base de données access. Dernier problème, je n'arrive pas à dégager la barre de titre suivante

J'avais trouvé un code mais il ne semble pas marcher pour les ordinateurs 64x. Quelqu'un aurait-il une idée...
Miiiiiiiiiiilles merci.
Montastruc

[bertiny]

Bonjour
Pour la barre de titre, si ce n'est que l'icone d'Access que tu ne souhaite plus voir ainsi que le titre par défaut, tu modifies ces deux éléments dans l'onglet Fichier, Options, Base de données active, Titre de l'application et Icône de l'application

[Montastruc]

Merci pur votre réponse.
Je cherche toutefois une solution radicale
Peut-être qu'avec la capture d'écran ci-dessous, ce sera plus clair:

en fait je ne veux pas de cette fenêtre de fond, je veux que l'usager ne voit que mon formulaire. Est-ce possible?
Merci encore.
Montastruc.

[bertiny]

Bonjour
C'est bien faisable. Regarde ici

[Montastruc]

Oui, merci, j'avais vu des codes similaires (bien que celui-ci soit le plus explicite), malheureusement, cela fonctionne pour des processeur x32, depuis les ordinateurs, dont le mien fonctionnent en x64 et le message d'erreur suivant s'affiche quand je compile le code:

[bertiny]

Bonjour
Change ByVal hWnd As Long en ByVal hWnd As LongPtr

[Montastruc]

Ca ne marche pas, le même message quand je compile le code. Le curseur s'arrête déjà au niveau de Function (comme on le voit sur la capture d'écran précédente).
Je pense que cela vient peut-être de la façon dont la function est introduite, et non pas qu'au niveau des variables déclarées.
(Je dis ça, je n'en sais rien...)

[tee_grandbois]

bonjour,
la déclaration est incomplète, voir ici
à tout hasard, je te propose ce code trouvé ici:

Code :

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

Public Declare PrtSafe Function ShowWindow Lib "User32" (ByVal hWnd As Longptr, ByVal nCmdShow As Long) As Longptr

[bertiny]

Voici le code que j'ai utilisé pour faire le test:

Code VBA :

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
'Déclaration API
 Const SW_HIDE = 0             'Hide the window.
  Const SW_MAXIMIZE = 3         'Maximize the window.
  Const SW_MINIMIZE = 6         'Minimize the window.
  Const SW_RESTORE = 9          'Restore the window (not maximized nor minimized).
  Const SW_SHOW = 5             'Show the window.
  Const SW_SHOWMAXIMIZED = 3    'Show the window maximized.
  Const SW_SHOWMINIMIZED = 2    'Show the window minimized.
  Const SW_SHOWMINNOACTIVE = 7  'Show the window minimized but do not activate it.
  Const SW_SHOWNA = 8           'Show the window in its current state but do not activate it.
  Const SW_SHOWNOACTIVATE = 4   'Show the window in its most recent size and position but do not activate it.
  Const SW_SHOWNORMAL = 1       'Show the window and activate it (as usual).
 
  Public Declare Function ShowWindow Lib "User32" (ByVal hWnd As LongPtr, ByVal nCmdShow As Long) As LongPtr
 
 
'minimise la fenetre access et active le formulaire
Function Fenetre_Modale(pForm As Form)
  ShowWindow Application.hWndAccessApp, SW_HIDE
  ShowWindow pForm.hWnd, SW_SHOWNORMAL
  ShowWindow Application.hWndAccessApp, SW_SHOWMINNOACTIVE
End Function

et j'ai fait l'appel ainsi:

Code VBA :

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

1
2
3
Private Sub Form_Load()
   Fenetre_Modale Forms![ACCUEIL]
end sub

Où ACCUEIL représente mon formulaire de démarrage de l'application (formulaire d'accueil)

Voici la base test avec rien que le formulaire d'accuil. Exemple.zip

[Montastruc]

Argh. Ca plante au même endroit même avec ton fichier.
Je vais regarder en détail le lien que tu m'as donné et revient vers toi si j'ai trouvé une solution.
Merci encore mille fois.

[bertiny]

Désolé, j'ai posté le mauvais fichier. Reprends celui que je viens de modifié dans le même post.

[tee_grandbois]

il manque ce qui est en rouge:

Code :

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

Public Declare PrtSafe Function ShowWindow Lib "User32" (ByVal hWnd As Longptr, ByVal nCmdShow As Long) As Longptr

[Montastruc]

Bonjour!
J'ai corrigé la coquille prtsave en ptrsave, mis aussi nCmdShow en longptr mis l'appel à la procédure sur le formulaire d'entrée (qui est un formulaire pop up). Et quand j'ouvre la db, Access se referme automatiquement... Damn...

[tee_grandbois]

bonjour,

J'ai corrigé la coquille prtsave en ptrsave,

désolé pour la coquille dans PtrSafe (Ptr c'est l'abrégé pour pointeur mais mes doigts sont plutôt habitués à Prt pour Printer ).
Par contre, je ne suis pas persuadé que nCmdShow soit un pointeur et devrait rester en Long et également, la déclaration du paramètre retour de la fonction est un booléen (ou un Long), mais pas un pointeur:
J'ai trouvé ce code qui le confirme ici
ce code a aussi l'avantage de gérer les systèmes 32 et 64 bits.

Code :

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

1
2
    Private Declare PtrSafe Function ShowWindow Lib "USER32" _
        (ByVal hwnd As LongPtr, ByVal nCmdShow As Long) As Boolean

ci joint le code de bertiny corrigé:

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
'Déclaration API
 Const SW_HIDE = 0             'Hide the window.
  Const SW_MAXIMIZE = 3         'Maximize the window.
  Const SW_MINIMIZE = 6         'Minimize the window.
  Const SW_RESTORE = 9          'Restore the window (not maximized nor minimized).
  Const SW_SHOW = 5             'Show the window.
  Const SW_SHOWMAXIMIZED = 3    'Show the window maximized.
  Const SW_SHOWMINIMIZED = 2    'Show the window minimized.
  Const SW_SHOWMINNOACTIVE = 7  'Show the window minimized but do not activate it.
  Const SW_SHOWNA = 8           'Show the window in its current state but do not activate it.
  Const SW_SHOWNOACTIVATE = 4   'Show the window in its most recent size and position but do not activate it.
  Const SW_SHOWNORMAL = 1       'Show the window and activate it (as usual).
 
  Public Declare PtrSafe Function ShowWindow Lib "User32" (ByVal hWnd As LongPtr, ByVal nCmdShow As Long) As boolean
 
 
'minimise la fenetre access et active le formulaire
Function Fenetre_Modale(pForm As Form)
  ShowWindow Application.hWndAccessApp, SW_HIDE
  ShowWindow pForm.hWnd, SW_SHOWNORMAL
  ShowWindow Application.hWndAccessApp, SW_SHOWMINNOACTIVE
End Function

[bertiny]

quand j'ouvre la db, Access se referme automatiquement... Damn...

As-tu défini le formulaire de démarrage de ton application?
Fichier, Options, Base de données Active, Afficher le formulaire:

En espérant que tu as fais une copie de ta base de données avant cette opération.

[Montastruc]

Arghhh.
Cela plante encore. C'est peut-être lié à un code que j'ai déjà mis sur le form_load qui est "Explicit". Aucune idée de ce que cela veut dire, je l'ai recopié sur Internet pour faire apparaître un gif à l'ouverture. Je vais essayer autrement: je vais créer un formulaire vierge sur lequel je reporterai vos codes et rajouterai en fin de procédure de le fermer et d'ouvrir celui avec mon gif. Je vous tiens au courant...
Merci encore pour votre appui.
Montastruc

[Montastruc]

Bon, j'ai fait ce que j'avais dit. ACCESS ne plante plus ,mais j'ai toujours la fenêtre ACCESS en fond. bref, je suis retourné à mon point de départ...
Peut-être n'ai je pas été super clair au départ... Je vais tâcher de l'être plus.
Ce que j'ai quand j'ouvre ma base de données c'est ça:

Ce que je voudrais, c'est ça:

En fond, c'est le bureau de mon ordinateur que l'on voit...

[bertiny]

Bonjour
tu crées un module et tu places le code suivant:

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
'Déclaration API
 Const SW_HIDE = 0             'Hide the window.
  Const SW_MAXIMIZE = 3         'Maximize the window.
  Const SW_MINIMIZE = 6         'Minimize the window.
  Const SW_RESTORE = 9          'Restore the window (not maximized nor minimized).
  Const SW_SHOW = 5             'Show the window.
  Const SW_SHOWMAXIMIZED = 3    'Show the window maximized.
  Const SW_SHOWMINIMIZED = 2    'Show the window minimized.
  Const SW_SHOWMINNOACTIVE = 7  'Show the window minimized but do not activate it.
  Const SW_SHOWNA = 8           'Show the window in its current state but do not activate it.
  Const SW_SHOWNOACTIVATE = 4   'Show the window in its most recent size and position but do not activate it.
  Const SW_SHOWNORMAL = 1       'Show the window and activate it (as usual).
 
  Public Declare PtrSafe Function ShowWindow Lib "User32" (ByVal hWnd As LongPtr, ByVal nCmdShow As Long) As boolean
 
 
'minimise la fenetre access et active le formulaire
Function Fenetre_Modale(pForm As Form)
  ShowWindow Application.hWndAccessApp, SW_HIDE
  ShowWindow pForm.hWnd, SW_SHOWNORMAL
  ShowWindow Application.hWndAccessApp, SW_SHOWMINNOACTIVE
End Function

tu appelles ta fonction sur ouverture de ton formulaire ainsi:

Code :

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

1
2
3
Private Sub Form_Load()
   Fenetre_Modale Forms![Ton_Formulaire]
end sub

[Montastruc]

Non, malheureusement, ça plante.
Voilà ce que j'ai maintenant: la base de données ouvre sur le formulaire "Cache", c'est là où j'ai mis la procédure.
Voilà le code que j'ai:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub Form_Load()
Dim Hauteur As Integer
Dim Largeur As Integer
'Ici j'impose une taille au formulaire
Largeur = 60
Hauteur = 40
Me.Move Left:=0, Top:=0, Width:=Largeur, Height:=Hauteur
'Là je lance la procédure
Fenetre_Modale Forms![Cache]
'Puis j'ouvre l'autre formulaire, celui qui a une animation gif
DoCmd.OpenForm Entrance, acNormal
'Et je ferme le formulaire actif
DoCmd.Close acForm, Cache, acSaveNo
End Sub

La procédure plante comme cela:
Je clique sur la base de donnée
Access s'ouvre puis disparait
Puis dans le menu du bureau je vois qu'il est actif
Et en allant dessus, je vois qu'il est sur le formulaire Cache en mode normal

[bertiny]

Enlève toutes les autres actions lors de l'appel de la fonction et voit le comportement

Code :

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

1
2
3
Private Sub Form_Load()
   Fenetre_Modale Forms![Cache]
end sub

Car on ne sait pas ce qui se trouve dans le formulaire Entrance!