Discussion :

[adelsunwind]

Bonjour j ai utilisé le code dans la FAQ pour pouvoir agrandir un formulaire sur la totalité de l'ecran.
Cela marche bien par contre comment je fais quand je quitte mon application pour ré-afficher les barre des taches et menu windows ?(qui ont disparue).
Avec 50 formulaires dans mon appli comment dois je faire pour appliquer cette procédure a toute l'appli sans avoir faire un appel de procedure a l ouverture de chaque form.
Meric d avance.

[LedZeppII]

Bonsoir,

comment je fais quand je quitte mon application pour ré-afficher les barre des taches et menu windows ?(qui ont disparue).

Je dirai

Code :

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

1
2
3
AfficherMenu True
AfficherBarreTitre True
AfficherBarreTache True

comment dois je faire pour appliquer cette procédure a toute l'appli sans avoir faire un appel de procédure a l'ouverture de chaque form

Ça dépend un peu de ton application.
Par exemple, s'il y a un formulaire qui s'ouvre au démarrage de l'appli et qu'il reste ouvert tout au long de la session, tu peux mettre le code qui agrandit dans l'événement "sur chargement".

Code :

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

1
2
3
Me.Visible = True ' Force le formulaire visible pour l'instruction DoCmd.Maximize dans Sub PleinEcran
BolState = False
PleinEcran BolState

Dans l'événement "sur fermeture" tu restaures tout.

Code :

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

PleinEcran True

A+

[adelsunwind]

Merci pour ta répose suaf que je ne saisis pas une chose.
J ai essayé exactement ton code et a la fermeture j ai un message d'erreur genre erreur sur le formulaire caché ...
Pourquoi je dois mettre PleinEcran True a la fermeture et non pas PleinEcran false?

[adelsunwind]

Bon j essaie d'avancer mais en vain. En fait dans l appli c est OK, j arrive en gardant un formulaire d'accueil ouvert a supprimer toutes les barres et ce pour toutes l'appli en faisant :

Code :

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

1
2
3
4
5
 
Private sub form_load()
bolstate = false
PleinEcran BolState
end sub

Par contre quand je veux fermer mon aplli je repasse par ce formulaire donc pour retrouver mes barres quand je quitte Access j ai mis sur l event fermeture :

Code :

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

1
2
3
4
5
 
Private sub form_close()
Bolstate = true
PleinEcran Bolstate
end sub

et là je quitte Access mais impossible de recuperer les barres initiales
Quelq'un a t il une explication ou une piste?

[LedZeppII]

Bonjour,

PleinEcran True appelle ...
AfficherMenu True -> restaure les menus
AfficherBarreTitre True -> affiche la barre de titre
AfficherBarreTache True -> affiche la barre de tâches

Pour tes barres d'outils, je pense qu'il faut les remettre à la main.
Au moins une fois.

A+

[adelsunwind]

Je pense que je l avais compris mais a ce moment je ne vois plus trop l interet de cette procédure si il faut les rajouter a la main ou en par le code.
Quand j applique cette procedure et bien ma barre windows ne re-apparait pas pour autant.

[foste]

Bonjour,

essaie ca :

Tu enleves le bouton fermer de ton forumaire.
Tu crees un bouton pour fermer avec le code :

Code :

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

1
2
3
4
5
Private sub nomBouton_Click()
Bolstate = true
PleinEcran Bolstate
Application.Quit
end sub

[midasios]

Bonjour,
tu peux éviter le bolstat en utilisant un docmd.maximize
c'est plus facile et ne fais pas disparaitre la barre des taches