Discussion :

[AndréPe]

Bonjour,
Lorsqu'un état s'affiche à l'écran, c'est dans une fenêtre qui comporte en haut à droite le ControlBox classique de toutes les fenêtres.
Je n'ai pas trouvé comment faire disparaître ce ControlBox, qui ne figure pas dans les controles d'un état, comme on peut le faire pour un form.

Je voudrais éviter que l'utilisateur agisse sur ce control et passe par une autre action spécifique pour fermer l'état.

Une idée ?
Amitié à tous

[pgz]

Bonjour.

Pourtant, sauf erreur de ma part, c'est bien pareil pour un état : propriétés/ Format/ bouton fermer...

Bon courage,

PGZ

[AndréPe]

Bonsoir,

Pourtant, sauf erreur de ma part, c'est bien pareil pour un état : propriétés/ Format/ bouton fermer.

Je ne crois pas, mon pb est de supprimer ce controle, ce qui peut se faire pour un form par

Code :

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

1
2
 
Me.nom_du_ form.ControlBox=false

Mais pour un état, ça améne l'erreur 2465 "erreur provoquée par l'application"!

[marcb03]

Bonjour,

et pourquoi n'utilises-tu pas la propriété "sur fermeture" de ton état pour indiquer la macro ou la fonction que tu souhaite voir exécutée.

Bon courage.

[Domi2]

Bonjour,

Je n'ai pas trouvé comment faire disparaître ce ControlBox, qui ne figure pas dans les controles d'un état, comme on peut le faire pour un form

Au risque de dire une bêtise, et de mémoire, je dirai que pour les états, cette propriété n'existe que depuis Access XP.

Domi2

[marcb03]

Bonjour,

Au risque de dire une bêtise, et de mémoire, je dirai que pour les états, cette propriété n'existe que depuis Access XP.
Domi2

Eh bien c'est fait! La bêtise ...
Ca existe sous Access 2000.

[delcroixf]

Au risque d'ajouter une seconde bêtise, n'y a t il pas dans la fenêtre propriété un item "Bouton Fermer" oui/non qui permet de désactiver cette croix ? Ca existe pour les formulaires... j'ai Access 2003

[AndréPe]

Bonjour à vous tous :
Je voulais joindre une copie d'écran de la feuille de propriétés d'un état en Access2000, mais je ne sais pas comment faire.
Un clic sur l'icone 'Insérer une image' ne demande une URL et là je ne sais pas quoi indiquer. Dans 'gérer les pièces jointes' j'ai ajouté l'image en question.
J'espère que vous pourrez la voir.
Alors vous verrez qu'il n'y a pas de propriété "ControBox', 'Boutons max' etc

Donc pas de solution à mon pb ?

[marcb03]

Bonjour,

Dans l'onglet "Evènement" tu as une propriété "sur fermeture" dans laquelle tu peux indiquer une procédure événementielle ou pointer sur une macro.

[AndréPe]

marb03 dit :

Dans l'onglet "Evènement" tu as une propriété "sur fermeture" dans laquelle tu peux indiquer une procédure événementielle ou pointer sur une macro

OK
Je rappelle toutefois dans quel environnement je désire utiliser cet état :
A partir de la base de travail, j'appelle un état situé dans une autre base (base externe) par du code tiré d'un tuto de Cafeine modifié pour l'adapter à mon cas

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
        Set objAccess = New Access.Application
        With objAccess
            'ouverture de la base externe
            .OpenCurrentDatabase strMDB
            'les commandes sont les mêmes que pour la base en cours
            ' hormis le "objAccess."
            ' ouverture de l'état
              msg = MsgBox("Pour refermer l'aperçu, taper sur la touche 'a'", vbOKOnly)
             .Visible = True             
              .DoCmd.OpenReport strReport, acViewPreview, , "[" & strNRef & "] = " & lngRef
 
     'boucle d'attente de l'appui sur 'a'
              Do
                If GetAsyncKeyState(vbKeyA) <> 0 Then Exit Do
              Loop
              .Visible = False 
            End If
            ' fermeture de l'état sans sauvegarde
            .DoCmd.Close acReport, strReport, acSaveNo
        End With

L'appui sur 'a' ferme bien l'état
Mais l'utilisateur est tenté de cliquer sur la case X de la controlbox de l'état, il ne ferme alors que l'état et non la base externe.

il faudrait donc que cette procédure liée à ce bouton X soit temporaire, et elle ne devrait pas agir lorsque l'état est ouvert à partir de la base à laquelle il appartient.

Je pensais à créer par code une procédure événementielle temporaire sur OnClose du genre

Code :

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

 . .Reports(strReport).OnClose = ?????

placée avant la boucle.

Est-ce possible et comment ?
Merci
Amitiés