Discussion :

[lakhdar16]

Bonjour,

J'ai trouver dans un site "3stone.be" un code intéressant qui permet de rendre la fenêtre Access invisible dans la barre des tâches, je voulais l'appliquer sur ma base de données.

Dans ma base de données (test), j'ai 2 formulaires, Frm1 et Frm2.

Le Frm1 est le formulaire d'accueil et comporte deux (2) boutons.

Commande1 : sur clic, appel le formulaire Frm2
Commande2: sur clic, affiche la fenêtre Access sur la barre des tâches.

Sur chargement du Frm1 j'ai écris 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
23
24
25
26
Option Explicit
 
'Appel API et constante pour masquage et affichage
 
Const SW_HIDE = 0 ' Masquer
Const SW_NORMAL = 1 ' Restaurer- afficher
Private Declare Function ShowWindow Lib "user32" _
(ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
 
 
Private Sub Form_Load()
DoCmd.RunCommand acCmdSizeToFitForm
DoEvents: DoEvents
 
'Cacher l'application
 
Dim hWindow As Long
Dim nResult As Long
Dim nCmdShow As Long
 
hWindow = Application.hWndAccessApp
nCmdShow = SW_HIDE
nResult = ShowWindow(ByVal hWindow, ByVal nCmdShow)
Call ShowWindow(Me.hwnd, SW_NORMAL)
 
End Sub

sur clic du Commande2

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub Commande2_Click()
 
Dim hWindow As Long
Dim nResult As Long
Dim nCmdShow As Long
 
hWindow = Application.hWndAccessApp
nCmdShow = SW_NORMAL
nResult = ShowWindow(ByVal hWindow, ByVal nCmdShow)
 
End Sub

sur clic de la Commande1

Code :

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

1
2
3
4
5
Private Sub Commande1_Click()
 
DoCmd.OpenForm " Frm2"
 
End Sub

Tout marche nickel à part l'appel du formulaire Frm2, j'explique: dans le cas fenêtre Access invisible , quand je clique sur Commande1 le formulaire "frm2" s'ouvre mais il reste invisible.

Puis-je svp bénéficier de votre aide ?

Merci d'avance.

[Domi2]

Bonjour,

Tu es bien sûr qu'il s'ouvre ?

Code :

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

DoCmd.OpenForm " Frm2"

Cela devrait plutôt te provoquer une erreur.

Sans espace inutile, cela donne quoi ?

Code :

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

DoCmd.OpenForm "Frm2"

Domi2

[robyseb]

Salut moi j'ai utilisé ce tutoriel et ça fonctionne nickel il te permet aussi de gérer les options du clic droit sur l'icone de la barre de tâche et de dissimuler la fenêtre Access à l'ouverture de la base. Voici le lien http://www.developpez.net/forums/d59...ation-systray/

[lakhdar16]

Bonjour,

merci pour vos réponses, l'espace c'été une faute de frappe c'est tout..

très intéressant le liens que vous m'avez donné robyseb je vais essayé et je vous rendrais une réponse..

merci

[lakhdar16]

j'arrive pas à faire fonctionner le formulaire.... je suis nul...

pourriez vous m'aider à suivre les étape du tutoriel que vous avez cité.

merci.

[lakhdar16]

Tout marche nickel à part l'appel du formulaire Frm2, j'explique: dans le cas fenêtre Access invisible , quand je clique sur Commande1 le formulaire "frm2" s'ouvre mais il reste invisible.

je l'ai enfin trouvé... il fallait mettre :

fenêtre indépendante sur OUI
fenêtre Modale sur OUI.

c'est tout.

bonne nuit.

[lakhdar16]

Merci Domi2 et robyseb pour votre participation à cette discussion. et un grand merci pour l'équipe Developpez.net pour leurs tutoriels et leurs cours si riche en informations.

[robyseb]

Content qu'il t'est été utile moi j'ai bien aimé le produit fini du tutoriel vraiment bien