Discussion :

[celiaaa]

Bonjour,

connaissez-vous le code vba pour faire tout simplement "format" "mettre en arrière plan" un controle?


Merci

[pgz]

Bonjour.

Le formulaire étant ouvert en mode création et le contrôle concerné étant sélectiionné, tu peux essayer une commande d'interface

Code :

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

DoCmd.RunCommand acCmdSendToBack

Bon courage,

PGZ

[argyronet]

Bonjour,

La méthode ZOrder ne fonctionne pas avec Access.
Mais s'il s'agit de contrôles "Textboxes", le fait de donner le Focus suffit à le placer au premier plan même s'ils sont superposés...
Sinon, tu peux jouer avec la propriété Visible dynamiquement.

Argy

[celiaaa]

Merci pour vos réponses:

j'ai essayé DoCmd.RunCommand acCmdSendToBack
ave cun fomrulaire en mode création
mais ça m'écrit la commande ou l'action 'placerarrièreplan' n'est pas disponible pour le moment.

Avez-vous une idée?

Merci

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
'boite
Set ctlboite = CreateControl("frm_tableau", acRectangle, , "", "", _
entDonnéeX, entDonnéeY)
    ctlboite.name = name
    ctlboite.BackStyle = 1
    ctlboite.BorderStyle = 1
    ctlboite.BorderColor = "13936755"
    ctlboite.BackColor = "15590879"
    ctlboite.Width = 8400
   'ctlboite.Height = nb * 1000
     ctlboite.Height = hauteur
     'en arrière plan

[argyronet]

Je ne savais pas que c'était en mode Design... Il fallait préciser
DoCmd.RunCommand acCmdSendToBack ne marche que si le contrôle est sélectionné.

Utilise alors la Propriété .InSelection dans ton code.

Argy

[celiaaa]

Merci!

J'ai selectionné mon controle et mis
DoCmd.RunCommand acCmdSendToBack mais ça m'affiche que la commande n'est pas disponible poour le moment

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Set ctlboite = CreateControl("frm_tableau", acRectangle, , "", "", _
entDonnéeX, entDonnéeY)
    ctlboite.name = name
    ctlboite.BackStyle = 1
    ctlboite.BorderStyle = 1
    ctlboite.BorderColor = "13936755"
    ctlboite.BackColor = "15590879"
    ctlboite.Width = 8400
   'ctlboite.Height = nb * 1000
     ctlboite.Height = hauteur
     'en arrière plan
     ctlboite.InSelection = True
DoCmd.RunCommand acCmdSendToBack

[celiaaa]

J'ai essayé de mettre le code après l'ouverture d'un formulaire.
Mais ça ne marche pas.

Savez-vous où je devrais plutot le mettre?
Merci

[argyronet]

DoCmd.RunCommand acCmdSendToBack ne marche pas en mode pas à pas...
Dommage pour tes essais.

Argy