Discussion :

[marot_r]

Bonjour à tous, merci de votre temps et de votre aide.

J'ai une BD 'semi-automatique', c-à-d que mon utilisateur doit pouvoir accéder aux objets de la BD pour travailler.

Dans cette BD j'ai du code qui effectue certains contrôles. Si un contrôle rencontre une anomalie il ouvre certaines tables et ou requêtes pour que l'utilisateur puisse faire des corrections. Je n'ai pas l'intention de crée des formulaires pour les afficher

Ce que j'aimerai faire c'est

1) Réduire la fenêtre de base de données. Je précise bien la réduire pas la faire disparaître. J'ai trouvé que DoCmd.Minimize fait cela mais je ne sais pas comment activer la fenêtre de BD.

2) Ouvrir les éléments qui m'intresse (ça je sais faire, avec DoCmd.Openblabla)

3) Mettre toutes les fenêtres de la BD en mode mosaique horizontale pour que mon utilisateur puisse voir toutes les fenêtres d'un seul coup d'oeil.

A+

[Invité]

Salut

Est-ce que cela ne pourrait pas t'aider : http://domi2.developpez.com/tutoriel...ommand/#LIII-G

Philippe

[Arkham46]

bjr,

mais je ne sais pas comment activer la fenêtre de BD.

DoCmd.SelectObject acTable, , True

[marot_r]

Bon j'ai trouvé la solution au point 3 ici : http://www.accessruncommand.com/codeex/22-23-24-286.htm

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
'***************** Code Start *******************
' Code By Terry Wickenden
 
Sub ArrangeWindows(strHow As String)
 
  Select Case strHow
    Case "Cascade"
      DoCmd.RunCommand acCmdWindowCascade
    Case "Vertical"
      DoCmd.RunCommand acCmdTileVertically
    Case "Horizontal"
      DoCmd.RunCommand acCmdTileHorizontally
    Case "Arrange"
      DoCmd.RunCommand acCmdWindowArrangeIcons
    End Select
 
End Sub
 
'****************** Code End ********************

[marot_r]

DoCmd.SelectObject acTable, , True

Je n'y aurai jamais pensé !

Merci à vous.