Discussion :

[SansSucre]

Bonjour,

et merci à ceux qui pourront m'aider.
Ma question est peut-être idiote, mais je cherche à programmer en VBA l'action : "Mettre au premier plan" accessible dans le menu Format en mode création d'un formulaire.

Je souhaite appliquer cette action à des contrôles bien précis de mon formulaire et le nom des contrôles est obtenu par programmation. J'avais pensé à un truc du genre Ctl.foreground = True, mais je n'ai pas trouvé de documentation là dessus.

Merci d'avance

[francishop]

Bonjour,

"Mettre au premier plan"

Je ne connais pas. Par contre je rends visible ou non visible un objet.
Exemple :

Code :

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

1
2
3
4
5
6
7
Private Sub btnModif_Enter()
  Me.sfrmObjection2.Enabled = True
  Me.sfrmObjections.Enabled = True
  Me.btnProtege.Visible = True
  Me.Objection.SetFocus 
  Me.btnModif.Visible = False
End Sub

Cordialement.

[SansSucre]

Merci, mais je connais la propriété Visible.

L'action "Mettre au premier plan " ou l'action "mettre en arrière plan" sont disponibles, je crois, depuis Access 2000 dans le menu Format. Cela n'apparaît pas dans la fenêtre propriété du contrôle. Je voudrais juste pouvoir appliquer cette action sur un ou des contrôles par VBA.

Merci

[fredoh]

voici comment, sur un état, mettre un contrôle de type trait ("TraitTestAMettreAuPremierPlan") au premier plan et un autre ("TraitTestAMettreEnArrierePlan") en arrière plan.
Pour les formulaires cela doit fonctionner de la même manière.

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
Dim EtTempo As Report
Dim CtrTempo As Control
 
DoCmd.OpenReport sNomEtat, acViewDesign
Set EtTempo = Reports("EtatTest")
Set CtrlTempo = EtTempo.Controls("TraitTestAMettreAuPremierPlan")
CtrTempo.InSelection = True
DoCmd.RunCommand acCmdBringToFront
DoEvents
CtrTempo.InSelection = False
Set CtrlTempo = EtTempo.Controls("TraitTestAMettreEnArrierePlan")
CtrTempo.InSelection = True
DoCmd.RunCommand acCmdSendToBack
DoEvents
CtrTempo.InSelection = False
DoCmd.Save acReport, "EtatTest"

[Vijinn]

Bonjour.
Je sors ce post des archives poussiéreuses...
Je serais moi aussi intéressé par forcer par VBA un objet à se mettre au premier plan (ou au dernier), dans un formulaire déjà ouvert en mode formulaire (pas création). Je placerais cet évènement sur l'ouverture du formulaire.
La manip donnée ci-dessus par fredoh n'est pas bonne car elle ne fonctionne qu'en mode création .
Quelqu'un aurait-il une solution ?

[loufab]

Bonjour,

La manip donnée ci-dessus par fredoh n'est pas bonne car elle ne fonctionne qu'en mode création .

Si elle est bonne... car c'est la seule, la commande n'étant disponible qu'en mode création.

Si tu veux faire ce genre de chose sur un formulaire ouvert tu devras :

• Géler l'affichage
• Fixer les données (sauvegarde)
• fermer le formulaire
• le rouvrir en mode création
• faire ta cuisine
• enregistrer le formulaire
• le rouvrir en mode normal
• recharger les données précédente
• dégeler l'affichage.

Je placerais cet évènement sur l'ouverture du formulaire.

Les événements ne fonctionne pas en mode création, il faudra faire ça dans un module standard.

Cordialement,

[rlapt]

Bonjour,

Je reviens sur ce sujet.
J'avais le pb suivant :
Soit unbouton poussoir qui faisait apparaitre un pied de formulaire. Je voulais que sur un click sur le bouton poussoir le pied de formulaire apparaisse et sur un autre click le pied de formulaire disparaisse.
Lorsque le pied était visible une croix (deux traits) se superposait sur le bouton de commande et disparaissait lorsque le pied n'était plus visible.
J'ai résolu le problème de la façon suivante :
En fait il faut donner le focus aux traits qui composent la croix. Pour cela, on repère par exemple la position gauche des deux traits et on les repositionnent avec cette valeur (donc les traits ne bougent pas). Par contre ne pas oublier de donner le focus à un autre contrôle avant de faire l'action.
Cordialement