Discussion :

[rangernoir]

Bonjour à tous,

J'ai dans mon formulaire une étiquette avec le nom du formulaire (Gestion projet).
Est-il possible si j'ouvre ce formulaire en mode ajout de changer le texte de l'étiquette et de mettre "Ajout projet" ??

Merci de votre aide

Rangernoir 8)

[foste]

Utilise le Openargs :

docmd.openform "monform",...,"Mon texte a afficher"

et dans ton form, tu mets un ctrl texte=[openargs]

Carine

[cafeine]

Sur quelle partie as-tu du mal ?

Propriété .Caption d'une étiquette

[Lou Pitchoun]

Pourquoi pas modifier la légende du formulaire ??

Code :

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

Me.Caption =Me.OpenArgs & " projet"

[rangernoir]

En fait je ne sais pas quel code mettre pour qu'il me change le texte de l'étiquette si mon formulaire est ouvert en mode Ajout.

J'ai dans le haut de mon formulaire une étiquette portant le nom du formulaire.

Par exemple:

Gestion des ressources

Et j'aimerais qu'en mode ajout cela devienne "Ajout de ressource"

Si je comprends bien, le code serait:

Si formulaire en mode ajout, alors étiquette = "Ajout de ressource"

Rangernoir 8)

[Faw]

Code :

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

1
2
3
If me.AllowAdditions = true then
me.Etiquette.Caption = "Ton texte"
End If

a mettre sur Ouverture du form et à chaque fois
que tu autorises le mode ajout. (sans le if/then)
Enfin je pense...

[rangernoir]

Ca ne va pas, il m'affiche tout le temps le même texte. Que je sois en mode ajout ou modification.

J'ai essayé de jouer sur les propriétés allowadditions et allowedits mais rien ne change.

J'ai même mis un "else Me.Étiquette49.caption = "Modification des données clients" mais rien ne change non plus cela reste toujours avec le même texte que le mode ajout !

Rangernoir 8)

[Lou Pitchoun]

Mets le code suivant sur chargement:

Code :

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

1
2
3
If Me.OpenArgs = "Ajout" then
Me.NomEtiquette.Caption = "Ajout ressource"
End if

[rangernoir]

Cool cela fonctionne

un tout grand merci

Rangernoir 8)