Affectation par code vba d'une zone de texte d'un état Access

Version imprimable

Bonjour,
J'ai un état (rapport) qui s'appelle "Recap Exercices Clos".
J'ai une zone de texte qui s'appelle Étiquette39 et une autre zone de texte qui s'appelle Ordi_Extra

J’insère le code suivant à l'évènement "Ouverture" de l'état.
Lorsque j'exécute et j'affiche le rapport (état), j'ai l'erreur suivante: "Erreur d'exécution 2427 expression sans paramètre" qui se produit à la ligne 8. Car l'instruction de la ligne 7. est vérifiée puisque la zone de texte "Ordi_Extra" reçoit suite un message, la valeur "E" ou la valeur "O"
Code:

1 2 3 4 5 6 7 8 9 10 11 1. If (Me.Ordi_Extra.Enabled = False) Then 2. Me.Ordi_Extra.Enabled = True 3. End If 4. If (Me.Ordi_Extra.Value) = "O" Then 5. Me.Étiquette39.Value = "SERVICE ORDINAIRE" 6. Else 7. If (Me.Ordi_Extra.Value = "E") Then 8. Me.Étiquette39.Value = "SERVICE EXTRAORDINAIRE" 9. End If 10. End If
Merci pour votre aide.
Jacques4020

26/06/2025, 16h18
nico84

Bonjour,

mettre une majuscule accentuée dans un nom de champ c'est quand même chercher les problèmes...:aie:
26/06/2025, 16h24
jacques4020

Bonjour NICO84,
J'accepte votre remarque.Ceci étant dit, c'est un programme écrit en version Access 97 dont j'ai hérité. Ensuite je l'ai importé en Access 365.
Merci.
26/06/2025, 21h08
tee_grandbois

bonsoir,
une étiquette n' a pas de valeur mais une légende (Caption en anglais) il faut donc écrire:

Code:

Me.Étiquette39.Caption = "SERVICE ORDINAIRE"

d'autre part, concernant la remarque de Nico84, à propos des accents sur les nom d'objets (Étiquette39) : c'est Access qui nomme ainsi les objets de type étiquette créés (pour respecter les règles orthographiques locales françaises)

Affectation par code vba d'une zone de texte qui s'appelle Étiquette39

Bonjour tee_grandbois,

Merci pour votre réponse.
Cette réponse ne fonctionne pas car d'après ma discussion de base, j'ai mentionné que Étiquette39 est une zone de texte et non pas un objet de la classe "Etiquette" (Label en anglais).
la propriété "caption" n'est pas disponible pour les objets de type "texte".
J'ai résolu mon problème en déplaçant le code dans l'évènement "Au Formatage" de l'entête Groupe0 de l'état. Ce groupe "EntêteGroupe0" contient l'objet de texte "Étiquette39"
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 Private Sub EntêteGroupe0_Format(Cancel As Integer, FormatCount As Integer) If (Me.Ordi_Extra.Enabled = False) Then Me.Ordi_Extra.Enabled = True End If If (Me.Ordi_Extra.Value <> "") Then If (Me.Ordi_Extra.Value) = "O" Then Me.Étiquette39.Value = "SERVICE ORDINAIRE" Else If (Me.Ordi_Extra.Value = "E") Then Me.Étiquette39.Value = "SERVICE EXTRAORDINAIRE" End If End If End If End Sub

27/06/2025, 16h43
tee_grandbois

bonsoir,

Citation:

j'ai mentionné que Étiquette39 est une zone de texte et non pas un objet de la classe "Etiquette" (Label en anglais).

en effet, je n'ai pas capté en lisant, désolé.
Pense à fermer la discussion avec le bouton: :resolu: