Discussion :

[le.dams]

Bonjour,

Dans un tuto il est indiqué comment paramétrer Access de sortes à ce qu'une seule tâche Access apparaisse dans la barre des tâches Windows (Access/Outils/Options/Affichage/coche Fenêtres dans la barre des tâches) même si vous ouvrez plusieurs objets... c'est bien pratique quand on veut empêcher les utilisateurs d'ouvrir pusieurs objets à partir du formulaire menu pricnipal.

Problème : Ce paramétrage est attaché à Access du PC local, c'est à dire qu'il n'est pas incorporé dans la base "frontale" et que du fait il faudrait passer sur tous les postes clients pour le paramétrer... lourd !

Je n'ai pas trouvé de solutions pour incorporation de ce paramétrage à la base frontale... donc j'en viens à vous demander à votre aide.

Merci

[Jean-Philippe André]

bonjour,
je n'ai jamais essayé mais, comme tu sembles dejà avoir le déroulement dans les menus, peut-être que l'utilisation de

Code :

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

DoCmd.DoMenuItem

ferait ton affaire ?

[Domi2]

Bonjour,

Si tu exécutes une procédure ou fonction au lancement de ton appli, tu peux rajouter :

Code :

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

1
2
'Afficher fenêtres dans la barre des tâches - faux
Application.SetOption "ShowWindowsInTaskbar", 0

Tu peux paramètrer beaucoup de choses avec SetOption, voir l'aide.

Domi2

[le.dams]

J'ai essayé la solution de Domi2 qui fonctionne très bien, Merci beaucoup (je vais bloquer les petits malins !)...
... mais c'est la première fois que j'utilise du VBA (je me débrouille depui 4 ans avec les outils d'Access non VBA !!! mais finalement je suis assez fier de ma base ) vrai dépucellage, alors je voudrais vérifier que je m'y prend correctement dès le début :

J'ai créé un module Toto qui contient :

Code :

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

1
2
3
Public Function truc()
Application.SetOption "ShowWindowsInTaskbar", 0
End Function

Effectivement, j'ai un formule "Start" qui appelle à son ouverture une macro (qui me sert à faire les MaJ de la base frontale vers les postes clients) dans laquelle je mets en premier Exécuter code avec Nom fonction = truc().

Est-ce correct sur le plan architecture/façon ?... (par ex je ne connais pas la différence entre public fonction et private fonction)

Merci encore

[Domi2]

Bonsoir,

mais finalement je suis assez fier de ma base

Il n'y a aucune raison de s'en priver...

En faisant quelques recherches dans les tutoriels, tu trouveras des indications utiles sur les Sub et fonctions (Private et Public)... Les variables et leurs portées...

C'est pas tout simple... Non que ce soit compliqué, mais un peu "déroutant" parfois...

Je te laisse aller à la découverte... D'autres seront un peu plus dissert peut-être... Une piste...

Dans mes applications, j'ai toujours un module standard qui a le nom de l'application (basNomApplication)...

Dans tous les cas, une fonction InitApplication dans laquelle j'exécute toutes les sub ou fonctions de démarrage... En final, j'ouvre le formulaire "d'accueil"...

La sub est lancée par une macro AutoExec dont c'est la seule fonction...

Dans ton cas, cela se traduirait par une macro AutoExec avec une action ExécuterCode, et une action Truc() qui appelle une Function, bien qu'elle n'a pas à passer de valeur en retour, soit dans la macro (Action) :

Code :

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

Truc()

Code :

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

1
2
3
4
5
6
7
8
Sub Truc()
Application.SetOption "ShowWindowsInTaskbar", 0
 
'Plein de codes utiles
 
DoCmd.OpenForm "Start", , , , , acNormal
 
End Function

Ne pas oublier de supprimer les options de démarrage...

C'est une façon de faire, mais pas la seule...

Domi2

P.-S. Très simplifié. Public = disponible dans toute l'application. Private = disponible uniquement dans le module en cours...

[le.dams]

Bonjour,

Merci beaucoup Dom2 pour ces orientations.
Même si je n'ai pas encore trouvé de tuto qui reprenne le VBA de la "base" et appliqué à Access, je vais continuer mes recherches.

PS : c'est curieux, tu es le premier à m'aider sur ce site et tu portes le prénom de mon père